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Preface 


This  report  presents  the  methodology  for  evaluating  flight  readiness  developed  by 
the  Jet  Propulsion  Laboratory  (JPL)  under  NASA  RTOP  553-02-01  sponsored  by  the 
Office  of  Space  Flight  (OSF),  NASA  Headquarters.  This  methodology  was  developed 
as  a part  of  the  Certification  Process  Assessment  task  initiated  by  OSF  due  to  concern 
about  criteria  for  certifying  flight  readiness  of  the  Space  Shuttle  propulsion  system. 

An  early  phase  of  this  work  included  an  extensive  review  of  certification  and  failure 
risk  assessment  approaches  used  by  the  aerospace  industry  and  government 
agencies.  Based  on  the  findings  of  this  review,1  further  work  was  focused  on  defining, 
developing,  and  demonstrating  an  improved  technical  approach  for  failure  risk 
assessment  that  can  incorporate  information  from  both  test  experience  and  engineer- 
ing analysis  to  obtain  a quantitative  failure  risk  estimate.  This  approach,  called 
Probabilistic  Failure  Assessment  (PFA),  is  of  particular  value  when  information 
relevant  to  failure  prediction,  including  test  experience  and  knowledge  of  parameters 
used  in  engineering  analyses  of  failure  phenomena,  is  expensive  or  difficult  to  acquire. 
Under  such  constraints,  a quantitative  evaluation  of  failure  risk  based  on  the  informa- 
tion available  from  both  engineering  analysis  and  operating  experience  is  needed  to 
make  effective  risk  management  decisions  and  utilize  financial  resources  efficiently. 

The  PFA  methodology  is  applicable  to  failure  modes  that  can  be  characterized  by 
analytical  or  empirical  modeling  of  failure  phenomena  and  is  especially  useful  when 
models  or  information  used  in  analysis  are  uncertain  or  approximate.  PFA  can  be 
applied  at  any  time  in  the  design,  development,  or  operational  phases  of  a program 
to  quantitatively  estimate  failure  risk  based  on  the  information  available  at  the  time  of 
the  risk  assessment  and  can  be  used  to  evaluate  and  rank  alternative  measures  to 
control  risk,  thereby  enabling  the  more  effective  allocation  of  limited  financial 
resources. 

The  work  documented  in  this  report  was  carried  out  by  a multidisciplinary  team  of 
JPL  technical  personnel,  which  was  managed  by  N.  R.  Moore.  This  team  was 
composed  of  individuals  with  expertise  in  statistics,  systems  modeling,  and  engineer- 
ing analysis.  D.  H.  Ebbeler  formulated  and  structured  the  statistical  methodology  and 
directed  its  implementation.  L.  E.  Newlin  formulated  and  implemented  probabilistic 
engineering  models  and  implemented  the  statistical  methodology.  S.  Sutharshana 


1 See  [3]  of  Section  1.0  references. 


formulated  probabilistic  engineering  analysis  methods  and  models.  M.  Creager2 
made  major  contributions  to  defining  and  formulating  the  probabilistic  modeling 
approach  and  engineering  analysis  procedures  used  in  this  work.  Present  or  former 
JPL  personnel  who  made  substantial  contributions  in  early  phases  of  this  work  include 
D.  L.  Schwartz,  W.  E.  Edmiston,  and  L.  J.  Grondalski.  D.  Goode  and  J.  Ramsay 
typeset  the  manuscript,  including  graphics,  using  computerized  desktop  publishing 
methods,  and  E.  Reinig  edited  the  manuscript. 

In  developing  the  PFA  methodology,  the  JPL  team  interacted  with  aerospace 
system  manufacturers,  the  Marshall  Space  Right  Center,  and  the  Lewis  Research 
Center.  Individuals  of  these  organizations  generously  shared  information  and  spent 
significant  amounts  of  time  with  the  JPL  team.  In  particular,  Rocketdyne,  Canoga 
Park,  California,  and  Pratt  & Whitney,  West  Palm  Beach,  Rorida,  collaborated  in 
performing  the  application  examples  given  herein.  In  addition,  technical  comments 
on  certification  approaches  and  failure  modeling  were  provided  by  the  above-listed 
organizations  and  by  General  Electric,  Cincinnati,  Ohio;  the  Federal  Aviation  Ad- 
ministration; and  the  Wright-Patterson  Air  Force  Base. 

The  PFA  methodology,  examples  of  its  application  to  spaceflight  components,  and 
computer  software  used  to  implement  PFA  are  documented  in  the  three  volumes  of 
this  report.  Volume  I documents  the  PFA  methodology  and  the  application  examples, 
including  the  rationale  for  PFA  and  the  analysis  procedures  used  in  the  examples. 
Volume  II  contains  user’s  guides  and  flowcharts  for  the  computer  software  used  to 
implement  PFA  in  the  application  examples.  Volume  III  presents  the  structure  and 
listings  of  the  computer  programs. 
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Currently  of  Structural  Integrity  Engineering,  Chatsworth,  CA. 
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Abstract 


An  improved  methodology  for  quantitatively  evaluating  failure  risk  of  spaceflight 
systems  to  assess  flight  readiness  and  identify  risk  control  measures  is  presented. 
This  methodology,  called  Probabilistic  Failure  Assessment  (PFA),  combines  operating 
experience  from  tests  and  flights  with  engineering  analysis  to  estimate  failure  risk. 
The  PFA  methodology  is  of  particular  value  when  information  on  which  to  base  an 
assessment  of  failure  risk,  including  test  experience  and  knowledge  of  parameters 
used  in  engineering  analyses  of  failure  phenomena,  is  expensive  or  difficult  to  acquire. 

The  PFA  methodology  is  a prescribed  statistical  structure  in  which  engineering 
analysis  models  that  characterize  failure  phenomena  are  used  conjointly  with  uncer- 
tainties about  analysis  parameters  and/or  modeling  accuracy  to  estimate  failure 
probability  distributions  for  specific  failure  modes.  These  distributions  can  then  be 
modified,  by  means  of  statistical  procedures  of  the  PFA  methodology,  to  reflect  any 
test  or  flight  experience.  Conventional  engineering  analysis  models  currently 
employed  for  design  or  failure  prediction  are  used  in  this  methodology. 

The  PFA  methodology  can  be  applied  at  any  time  in  the  design,  development,  or 
operational  phases  of  a program  to  quantitatively  estimate  failure  risk  based  on  the 
information  available  at  the  time  failure  risk  is  assessed.  Sensitivity  analyses  con- 
ducted as  a part  of  PFA  can  be  used  to  evaluate  and  rank  such  alternative  measures 
to  control  risk  as  design  changes,  testing,  or  inspections,  thereby  enabling  limited 
program  resources  to  be  allocated  more  effectively. 

PFA  is  generally  applicable  to  failure  modes  that  can  be  characterized  by  analytical 
or  empirical  models  of  failure  phenomena  and  is  especially  useful  when  models  or 
information  used  in  analysis  are  uncertain  or  approximate.  Such  failure  modes 
include,  but  are  not  limited  to,  fatigue,  flaw  propagation,  rupture,  degradation  and 
wear,  and  malfunction  of  mechanical  or  electrical  systems. 

It  is  often  not  feasible  to  acquire  enough  test  experience  to  establish  high  reliability 
at  high  confidence  for  spaceflight  systems.  Moreover,  the  results  of  conventionally 
performed  engineering  analyses  of  failure  modes  can  be  subject  to  serious 
misinterpretation  when  uncertain  or  approximate  information  is  used  to  establish 
analysis  parameters  and  calibrate  the  accuracy  of  analysis  models.  Under  these 
conditions,  a quantitative  evaluation  of  failure  risk  based  on  the  information  available 
from  both  test  or  flight  experience  and  engineering  analysis  is  needed  to  make 
effective  risk  management  decisions. 
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This  report  describes  the  PFA  methodology  and  presents  examples  of  its  applica- 
tion. Conventional  approaches  to  failure  risk  evaluation  for  spaceflight  systems  are 
discussed,  and  the  rationale  for  the  approach  taken  in  the  PFA  methodology  is 
presented.  The  statistical  methods,  engineering  models,  and  computer  software 
used  in  fatigue  failure  mode  applications  are  thoroughly  documented. 
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Section  7.1 

High  Cycle  Fatigue  Failure  Programs 


The  program  tree  structures,  list  of  subprograms,  descriptions  of  the  key  variables, 
and  the  FORTRAN  source  listings  for  the  two  HCF  analysis  codes  DCTHCF  and 
HEXHCF  are  given  here.  The  pertinent  HCF  methodology  is  given  in  Section  2.2.1. 
The  overall  description  of  the  programs  and  the  flowcharts  are  given  in  Section  5. 1. 
The  user’s  guides  for  running  DCTHCF  and  HEXHCF  are  given  in  Section  6. 1. 

7.1.1  DCTHCF  Program 

7.1 .1.1  Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  DCTHCF  using  Uniform  variation  on  the  materials 
shape  parameter  m is  given  in  Figure  7-1,  while  the  tree  structure  for  the  truncated 
Normal  case  is  given  in  Figure  7-2.  In  both  trees,  those  subprograms  not  “shadow- 
boxed”  are  part  of  the  materials  characterization  model.  The  program,  subprogram, 
and  file  names  are  indicated  by  UPPERCASE  letters. 

7.1 .1 .2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-1.  The  section  numbers 
where  the  subprograms  are  described  by  means  of  flowcharts  are  given  next  to  the 


names. 

Table  7-1 

List  of  Subprograms  For  Program  DCTHCF 
(Footnotes  are  at  the  end  of  the  table) 

NAME 

SECTION 

PURPOSE 

ADDREG1 

4.1. 3.9 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  Uniform  distribution  case. 

ADDRGN1 

4.1.3.15 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  truncated  Normal  distribution  case. 

BETAGN2 

4.4.5 

Generates  Beta(a,  b,  p,  B)  random  variates. 

CALCS 

5. 1.2.4 

Performs  the  stress  component  calculations  in  Equations  2-68, 

2-69,  2-71  and  2-72  by  using  the  loads,  stress  concentration  factors, 
and  geometric  information. 

CONCAV3 

4.1.3.10 

Adjusts  the  upper  bound  of  the  posterior  ranges  on  m to  be 
consistent  with  concavity  constraints. 

CONVRT4 

4.1. 3.3 

Transforms  stress  data  to  equivalent  zero-mean  stresses  with  stress 
ratio  of  -1.0. 
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Figure  7-2  Tree  Structure  for  Program  DCTHCF  for  the 
Truncated  Normal  Variation  in  the  Materials 
Shape  Parameter  m 
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Table  7-1 

List  of  Subprograms  For  Program  DCTHCF  (Cont’d) 

NAME 

SECTION 

PURPOSE 

DCTHCF 

5.1.2.1 

The  main  routine  that  controls  the  logical  flow  of  the  high  cycle 
fatigue  elbow  welded  duct  program. 

ELWELD 

5.1. 2.2 

Controls  the  logical  flow  for  the  driver  transformation  and  fatigue  life 
calculations. 

EXPCTD5 

4.1.3.12 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
information  aggregation  calculations. 

FINDK 

4.1. 5.6 

Calculates  the  value  of  the  location  parameter  K (where  A = Km ) 
for  each  life  region  by  using  Equations  2-37  and  2-41. 

FINDM6 

4. 1.5.1 

Obtains  the  value  of  m for  each  life  region  by  adjusting  the  range 
(to  ensure  concavity)  and  then  sampling  from  the  Uniform  distribu- 
tion over  the  appropriate  m range. 

FINDMC 

4. 1.3.5 

Calculates  the  m range  for  each  life  region  implied  by  the  constraint 
on  the  coefficient  of  variation  of  fatigue  strength  C by  using 
Equations  2-28  through  2-32. 

FINDMN6 

4.1. 5.2 

Obtains  the  value  of  m for  each  life  region  by  sampling  from  the 
appropriate  truncated  Normal  distribution  on  m. 

FINDSB 

4. 1.5. 7 

Calculates  the  life  region  “tie-points”  or  stress  values  which 
correspond  to  the  “life  boundaries”  conditional  on  the  randomly 
selected  m for  each  region.  Also  calculates  K,  characterizing  the 
specific  material  S/N  data  set,  which  is  a function  of  /30  and  k. 

FNDRNG7 

4.1. 3.8 

Combines  the  95%  confidence  interval,  J0,  with  the  implicit  and 
explicit  constraints  on  m to  obtain  posterior  credibility  ranges  on  m 
for  each  life  region. 

GAM 

4.4.4 

Generates  Gamma(a,  1)  random  variates. 

GTUFE 

4.1.8 

Calculates  the  cycles  to  failure  for  a particular  stress  based  upon 
the  materials  characterization  model  S/N  curve  of  Equation  2-48. 

GTPVAR 

4.1. 3.7 

Calculates  o2,  Equation  2-49,  the  extent  of  departures  from  the  mul 
tiple  heat  median  S/N  curve  warranted  by  the  information  available. 

INFAGG8 

4.1.3 

Controls  the  logical  flow  for  the  information  aggregation  portion  of 
the  materials  characterization  model. 

IN JT 

4. 1.3.1 

Initializes  the  entries  of  the  arrays  used  in  the  information  aggrega- 
tion subroutine,  INFAGG,  to  zero. 

INSORT 

5.B 

Performs  an  insertion  sort  for  the  lowest  fifty  percent  of  the  lives 
calculated. 

INTRVL 

4. 1.3.6 

Calculates  the  95%  confidence  intervals  l0  for  C,  and  JQ  for  m,  for 
each  region  by  using  Equations  2-24  and  2-26. 
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Table  7-1  List  of  Subprograms  For  Program  DCTHCF  (Cont’d) 


NAME 

KBETA 

SECTION 
4.1. 5.5 

PURPOSE 

Calculates  k and  /30  from  the  sample  mean  and  variance  of  Z,  where 
Z is  a function  of  stress,  life,  the  life  region  boundaries,  and  the  m’s 
by  using  Equation  2-42. 

KOMO9 

4.1.6 

Calculates  K0  and  m0  for  the  zero  region,  the  no  data  region  to  the 
left  of  the  first  data  region.  Extends  the  S/N  curve  consistent  with 
the  tensile  point  at  S0.  Disabled  for  this  application. 

M2L1 

5.1. 2.3 

Performs  the  calculations,  Equations  2-73  through  2-80,  necessary 
to  find  the  stress  at  location  1 , the  exterior  surface  of  the  duct. 

M2L2 

5. 1.2.3 

Performs  the  calculations,  Equations  2-73  through  2-80,  necessary 
to  find  the  stress  at  location  2,  the  interior  surface  of  the  duct. 

MEDIAN 

4.1.3.11 

Calculates  the  median  values  of  m based  on  the  posterior  credibility 
ranges  of  m by  using  Equation  2-34. 

MUSIG10 

4.1.3.13 

Calculates  the  posterior  Normal  distribution  parameters:  mean  m. 
and  standard  deviation  a.,  for  each  life  region  of  the  S/N  curve. 

NARBN1 

5.1. 2.5 

Calculates  the  composite  stress-time  history  by  using  Equations 
2-82  and  2-84  and  then  calls  RAINF1  to  calculate  the  fatigue  life. 

NORMGN11 

4.4.3 

Generates  Normal^,  o2)  random  variates. 

NORRNG7 

4.1.3.14 

Combines  the  implicit  and  explicit  constraints  on  m to  obtain  the 
posterior  credibility  ranges  of  m for  each  life  region. 

PAREST12 

4.1.5 

Controls  the  logical  flow  for  the  parameter  estimation  model 
portion  of  the  materials  characterization  model. 

PGETSM 

5.1.2.7 

Calculates  the  equivalent  mean  stress  from  the  maximum  stress  by 
using  Equation  2-87. 

PRYRV13 

7.6.6 

Generates  the  Uniform(a,  b)  and  Uniform^,  d)  pair  of  independent 
random  variates. 

RAINF114 

5.1. 2.6 

Performs  rainflow  cycle  counting,  Miner’s  rule  damage  accumula- 
tion, and  calls  GTUFE  to  calculate  the  fatigue  life. 

RANDOM13 

4.4.2 

Uses  a Linear  Congruential  random  number  Generator  (LCG)  to 
generate  Uniform(0, 1)  random  variates. 

RCE 

4.1. 3.2 

Reads  the  data  from  DCTHCD  and  RELATD;  calls  CONVRT  to 
transform  the  stress  data  to  a stress  ratio  of  -1 .0;  and  echoes  the 
data  to  DCTHCO  and  RELATO.  RCE  also  breaks  S/N  data  sets  into 
regions  as  specified  by  the  user. 

SMNVAR 

4.1. 5.4 

Calculates  the  sample  mean  and  variance  of  Z,  where  Z is  a 
function  of  stress,  life,  the  life  region  boundaries,  and  the  m’s  by 
using  Equation  2-42. 

SORTM15 

4.1.10 

Sorts  the  m values  in  increasing  order  for  each  life  region  for  the 

truncated  Normal  distribution  case. 
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Table  7-1 

l List  of  Subprograms  For  Program  DCTHCF  (Cont'd) 

NAME 

SECTION 

PURPOSE 

SW2SU2 

4. 1.3.4 

Calculates  the  residual  variances  from  the  Y on  X and  X on 
regressions  for  each  life  region  where  Y = In  (Endurance  cycles) 
and  X = ln(Sf/ess)  by  using  Equations  2-20  and  2-21 ; to  be  used  in 
the  credibility  range  calculations. 

TRMNAT 

4.1.11 

Performs  premature  program  termination,  when  required. 

TRNSFM16 

4. 1.5.3 

Performs  the  calculations  necessary  to  transform  the  specific 
material  S/N  data  into  the  variable  Z,  where  Z is  a function  of  stress, 
life,  the  life  region  boundaries,  and  the  m’s. 

WEIBGN 

4.4.6 

Generates  Weibull(/3,  >?(/?))  random  variates. 

1 No  data  regions  to  the  right  are  discussed  on  Page  2-17. 

2 The  Beta  distribution  is  discussed  on  Page  2-25. 

3 Concavity  constraints  are  discussed  on  Pages  2-13  through  2-14. 

4 The  stress  transformation  is  discussed  on  Page  2-7. 

5 The  median  S/N  curve  parameter  estimation  calculations  are  described  on  Pages  2-15  through  2-18. 

6 Selection  of  the  {ntj } parameters  is  discussed  on  Page  2-15. 

7 Combining  information  to  obtain  the  posterior  credibility  ranges  on  m is  discussed  on  Page  2-13. 

8 The  information  aggregation  calculations  are  discussed  on  Pages  2-6  through  2-14. 

9 Extension  of  the  S/N  curve  to  the  left  is  discussed  on  Page  2-17. 

10  Calculation  of  the  truncated  Normal  distribution  parameters  is  discussed  on  Page  2-14 . 

1 1 The  Normal  distribution  is  discussed  on  Page  2-23. 

12  The  parameter  estimation  calculations  are  discussed  on  Pages  2-15  through  2-18. 

13  The  Uniform  distribution  is  discussed  on  Page  2-23. 

14  Rainflow  cycle  counting  is  discussed  on  Page  2-51  and  in  Appendix  2j4. 

15  The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

16  The  S/N  data  transformation  is  discussed  on  Page  2-16. 
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7.1 .1.3  Description  of  Variables 

A list  of  variables  used  in  the  elbow  welded  duct  HCF  code,  DCTHCF,  is  given  in 
Table  7-2.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the 
variable  “type”  can  be  interpreted  as  follows:  CH6  is  a character  variable,  six 
characters  long;  INT  is  a standard  integer  variable;  LOG  is  a standard  logical  variable; 
RE  is  a standard  real  variable;  and  DRE  is  a double  precision  variable.  The  various 
array  dimensions  are  defined  by  using  the  following  parameters:  MAXBLF,  MAXDAT, 
MAXLD,  MAXLIF,  MAXM,  MAXMM,  and  MAXREG. 


Table  7-2  List  of  Variables  for  Program  DCTHCF 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

ALLM(MAXMM,  MAXREG) 

RE 

2-D  array  containing  the  materials  model  shape 
parameters  (m's)  for  each  life  region  to  be  used  in 
the  truncated  Normal  median  S/N  curve  calculation. 

ANGLE 

RE 

<p  (rad)  in  Equation  2-68,  the  angle  measured 
counterclockwise  from  Z-direction  to  the  critical 
circumferential  location. 

AREA 

RE 

A (in.2)  in  Equation  2-68,  the  cross-sectional  area 
of  the  duct  wall. 

B 

RE 

/?  in  Equation  2-79,  the  stress  increase  due  to  the 
torus  effect. 

BIGK(0:MAXREG) 

RE 

1 -D  array  containing  values  of  the  materials  model 
location  parameter  K,  Equation  2-12,  where 
A = Km. 

BIGK1 

RE 

Dummy  variable  used  during  calls  to  subroutine 
EXPCTD,  equal  to  BIGK(1). 

BLFPER(MAXBLF) 

RE 

1 -D  array  containing  user-specified  B-lives  which 
are  obtained  from  the  simulated  failure  distribution. 
A B-tife  is  the  value  of  accumulated  operating  time 
to  failure  at  a failure  probability  specified  as  a per- 
cent: e.g.,  B.l  is  the  failure  time  at  a probability  of 
0.001  or  0.1%. 

BLFPOS(MAXBLF) 

INT 

1 -D  array  containing  the  indices  for  the  array  vari- 
able LIFE( ) corresponding  to  the  user-requested 
simulated  failure  distribution  B-lives  contained  in 
variable  BLFPER( ). 

BNRD 

RE 

ft0  (in.)  in  Equation  2-74,  the  elbow  BeNd  RaDius. 
(see  RB  in  ELWELD) 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

BZERO 

RE 

Estimate  of  Weibull  distribution  shape  parameter 
P0,  Equation  2-11,  which  characterizes  the  intrinsic 
variation  of  the  S/N  data  set. 

CCY 

RE 

in  Equation  2-77,  the  out-of-plane  circumferen- 
tial stress  carryover  factor. 

CCYA 

RE 

Ccy  Uniform  distribution  lower  bound. 

CCYB 

RE 

Cgy  Uniform  distribution  upper  bound. 

CCZ 

RE 

Ccz  in  Equation  2-75,  the  in-plane  circumferential 
stress  carryover  factor. 

CCZA 

RE 

Ccz  Uniform  distribution  lower  bound. 

CCZB 

RE 

Ccz  Uniform  distribution  upper  bound. 

CLY 

RE 

C/y  in  Equation  2-76,  the  out-of-piane  axial  stress 
carryover  factor. 

CLYA 

RE 

C/y  Uniform  distribution  lower  bound. 

CLYB 

RE 

C/y  Uniform  distribution  upper  bound. 

CLZ 

RE 

Cte  in  Equation  2-74,  the  in-plane  axial  stress  carry- 
over factor. 

CLZA 

RE 

Cb  Uniform  distribution  lower  bound. 

CLZB 

RE 

C/2  Uniform  distribution  upper  bound. 

CULPRT 

INT 

Location  about  duct  circumference  responsible  for 
faiure.  See  variable  LOCAT  for  the  possible  locations. 

01 

RE 

Dj  (in.)  the  duct  inner  diameter  at  the  weld,  used  to 
calculate  ft,  in  Equation  2-68.  (see  IDWE  in  DCTHCF) 

DSTR 

RE 

t-DYNstr  in  Equation  2-81,  the  randomly  selected 
dynamic  stress  analysis  accuracy  factor. 

DSTRA 

RE 

Dynamic  stress  analysis  accuracy  factor  Uniform 
distribution  lower  bound. 

DSTRB 

RE 

Dynamic  stress  analysis  accuracy  factor  Uniform 
distribution  upper  bound. 

ELWELD 

RE 

Real  function  that  controls  the  logical  flow  for  the 
driver  transformation  and  fatigue  life  calculations  of 

a duct  at  a weld  near  an  elbow,  and  then  returns 
the  fatigue  life  (sec). 
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Table  7-2 

List  of  Variables  for 

VARIABLE  NAME 

TYPE 

EM 

RE 

EMOD 

RE 

FATUF 

RE 

FIFTY 

RE 

FILNUM(MAXLD) 

INT 

FK(10) 

RE 

FTEST 

LOG 

FTU 

RE 

FTY 

RE 

GAM 

RE 

GAMA 

RE 

GAMB 

RE 

GCY 

RE 

GCZ 

RE 

GLY 

RE 

GLZ 

RE 

GNBI 

RE 

GNBO 

RE 

GTMI 

RE 

Program  DCTHCF  (Cont’d) 

DESCRIPTION 

E (psi)  in  Equation  2-70,  Young’s  modulus  of 
elasticity  for  the  material,  (see  EMOD  in  DCTHCF) 

E (psi)  in  Equation  2-70,  Young’s  modulus  of 
elasticity  for  the  material,  (see  EM  in  ELWELD) 

Value  of  FATigue  UFe  calculated  (sec). 

Variable  used  to  access  the  fifty-percent  point  in 
the  UFE( ) array. 

1 -D  array  containing  the  file  unit  numbers  for  the 
reference  time  history  files. 

1-D  array  containing  values  of  Fk,  Equation  2-73, 
used  to  find  stress  concentration  due  to  weld 
eccentricity,  KOFF. 

File  TEST.  Used  to  test  for  the  existence  of  a refer- 
ence time  history  file  before  attempting  to  open  it. 

Material  ultimate  strength  (psi). 

Material  yield  strength  (psi). 

Xdam  in  Equation  2-91,  the  randomly  selected 
damage  accumulation  model  accuracy  factor.  See 
Section  2.2. 1.4  for  a discussion  of  the  damage 
calculations. 

Damage  accumulation  model  accuracy  factor 
Uniform  distribution  lower  bound. 

Damage  accumulation  model  accuracy  factor 
Uniform  distribution  upper  bound. 

Ycy  in  Equation  2-77,  the  out-of-plane  circumferen- 
tial ovality  effect  coefficient. 

ycz  in  Equation  2-75,  the  in-plane  circumferential 
ovality  effect  coefficient. 

Yly  in  Equation  2-76,  the  out-of-plane  axial  ovality 
effect  coefficient. 

yte  in  Equation  2-74,  the  in-plane  axial  ovality  effect 
coefficient. 

Ynbi  in  Equations  2-74  through  2-77. 

Ynbo  in  Equations  2-74  through  2-77. 

Ymj  in  Equations  2-74  through  2-77. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 
VARIABLE  NAME  TYPE  DESCRIPTION 


GTMO 

RE 

in  Equations  2-74  through  2-77. 

1 

INT 

Controls  inner  DO  loop. 

IDWE 

RE 

Dj  (in.)  the  duct  Inner  Diameter  at  the  WEkj,  used  to 
calculate  Rj  in  Equation  2-68.  (see  Dl  in  ELWELD) 

II 

INT 

Controls  DO  loop  for  narrow-band  random  and 
superimposed  sinusoidal  loads. 

IOUT 

INT 

Output  dump  controller. 

J 

INT 

Controls  DO  loop  for  each  B-life.2 

K 

INT 

Controls  outer  DO  loop. 

K(2,  2) 

RE 

2-D  array  containing  the  fatigue  stress  concentra- 
tion factors  required  for  the  stress  analysis.  K(1  ,*) 
is  Kri  in  Equation  2-68  and  K(2,*)  is  in  Equa- 

tion 2-69.  K(1,1)  is  the  outer  diameter  axial  stress 
concentration  factor,  the  value  of  KGOD  * KWOD; 
K(1,2)  is  the  inner  diameter  axial  stress  concentra- 
tion factor,  the  value  of  KGID  * KWID;  K(2,1)  is  the 
outer  diameter  hoop  stress  concentration  factor; 
and  K(2,2)  is  the  inner  diameter  hoop  stress  con- 
centration factor,  (see  KT(2,2)  in  DCTHCF) 

KGID 

RE 

Axial  stress  concentration  factor  due  to  geometry 
for  the  duct  inner  diameter  used  to  calculate  Kri  in 
Equation  2-68. 

KGOD 

RE 

Randomly  selected  axial  stress  concentration 
factor  due  to  geometry  for  the  duct  outer  diameter 
used  to  calculate  Kn  in  Equation  2-68. 

KGODA 

RE 

Outer  diameter  geometric  axial  stress  concentration 
factor  lower  bound  of  Beta  distribution. 

KGODB 

RE 

Outer  diameter  geometric  axial  stress  concentration 
factor  upper  bound  of  Beta  distribution. 

KGODR 

RE 

Randomly  selected  Beta  distribution  location 
parameter p for  the  outer  diameter  geometric  axial 
stress  concentration  factor. 

KGODR1 

RE 

p Uniform  distribution  lower  bound  of  Beta  distribu- 
tion of  the  outer  diameter  geometric  axial  stress 
concentration  factor. 

KGODR2 

RE 

p Uniform  distribution  upper  bound  of  Beta  distribu- 
tion of  the  outer  diameter  geometric  axial  stress 

concentration  factor. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

KGODT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  the  outer  diameter  geometric  axial 
stress  concentration  factor. 

KGODT1 

RE 

6 Uniform  distribution  lower  bound  of  Beta  distribu- 
tion of  the  outer  diameter  geometric  axial  stress 
concentration  factor. 

KGODT2 

RE 

6 Uniform  distribution  upper  bound  of  Beta  distribu- 
tion of  the  outer  diameter  geometric  axial  stress 
concentration  factor. 

KOFF 

RE 

Kqpp  in  Equation  2-73,  the  stress  concentration 
factor  due  to  eccentricity  of  the  weld. 

KRATIO 

RE 

Ratio  of  MED  K*IMED  K in  Equation  2-48.  KRATIO 
is  constant  over  life  regions  for  the  materials  model. 

KT(2,  2) 

RE 

2-D  array  containing  the  fatigue  stress  concentra- 
tion factors  required  for  the  stress  analysis. 

KT(1,*)  is  Kri  in  Equation  2-68  and  KT(2,*)  is 
in  Equation  2-69.  KT(1,1)  is  the  outer  diameter 
axial  stress  concentration  factor,  the  value  of 
KGOD  * KWOD;  KT(1,2)  is  the  inner  diameter  axial 
stress  concentration  factor,  the  value  of  KGID  * 
KWID;  KT(2,1)  is  the  outer  diameter  hoop  stress 
concentration  factor;  and  KT(2,2)  is  the  inner 
diameter  hoop  stress  concentration  factor,  (see 
K(2,2)  in  ELWELD) 


KT1 

RE 

K71  in  Equation  2-68,  the  stress  concentration 
factor  for  the  axial  stress. 

KT2 

RE 

Kj2  in  Equation  2-69,  the  stress  concentration 
factor  for  the  hoop  stress. 

KWID 

RE 

Randomly  selected  axial  stress  concentration 
factor  due  to  the  weld  for  the  duct  inner  diameter 
used  to  calculate  Kri  in  Equation  2-68. 

KWIDA 

RE 

Inner  diameter  weld  axial  stress  concentration 
factor  lower  bound  of  Beta  distribution. 

KWIDB 

RE 

Inner  diameter  weld  axial  stress  concentration 
factor  upper  bound  of  Beta  distribution. 

KWIDR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  p for  the  inner  diameter  weld  axial  stress 

concentration  factor. 
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Table  7-2  Ust  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

KWIDR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  8 for  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDT1 

RE 

8 Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDT2 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWOD 

RE 

Randomly  selected  axial  stress  concentration 
factor  due  to  the  weld  for  the  duct  outer  diameter 
used  to  calculate  Kri  in  Equation  2-68. 

KWODA 

RE 

Outer  diameter  weld  axial  stress  concentration 
factor  lower  bound  of  Beta  distribution. 

KWODB 

RE 

Outer  diameter  weld  axial  stress  concentration 
factor  upper  bound  of  Beta  distribution. 

KWODR 

RE 

Randomly  selected  Beta  distribution  location 
parameter/?  for  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODT1 

RE 

8 Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  outer  diameter  weld  axial  stress 
concentration  factor. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 
VARIABLE  NAME  TYPE  DESCRIPTION 


KWODT2 

RE 

d Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

L 

INT 

Controls  DO  loop  for  each  life  region  of  the  S/N  curve. 

L 

RE 

A in  Equations  2-74  through  2-77. 

LAMN 

RE 

XDrandom  in  Equation  2-81,  the  randomly  selected 
load  scale  factor  for  the  narrow-band  random 
loads.  See  Section  2. 1.3.2  for  a description  of  the 
parameters  k,  coefficient  of  variation  C,  and  strain 
gage  factor  d. 

LAMNA 

RE 

Lower  bound  of  the  Uniform  distribution  of  k for  the 
narrow-band  random  load  scale  factor. 

LAMNB 

RE 

Upper  bound  of  the  Uniform  distribution  of  k for  the 
narrow-band  random  load  scale  factor. 

LAMNC 

RE 

Coefficient  of  variation  C for  the  narrow-band  ran- 
dom load  scale  factor. 

LAMND 

RE 

Strain  gage  correction  factor  d for  the  narrow-band 
random  load  scale  factor. 

LAMNK 

RE 

Randomly  selected  k for  the  narrow-band  random 
load  scale  factor. 

LAMNMU 

RE 

The  resulting  mean  p of  the  Normal  distribution  for 
the  narrow-band  random  load  scale  factor,  where 
H = d/(  1 + kC). 

LAMNSG 

RE 

The  resulting  standard  deviation  o of  the  Normal 
distribution  for  the  narrow-band  random  load  scale 
factor,  where  o = C/(1  + kC). 

LAMS 

RE 

IDsinusoidal  ^ Equation  2-81,  the  randomly 
selected  load  scale  factor  for  the  superimposed 
sinusoidal  loads.  See  Section  2. 1.3.2  for  a descrip- 
tion of  the  parameters  k;  coefficient  of  variation  C; 
and  strain  gage  factor  d. 

LAMSA 

RE 

Lower  bound  of  the  Uniform  distribution  of  k for  the 
superimposed  sinusoidal  load  scale  factor. 

LAM  SB 

RE 

Upper  bound  of  the  Uniform  distribution  of  k for  the 
superimposed  sinusoidal  load  scale  factor. 

LAMSC 

RE 

Coefficient  of  variation  C for  the  superimposed 

sinusoidal  load  scale  factor. 
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Table  7-2 


List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

LAMSD 

RE 

Strain  gage  correction  factor  d for  the  superim- 
posed sinusoidal  load  scale  factor. 

LAMSK 

RE 

Randomly  selected  k for  the  superimposed 
sinusoidal  load  scale  factor. 

LAMSMU 

RE 

The  resulting  mean  p of  the  Normal  distribution  for 
the  superimposed  sinusoidal  load  scale  factor, 
where  p = cf/(1  + kC). 

LAMSSG 

RE 

The  resulting  standard  deviation  a of  the  Normal 
distribution  for  the  superimposed  sinusoidal  load 
scale  factor,  where  a - C/(1  + kC). 

LAMST 

RE 

AST  in  Equation  2-81,  the  randomly  selected  load 
scale  factor  for  the  static  loads. 

LAMSTA 

RE 

Uniform  distribution  lower  bound  for  the  static  load 
scale  factor. 

LAMSTB 

RE 

Uniform  distribution  upper  bound  for  the  static  load 
scale  factor. 

LAMW 

RE 

LAMbda  Weld  offset,  the  randomly  selected  A ^ 
in  Equation  2-73,  the  accuracy  factor  for  the  weld 
offset  eccentricity  stress  concentration  factor,  KOFf. 

LAMWA 

RE 

Aqff  Uniform  distribution  lower  bound. 

LAMWB 

RE 

A^  Uniform  distribution  upper  bound. 

LDNAME(MAXLD) 

CH6 

1 -D  array  containing  LoaD  NAMEs  for  the  dynamic 
or  time-varying  loads.  These  are  the  names  of  the 
reference  time  history  files. 

UFE(MAXUF) 

RE 

1-D  array  containing  values  of  the  lives  generated 
by  program  DCTHCF.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  failure  distribution. 

UMPR 

RE 

Pj  (psi)  in  Equation  2-68,  the  UMit  or  internal 
PRessure.  (see  PSUBI  in  ELWELD) 

LNA(0:MAXREG) 

RE 

1-D  array  containing  values  of  ln(A)  = In(BIGK)  * 
MM  for  each  life  region  of  the  S/N  curve. 

LNZ 

RE 

ln(Z)  in  Equation  2-48,  the  Normal  (0,  PVAR) 
random  variate  for  the  materials  process  variation 
aspect  of  the  materials  model. 

LOCAT 

INT 

Critical  location  of  interest  on  the  duct  wall  where 
1 is  the  exterior  surface  of  the  duct,  and  2 is  the 

interior  surface  of  the  duct. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

LPHIM  (0:  M AXREG) 

RE 

1-D  array  containing  values  of  In(PHI)  * MM  for 
each  life  region  of  the  S/N  curve. 

M(2,  MAXLD) 

RE 

2-D  array  containing  the  dynamic  or  time-varying  mo- 
ment load  components.  M(1,*)  is  My  (in.-lbs)  in 
Equation  2-68,  the  moment  load  components  about 
the  y axis;  and  M(2,*)  is  Mz  (in.-ibs)  in  Equation  2-68, 
the  moment  load  components  about  the  z axis. 

MAXBLF 

INT 

Maximum  number  of  B-lives  to  be  obtained  from 
the  simulated  failure  distribution.  The  maximum 
number  of  B-lives  allowed  is  10.2 

MAXDAT 

INT 

Maximum  number  of  points  per  data  set  per  region 
allowed  for  S/N  curve.  The  maximum  number  of 
data  points  per  set  allowed  is  50. 

MAXLD 

INT 

Maximum  number  of  dynamic  or  time-varying 
loads  allowed.  The  maximum  number  of  loads  is  16. 

MAXUF 

INT 

Maximum  number  of  fatigue  lives  allowed  for  the 
simulated  failure  distribution.  The  maximum  num- 
ber of  fatigue  lives  to  be  saved  is  1 0,000. 

MAXM 

INT 

Maximum  number  of  points  allowed  in  the  time  his- 
tory arrays.  The  maximum  number  of  points  is  24,000. 

MAXMM 

INT 

Maximum  number  of  m’s  to  be  saved  and  sorted 
for  the  truncated  Normal  median  S/N  curve.1  The 
maximum  number  of  m’s  is  20,000. 

MAXREG 

INT 

Maximum  number  of  life  regions  allowed  for  the 
S/N  curve.  The  maximum  number  of  regions  is  3. 

MCOUNT 

INT 

Counts  number  of  m’s  to  be  used  to  calculate 
median  S/N  curve  for  the  truncated  Normal 
distribution  case.1 

MEDM(MAXMM) 

RE 

1 -D  array  containing  the  empirical  median  m for 
each  life  region  of  the  S/N  curve.3 

Ml 

RE 

1 (in.4)  in  Equation  2-68,  the  cross-sectional 
Moment  of  Inertia. 

MID 

INT 

Pointer  to  the  median  m values  in  array  SORTM( ) 
for  the  truncated  Normal  median  S/N  curve.  Value 
of  half  of  MCOUNT. 

MIIB 

RE 

1 (in.4)  in  Equation  2-68,  the  cross-sectional 
moment  of  inertia  calculated  by  using  the  wall 
thickness  at  the  inner  bend. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

MIOB 

RE 

/ (in.4)  in  Equation  2-68,  the  cross-sectionai 
moment  of  inertia  calculated  by  using  the  wall  thick- 
ness at  the  outer  bend. 

MLAM(2,  MAXLD) 

RE 

2-D  array  containing  the  dynamic  or  time-varying  mo- 
ment load  components  soiled  by  DSTR  and  LAMS 
or  LAMN,  as  appropriate,  according  to  variable 
TYPE( ).  MLAM(1,*)  is  My  (in.-lbs)  in  Equation  2-68, 
the  moment  load  components  about  the  y axis;  and 
MLAM(2,*)  is  Mz  On. -lbs)  in  Equation  2-68,  the  mo- 
ment load  components  about  the  z axis. 

MM(0:MAXREG) 

RE 

mj  in  Equation  2-12,  the  1 -D  array  containing  ran- 
domly selected  values  of  the  materials  model  shape 
parameter  m for  each  life  region  of  the  S/N  curve. 

MNWT 

RE 

fwi  (in.)  the  duct  MINimum  Wail  Thickness  at  the 
weld  outer  diameter,  (see  TOB  in  ELWELD) 

MPROC 

INT 

Materials  PROCess  variation.  Controls  materials 
process  variation.  A value  of  0 indicates  no 
materials  process  variation,  while  a value  of  1 
indicates  that  materials  process  variation  should 
be  included.4 

M SLAM  (2) 

RE 

1 -D  array  containing  static  moment  load  com- 
ponents scaled  by  SSTR  and  LAMST.  MSLAM(I) 
is  My  (in.-lbs)  in  Equation  2-68,  the  moment  load 
component  about  the  y axis;  and  MSLAM(2)  is  Mz 
(in. -lbs)  in  Equation  2-68,  the  moment  load  com- 
ponent about  the  z axis. 

MSTAT(2) 

RE 

1- D  array  containing  the  static  moment  load 
components.  MSTAT(I)  is  My  (in.-lbs)  in  Equation 

2- 68,  the  moment  load  component  about  the  y axis; 
and  MSTAT(2)  is  Mz  (in.-lbs)  in  Equation  2-68,  the 
moment  load  component  about  the  z axis. 

MU(MAXREG) 

RE 

1 -D  array  containing  the  posterior  Normal  distribu- 
tion mean5  of  the  materials  shape  parameter  m for 
each  life  region  of  the  truncated  Normal  S/N  curve. 

NBLIFE 

INT 

Number  of  B-lives  to  be  obtained  from  the  simu- 
lated failure  distribution.2 

NBND  (0:M  AXREG) 

RE 

Nj*i+ 1 in  Equation  2-35,  the  1 -D  array  containing 

upper  bounds  for  the  NUMREG  life  regions  of 
interest  for  the  specific  material  S/N  data  set. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Coat’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

NEWUF 

RE 

Fatigue  life  value  (sec)  returned  from  call  to 
function  ELWELD. 

NF(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  values  from  the  array 
RAWNF( ) for  the  specific  material  S/N  data  set 
partitioned  into  life  regions. 

NHYPER 

INT 

The  outer  loop  size. 

NUFE 

INT 

The  inner  loop  size. 

NUFET 

INT 

Total  number  of  lives  calculated  by  program 
DCTHCF.  Value  of  NHYPER  * NUFE. 

NLOAD 

INT 

NLOAD  in  Equation  2-81,  the  number  of  dynamic 
or  time-varying  loads. 

NMED 

INT 

Controls  S/N  curve  median  calculation  for  the 
truncated  Normal  distribution  case.  A value  of  0 
indicates  that  the  user  does  not  desire  a median 
calculation  or  that  the  Uniform  distribution  case  is 
being  used;  whle  a value  of  1 indicates  that  the  user 
desires  the  median  calculation  to  be  performed. 

NPTS(MAXREG) 

INT 

1 -D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

NRAN 

INT 

Number  of  RANdom  points.  Number  of  points  in 
the  reference  time  history. 

NU 

RE 

v in  Equations  2-74  through  2-77,  the  Poisson’s 
ratio  for  the  duct  material. 

NUMREG 

INT 

R in  Equation  2-11,  the  number  of  life  regions  of 
interest  in  the  S/N  curve. 

OVAL 

RE 

Xoval  in  Equations  2-74  through  2-77,  the  randomly 
selected  ovality  effect  analysis  accuracy  factor. 

OVALA 

RE 

Uniform  distribution  lower  bound  for  the  ovality 
effect  analysis  accuracy  factor. 

OVALB 

RE 

Uniform  distribution  upper  bound  for  the  ovality 
effect  analysis  accuracy  factor. 

P(MAXLO) 

RE 

1 -D  array  containing  P (lbs)  in  Equation  2-68,  the 
dynamic  or  time-varying  axial  load  components. 

PERIOD 

RE 

T (sec)  in  Equation  2-91,  the  length  of  time  in 

seconds  of  the  reference  time  history. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

PHI 

RE 

<p  in  Equation  2-11,  the  materials  intrinsic  variation, 
or  scatter,  given  by  a Weibull(/S0,  >?0(/30))  random 
variate. 

PI 

RE 

n,  constant  equal  to  3.1415926536. 

PLAM(MAXLD) 

RE 

1 -D  array  containing  P (lbs)  in  Equation  2-68, 
the  dynamic  or  time-varying  axial  load 
components  scaled  by  DSTR  and  LAMN  or  LAMS, 
as  appropriate,  according  to  variable  TYPE( ). 

PSI 

RE 

y»  in  Equations  2-74  through  2-77. 

PSIG 

RE 

o in  Equation  2-48,  the  value  of  SORT (PVAR). 

PSLAM 

RE 

P (lbs)  in  Equation  2-68,  the  static  axial  load 
component  scaled  by  SSTR  and  LAMST. 

PSTAT 

RE 

P (lbs)  in  Equation  2-68,  the  static  axial  load 
component. 

PSUBI 

RE 

Pj  (psi)  in  Equation  2-68,  the  limit  or  internal 
pressure,  (see  UMPR  In  DCTHCF) 

PVAR 

RE 

a2  in  Equation  2-48,  characterizes  the  extent  of 
departure  from  the  multiple  heat  median  S/N  curve 
warranted  by  the  available  information. 

QO 

RE 

Q0  in  Equation  2-78,  the  decay  factor  for  the  ovality 
effect. 

QT 

RE 

Qj  in  Equation  2-80,  the  decay  factor  for  the  torus 
effect. 

R 

RE 

R in  Equation  2-68,  the  radius  where  the  stress  is  to 
be  found. 

RAINF1 

RE 

Real  function  which  performs  rainflow  cycle  count- 
ing, Miner’s  Rule  damage  accumulation,  and  calls 
GTUFE  to  calculate  the  fatigue  life. 

RAND 

DRE 

Random  number  seed. 

RANGEM(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  posterior 
credibility  ranges  on  the  materials  model  shape 
parameter  m for  each  life  region  in  the  S/N  curve. 
RANGEM(1,L)  is  the  lower  bound  and 
RANGEM(2,L)  is  the  upper  bound.6 

RB 

RE 

Rb  (in.)  in  Equation  2-74,  the  elbow  bend  radius, 
(see  BNRD  in  DCTHCF) 

Rl 

RE 

Rj  (in.)  in  Equation  2-68,  the  duct  inner  radius. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont'd) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

RM 

RE 

Rm  (in.)  in  Equations  2-74  through  2-77,  the  mean 
duct  radius. 

RO 

RE 

R0  (in.)  in  Equation  2-68,  the  duct  outer  radius. 

ROIB 

RE 

Rq  (in.)  in  Equation  2-68,  the  duct  outer  radius 
calculated  by  using  the  wall  thickness  at  the  inner 
bend. 

ROOB 

RE 

R0  (in.)  in  Equation  2-68,  the  duct  outer  radius 
calculated  by  using  the  wall  thickness  at  the  outer 
bend. 

ROT 

RE 

R Over  T,  the  value  of  the  ratio  R/t. 

ROVERI 

RE 

R OVER  /,  the  value  of  the  ratio  R/l. 

RT(10) 

RE 

1-D  array  containing  values  of  Rlt  used  in 
conjunction  with  F^,  Equation  2-73,  to  find  stress 
concentration  due  to  weld  eccentricity,  K^p. 

S(4,  MAXM) 

RE 

2-D  array  containing  the  total  component  stress- 
time histories  o^t)  (psi),  Equation  2-82,  resulting 
from  the  combination  of  static,  narrow-band  ran- 
dom, and  sinusoidal  loads.  S(1,*)  is  the  axial 
stress-time  history  a^f);  S(2,*)  is  the  hoop  stress- 
time history  o2(t );  S(3,«)  is  the  radial  stress-time 
history  a3(f);  and  S(4,*)  is  the  shear  stress-time 
history  cr4(f). 

SBND(0:MAXREG) 

RE 

1-D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = —1.0,  corresponding  to  the  “life 
boundary”  values  for  each  life  region  of  the  S/N 
curve  contained  in  array  NBND( ). 

SEFF(MAXM) 

RE 

1-D  array  containing  the  EFFective  or  uni-axial 
stress-time  history  o(t)  (psi),  Equation  2-84,  result- 
ing from  the  combination  erf  static,  narrow-band 
random,  and  sinusoidal  loads  for  all  four  stress 
components. 

SIG(MAXREG) 

RE 

1 -D  array  containing  the  posterior  Normal  distribu- 
tion standard  deviation7  of  the  materials  model 
shape  parameter  m,  for  each  life  region  of  the 
truncated  Normal  S/N  curve. 

SSTR 

RE 

XsTstr  'n  Equation  2-81,  the  randomly  selected 
static  stress  analysis  accuracy  factor. 

SSTRA 

RE 

Static  stress  analysis  accuracy  factor  Uniform 
distribution  lower  bound. 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

SSTRB 

RE 

Static  stress  analysis  accuracy  factor  Uniform 
distribution  upper  bound. 

STATIC(4) 

RE 

1 -D  array  containing  values  of  the  static  stresses 
°SJk  (Ps*)*  Equation  2-82.  STATIC(I)  is  the  axial 
stress  <7sri;  STATIC  (2)  is  the  hoop  stress  ctS72; 
STATIC(3)  is  the  radial  stress  ctS73;  and 
STATIC(4)  is  the  shear  stress  o$T4. 

STR(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  stress  points  with  stress  ratio 
= -1.0,  for  the  specific  material  S/N  data  set 
partitioned  into  life  regions. 

STRAMP(4,  MAXLD) 

RE 

2-D  array  containing  values  of  the  amplitudes  of  the 

dynamic  or  time-varying  stresses  3^“  (psi),  Equa- 
tion 2-82.  STRAMP(1,I)  is  the  amplitude  of 
the /th  axial  stress;  STRAMP(2,I)  is  o^.,  the 
amplitude  of  the  / ^ hoop  stress;  STRAMP(3,I)  is 
o^.,  the  amplitude  of  the  /th  radial  stress;  and 
STRAMP(4,I)  is  o^,  the  amplitude  of  the  / th  shear 
stress. 


STRHIS(MAXLD,  MAXM) 

RE 

2-D  array  containing  Oj(t),  Equation  2-82,  the 
reference  time  histories  for  the  dynamic  or  time- 
varying  load  components. 

SZERO 

RE 

Stress  tensile  test  point,  SQ  (psi).8 

T(MAXLD) 

RE 

1-D  array  containing  Mx  (in.-lbs)  in  Equation  2-72, 
the  dynamic  or  time-varying  torsional  load  com- 
ponents. 

TEST 

RE 

Uniform(0, 1)  random  variate  used  to  determine 
Beta  distribution  for  W0FF. 

TIB 

RE 

tw2  (in.)  the  wall  thickness  at  the  bend  inner 
diameter  at  the  weld,  (see  WTID  in  DCTHCF) 

TLAM  (MAXLD) 

RE 

1-D  array  containing  Mx  (in.-lbs)  In  Equation  2-72, 
the  dynamic  or  time-varying  torsional  load  com- 
ponents scaled  by  DSTR  and  LAMN  or  LAMS,  as 
appropriate  according  to  variable  TYPE( ). 

TM 

RE 

tm  (in.)  in  Equations  2-74  through  2-77,  the  mean 
wall  thickness  at  the  weld. 

TOB 

RE 

fwi  (in.)  the  duct  minimum  wall  thickness  at  the 

weld  outer  diameter,  (see  MNWT  in  DCTHCF) 
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Table  7-2 


Ust  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME  TYPE 

TRSBND(0:MAXREG)  RE 

TRUNC  RE 

TSLAM  RE 

TSTAT  RE 

TYPE(MAXLD)  INT 

V(2,  MAXLD)  RE 

VARY  INT 


VLAM(2,  MAXLD)  RE 


DESCRIPTION 

1 -D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = —1.0,  corresponding  to  the  “life 
boundary”  values  for  each  region  of  the  S/N  curve 
contained  in  array  NBND( ) for  each  PHI  draw 
consistent  with  the  tensHe  point  S0.8 

Value  used  to  filter  out  noise  in  the  composite 
stress-time  history  during  rainflow  cycle  counting. 
See  Section  2.2. 1.4  for  a discussion  of  rainflow 
cycle  counting. 

Mx  (in.-lbs)  in  Equation  2-72,  the  static  torsional 
load  component  scaled  by  SSTR  and  LAMST. 

Mx  (in.-lbs)  in  Equation  2-72,  the  static  torsional 
load  component. 

1 -D  array  containing  the  type  of  dynamic  or  time- 
varying  load,  used  to  assign  the  appropriate  load 
scale  factors.  TYPE(*)  = 1,  use  the  narrow-band 
random  load  scale  factor;  and  TYPE(»)  = 2,  use 
the  superimposed  sinusoidal  load  scale  factor. 

2-D  array  containing  the  dynamic  or  time-varying 
shear  load  components.  V(1,*)  is  Vy  (lbs)  in 
Equation  2-72,  the  shear  load  components  along 
the  y axis;  and  V(2,*)  is  V2  (lbs)  in  Equation  2-72, 
the  shear  load  components  along  the  z axis. 

Controls  type  of  S/N  curve  variation  desired.  A 
value  of  0 indicates  that  no  variation  is  required;  a 
value  of  1 means  that  intrinsic  materials  variation 
only;  a value  of  2 indicates  that  the  user  desires  a 
Uniform  distribution  on  m\  while  a value  of  3 indi- 
cates that  a truncated  Normal  distribution  is  desired. 

2-D  array  containing  the  dynamic  or  time-varying 
shear  load  components  scaled  by  DSTR  and 
LAMN  or  LAMS,  as  appropriate,  according  to 
variable  TYPE( ).  VLAM(1,*)  is  Vy  (lbs)  in  Equation 
2-72,  the  shear  load  components  along  the  y axis; 
and  VLAM(2,*)  is  V2  (lbs)  in  Equation  2-72,  the 
shear  load  components  along  the  z axis. 
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Table  7-2 


List  of  Variables  for  Program  DCTHCF  (Cont'd) 


VARIABLE  NAME  TYPE 


VSLAM(2) 

RE 

VSTAT(2) 

RE 

WD 

RE 

WEDS 

RE 

WEOF 

RE 

WEOFA 

RE 

WEOFB 

RE 

WEOFC 

RE 

WEOFD 

RE 

WEOFE 

RE 

WEOFHI 

RE 

WEOFLO 

RE 

WEOFR 

RE 

WEOFR1 

RE 

WEOFR2 

RE 

WEOFR3 

RE 

DESCRIPTION 

1-D  array  containing  the  static  shear  load  com- 
ponents scaled  by  SSTR  and  LAMST.  VSLAM(I) 
is  Vy  (lbs)  in  Equation  2-72,  the  shear  load  com- 
ponent along  the  y axis;  and  VSLAM(2)  is  Vz  (lbs) 
in  Equation  2-72,  the  shear  load  component  along 
the  z axis. 

1 -D  array  containing  the  static  shear  load  com- 
ponents. VSTAT(I)  is  Vy  0bs)  in  Equation  2-72, 
the  shear  load  component  along  the  y axis;  and 
VSTAT(2)  is  V2  (lbs)  in  Equation  2-72,  the  shear 
load  component  along  the  z axis. 

WD  (in.)  in  Equation  2-78,  the  Weld  Distance  from 
elbow  tangency  line,  (see  WEDS  in  DCTHCF) 

WD  (in.)  in  Equation  2-78,  the  WEId  Distance  from 
elbow  tangency  line,  (see  WD  in  ELWELD) 

woff  in  Equation  2-73,  the  randomly  selected  WEId 
OFfset  (%).  (see  WOFF  in  ELWELD) 

WOFF  lower  bound  of  Beta  distribution  1 . 

WOFF  upper  bound  of  Beta  distribution  1 . 

WOFF  lower  bound  of  Beta  distribution  2. 

WOFF  upper  bound  of  Beta  distribution  2. 

Decimal  equivalent  percentage  weight  occurring 
in  Beta  distribution  1 of  the  weld  offset  W^p 

Upper  bound  of  the  randomly  selected  Beta 
distribution  for  the  weld  offset  W^p 

Lower  bound  of  the  randomly  selected  Beta 
distribution  for  the  weld  offset  W^p 

Randomly  selected  Beta  distribution  location 
parameter  p for  the  weld  offset  WOFF. 

p Uniform  distribution  lower  bound  of  Beta 
distribution  1 of  W^p 

p Uniform  distribution  upper  bound  of  Beta 
distribution  1 of  W^p 

p Uniform  distribution  lower  bound  of  Beta 
distribution  2 of  W^p 
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Table  7-2  List  of  Variables  for  Program  DCTHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

WEOFR4 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  2 of  IV^p 

WEOFT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  the  weld  offset  WqpF. 

WEOFT1 

RE 

6 Uniform  distribution  lower  bound  of  Beta 
distribution  1 of  W^p 

WEOFT2 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  1 of  WqpF. 

WEOFT3 

RE 

8 Uniform  distribution  lower  bound  of  Beta 
distribution  2 of  W^p 

WEOFT4 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  2 of  IV^p 

WOFF 

RE 

W0pp  in  Equation  2-73,  the  randomly  selected 
Weld  OFFset  (%).  (see  WEOF  in  DCTHCF) 

WTID 

RE 

tw2  (in.)  the  Wall  Thickness  at  the  bend  Inner 
Diameter  at  the  weld,  (see  TIB  in  ELWELD) 

XI 

RE 

X1  in  Equations  2-74  through  2-77. 

X2 

RE 

X2  in  Equations  2-74  through  2-77. 

X3 

RE 

X3  in  Equations  2-74  through  2-77. 

X4 

RE 

X4  in  Equations  2-74  through  2-77. 

Z 

RE 

Z in  Equation  2-48,  the  randomly  selected  process 
variation  shift  factor  given  by  a Lognormal  (O.PVAR) 
random  variate. 

ZROREG 

INT 

ZeRO  REGion,  the  variable  permits  the  inclusion  of 
the  tensile  point  S0.  The  value  of  0 implies  a DO  loop 
from  zero  to  NUMREG,  while  a value  of  1 causes  the 
DO  loop  to  be  executed  from  one  to  NUMREG. 

1 The  need  for  saving  m’s  is 

discussed  on  Page  2-15. 

2 See  variable  BLFPER( ) for  a description  of  B-Iife. 

3 The  median  S/N  curve  for  the  truncated  Normal  case  is  discussed  on  Page  2-15. 

4 See  Section  2. 1.Z3  for  a discussion  on  process  variation  in  materials. 

5 m0of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

6 The  posterior  credibility  ranges  n{m)  are  discussed  on  Page  2-13. 

7 ot  of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

8 Extension  of  the  S/N  curve  to  the  left  using  the  tensile  point  is  discussed  on  Page  2-17. 
Disabled  for  this  application. 
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7.1 .1.4  Program  DCTHCF  Listing 


Routine Pfl9e 

Program  DCTHCF  Listing  Temporal  Order,  Uniform  Distribution 7-28 

Program  DCTHCF  Listing  Temporal  Order,  Truncated  Normal  Distribution 7-30 

DCTHCF 7-32 

INSORT 7-44 

PRYRV 7-45 

BETAGN 7-46 

GAM  7-46 

INFAGG 7-47 

TRMNAT 7-52 

INIT 7-52 

RCE  7-54 

CONVRT 7-61 

SW2SU2 7-62 

INTRVL 7-64 

FINDMC  7-68 

GTPVAR  7-69 

FNDRNG  7-71 

ADDREG  7-74 

CONCAV 7-76 

MEDIAN  7-77 

EXPCTD  7-78 

MUSIG 7-80 

NORRNG 7-82 

ADDRGN  7-84 

PAREST 7-86 

FINDM 7-88 

RANDOM  - 7-89 

FINDMN  7-90 

NORMGN 7-92 

TRNSFM 7-93 

SMNVAR  7-94 

KBETA  7-95 

FINDK 7-96 

FINDSB  7-97 

WEIBGN 7-98 

KOMO  7-99 

GTLIFE  7-100 

SORTM 7-101 

ELWELD 7-102 

M2L1 7-105 

M2L2 7-108 

CALCS 7-112 

NARBN1  7-114 
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Routine 


RAINF1  . 
PGETSM 


Page 

.7-116 

.7-120 


DCTHCF  Version  3.4 


Program  DCTHCF  Listing  Temporal  Order,  Uniform  Distribution 


Routine 


Page 


DCTHCF 7-32 

INFAGG 7-47 

INIT 7-52 

RCE 7-54 

CONVRT 7-61 

SW2SU2 7-62 

FINDMC  7-68 

INTRVL 7-64 

GTPVAR  7-69 

FNDRNG  7-71 

ADDREG  7-74 

CONCAV  7-76 

MEDIAN  7-77 

EXPCTD  7-78 

TRNSFM 7-93 

SMNVAR  7-94 

KBETA  : 7-95 

FINDK 7-96 

FINDSB  7-97 

KOMO  7-99 

RANDOM  7-89 

PRYRV 7-45 

RANDOM  7-89 

PAREST 7-86 

FINDM i 7-88 

RANDOM  7-89 

TRNSFM 7-93 

SMNVAR  7-94 

KBETA  7-95 

FINDK 7-96 

FINDSB  7-97 

NORMGN 7-92 

RANDOM  7-89 

BETAGN  7-46 

GAM  7-46 

RANDOM  7-89 

NORMGN 7-92 

RANDOM  7-89 

PRYRV 7-45 

RANDOM  7-89 

WEIBGN 7-98 

RANDOM  7-89 

ELWELD 7-102 

M2L1 7-105 
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Routine 


Page 


M2L2 7'108 

CALCS 7'112 

NARBN1  7*114 

RAINF1  7’116 

PGETSM 7-120 

GTUFE 7-100 

INSORT 7‘44 
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Program  DCTHCF  Usting  Temporal  Order,  Truncated  Normal  Distribution 

Routine Pa9e 

DCTHCF 7-32 

INFAGQ 7-47 
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C*********************************************************************** 
C PROGRAM  DCTHCF  CONTROLS  THE  FLOW  OF  LOGIC  OF  THE  HIGH  CYCLE 
C FATIGUE  ELBOW  WELDED  DUCT  PROBLEM 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  4SEP91 

C VERSION:  3.4  (MATCHR  V8.5,  PIPE  V8.3,  INSORT  V2.1) 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C u.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
c is  acknowledged. 

c** ****************************************************** *************** 


PROGRAM  DCTHCF 

SUBPROGRAMS:  INFAGG,  PARE ST,  PRYRV,  BETAGN,  NORMGN,  WEIBGN,  ELWELD, 

TRMNAT,  INSORT,  SORTM,  EXPTCD 

FILES:  1 : DCTHCD-OLD : 3:DCTHCO-NEW;  5 : RELATD-OLD ; 6 : RELATO-NEW ; 
7: DUMP-NEW;  8 : IOUTPR-NEW;  9 :LOWLIF-NEW; 

11-26 :user  named -OLD; 

NOTE:  566  ARE  OPENED  IN  'INFAGG' 


C IMPLICIT  NONE 


INTEGER  MAXBLF,  MAXDAT,  MAXLD,  MAXLIF,  MAXM,  MAXMM,  MAXREG 
REAL  PI 


PARAMETER  (MAXBLF  - 10.  MAXDAT  * 50.  MAXLD  * 16,  MAXLIF  * 10000, 
& MAXM  * 24000.  MAXMM  * 20001,  MAXREG  = 3, 

& PI  = 3.1415926536) 

COMMON  I OUT 


INTEGER 

& 

& 

& 


BLFPOS  (MAXBLF)  , CULPRT,  FILNUM (MAXLD) , I,  II,  IOUT,  J, 
K,  L,  LOCAT,  MCOUNT,  MID,  MPROC,  NBLIFE,  NHYPER,  NLIFE 
NLIFET,  NLOAD,  NMED,  NPTS  ( MAXREG ) , NRAN,  NUMREG, 

TYPE (MAXLD),  VARY,  ZROREG 


DOUBLE  PRECISION  RAND 


REAL  ALLM (MAXMM.  MAXREG) , ANGLE,  BIGK( 0 : MAXREG) , BIGK1, 

& BLFPER( MAXBLF) , BNRD,  BZERO,  CCY,  CCYA,  CCYB,  CCZ,  CCZA, 

& CCZB,  CLY,  CLYA,  CLYB,  CLZ,  CLZA.  CLZB,  DSTR,  DSTRA, 

& DSTRB,  ELWELD,  EMOD,  FIFTY,  FK(10),  FTU,  FTY,  GAM,  GAMA, 

& GAMB,  IDWE,  KGID,  KGOD,  KGODA,  KGODB,  KGODR,  KGODRl, 

& KGODR2,  KGODT,  KGODT1 , KGODT2,  KRATIO,  KT(2,2) , KWID, 

& KWIDA.  KWIDB,  KWIDR,  KWIDRl,  KWIDR2,  KWIDT,  KWIDTl, 

& KWIDT2,  KWOD,  KWODA,  KWODB,  KWODR,  KWODRl,  KWODR2 , 

& KWODT,  KWODT1,  KWODT2,  LAMN,  LAMNA,  LAMNB,  LAMNC,  LAMND, 

& LAMNK,  LAMNMU,  LAMNSG,  LAMS,  LAMSA,  LAMSB,  LAMSC,  LAMSD, 

& LAMSK,  LAMS MU,  LAMSSG,  LAMST,  LAMSTA,  LAMSTB,  LAMW, 

& LAMW  A,  LAMWB,  LIFE (MAXLIF) , LIMPR,  LNA( 0 : MAXREG) , LNZ, 

& LPHIM(0: MAXREG) 

REAL  M(2,  MAXLD),  MEDM ( MAXREG ) , MLAM  (2,  MAXLD), 

& MM(0 : MAXREG) , MNWT,  MSLAM( 2 ) , MSTAT ( 2 ) , MU ( MAXREG ) , 

& NBND ( 0 : MAXREG) , NEWLIF,  NF (MAXDAT,  MAXREG),  OVAL,  OVALA, 

& OVALB,  P( MAXLD) , PERIOD,  PHI,  PLAM(MAXLD) , PSIG,  PSLAM, 

& PSTAT,  PVAR,  RANGEM(2,  MAXREG),  RT(10) , SBND( 0 :MAXREG) , 

& SIG ( MAXREG ) , SSTR,  SSTRA,  SSTRB,  STR ( MAXDAT , MAXREG), 

& STRHIS (MAXLD,  MAXM),  SZERO,  T( MAXLD) , TEST,  TLAM(MAXLD), 

& TRSBND(0:MAXREG) , TRUNC,  TSLAM,  TSTAT,  V(2,  MAXLD), 

& VLAM(2,  MAXLD),  VSLAM(2) , VSTAT(2),  WEDS.  WEOF,  WEOFA, 

& WEOFB.  WEOFC,  WEOFD,  WEOFE,  WEOFHI,  WEOFLO,  WEOFR, 

& WEOFRl , WEOFR2,  WEOFR3.  WEOFR4,  WE OFT,  WEOFT1,  WEOFT2, 

4 WEOFT3,  WEOFT4,  WTID,  Z 


& 

& 


CHARACTER* 6 LDNAME ( MAXLD ) 
LOGICAL  FTEST 

DATA  (FILNUM(I),  I « 1,  MAXLD) 
ll,  12,  13,  14,  15,  16,  17 
21,  22,  23,  24,  25,  26  / 


/ 


18, 


19,  20, 
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c **  SEE  BOTTOM  OF  PROGRAM  FOR  LIST  OF  VARIABLES 


OPEN  < 

;i. 

FILE 

' DCTHCD ' , 

STATUS 

K 

'OLD 

OPEN  \ 

3 

FILE 

m 

' DCTHCO ' , 

STATUS 

■ 

'NEW 

OPEN  j 

;7, 

FILE 

m 

'DUMP'# 

STATUS 

m 

'NEW 

OPEN  < 

8 

FILE 

m 

9 IOUTPR ' , 

STATUS 

m 

'NEW 

OPEN  < 

[9, 

FILE 

* 

'LOWLIF ' , 

STATUS 

m 

'NEW 

C INITIALIZE  LOAD  ARRAYS 

PSTAT  ■ 0.0 
TSTAT  - 0.0 
MSTAT(l)  = 0.0 
MSTAT ( 2 ) ■ 0.0 
VSTAT(l)  - 0.0 
VSTAT ( 2 ) = 0.0 
PS LAM  =0.0 
TSLAM  =0.0 
MSLAM(l)  =0.0 
MSLAM(2)  = 0.0 
VSLAM(l)  =0.0 
VSLAM(2 ) * 0.0 


DO  10  I = 1,  MAXLD 
P(I)  = 0.0 
PIAM(I)  =0.0 
0.0 
■ 0.0 
0.0 


0.0 


= 0.0 
= 0.0 


0.0 

0.0 


0.0 

.0 


READ( 1,* ) RAND 
WRITE l 8,*)  ' 

READ(1.*)  IOUT 

WRITE ( o,  *)  'IOUT  (MATCHR 

READ( 1 #* ) NLIFE 

WRITE ( 8,  *)  ' 

READ  ( 1 , * ) NHYPER 
WRITERS,*)  ' 

READ(1,*)  VARY 
WRITE ( 8 , * ) ' 

READ ( 1 , * ) NMED 
WRITE ( 8 , * ) ' 

READ( 1,*)  MPROC 
WRITE(8,^‘  ' 

WRITE  ( 8 


*,*>  ' 


RANDOM  NUMBER  SEED 

10,  DCTHCF  ■ 15,  EL WELD  = 25) 

INNER  UOGte  SIZE 

OUTER  LOOP  SIZE 

TYPE  OF  S/N  VARIATION  DESIRED 

NORMAL  MEDIAN  CURVE  (0  - NO,  1 - YES)  > 

MATERIALS  PROCESS  VARIATION  DESIRED' 
(0  - NO,  1 - YES)  ■ 


m t 


, RAND 
, IOUT 
, NLIFE 
, NHYPER 
,VARY 
, NMED 

, MPROC 


IF  ((VARY  .LT. 
WRITE (8,*) 
CALL  TRMNAT 
END  IF 

IF  ((NMED  .NE. 
WRITE (8, *) 


0)  .OR.  (VARY  .GT.  3))  THEN 

'ERROR:  INVALID  TYPE  OF  S/N  VARIATION  DESIRED' 


0)  .AND.  (NMED  .NE.  1))  THEN 
'ERROR:  INVALID  RESPONSE  TO  NORMAL  MEDIAN  ', 

'CURVE  QUESTION' 


CALL  TRMNAT 
ENDIF 


IF  ( (MPROC  .LT 
WRITE (8,*) 

& 

CALL  TRMNAT 
ENDIF 


. 0)  .OR.  (MPROC  .GT.  1))  THEN 

'ERROR:  INVALID  TYPE  OF  MATERIALS  PROCESS 

'VARIATION  DESIRED' 


t 


READ ( 1 , * ) NBLIFE 
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DO  15  J * 1,  NBLIFE 
READ(1,*)  BLFPER(J) 

15  CONTINUE 

C **  READ  DATA  FROM  DCTHCD 

READ( 1,*)  WEOFA,  WEOFB,  WEOFRl,  WEOFR2,  WEOFT1,  WEOFT2 , 

fc  WEOFC,  WEOFD,  WEOFR3,  WEOFR4,  WEOFT3,  WEOFT4, 

& WEOFE, 

& KWODA,  KWODB,  KWODRl,  KWODR2,  KWODTl,  KWODT2, 

& KWIDA,  KWIDB,  KWIDRl,  KWIDR2 , KWIDTl,  KWIDT2 , 

& KGODA,  KGODB,  KGODRl,  KGODR2,  KGODTl,  KGODT2 , 

& LAMNA,  LAMNB,  LAMNC,  LAMND, 

& LAMSA,  LAMSB,  LAMSC,  LAMSD, 

& LAMSTA, LAMSTB, DSTRA,  DSTRB,  SSTRA,  SSTRB, 

i CLZA,  CLZB,  CLYA,  CLYB, 

& CCZA,  CCZB,  CCYA,  CCYB, 

t OVALA,  OVALB,  LAMWA,  LAMWB.  GAMA,  GAMB 

READ( 1 *)  NLOAD,  PSTAT,  TSTAT , MSTAT(l),  MS TAT ( 2 ) , VSTAT(l), 

& VSTAT ( 2 ) 

DO  20  I = 1,  NLOAD 

READ(1,*)  LDNAME ( I ) , TYPE(I),  P(I),  T(I),  M(1,I),  M(2,I), 

& V(1,I),  V ( 2 , 1 ) 

IF  ( (TYPE(I)  .LT.  lj  .OR.  (TYPE(I)  .GT.  2))  THEN 
WRITE (8,*)  'ERROR:  LOAD  INCORRECTLY  TYPED' 

CALL  TRMNAT 
ENDIF 
20  CONTINUE 

READ( 1, *)  KGID,  KT(2,1),  KT(2,2),  LIMPR,  BNRD,  WEDS,  IDWE, 

& MNWT,  WTID,  EMOD,  LOCAT,  ANGLE,  PERIOD,  TRUNC,  NRAN 

READ( 1, *)  (FK( I ) , RT ( I ) , 1*1,  10) 


C **  ECHO  DATA  TO  DCTHCO 


WRITE (3, 9 00 
WRITE (3, 901 


& 

f, 


WRITE (3, 902 
WRITE(3,903 
WRITE: 3,904 
WRITE (3, 9 05 
WRITE(3,906 
WRITE(3,907 
& 

& 

& 

WRITE (3, 9 10 
DO  25  I * 1 
WRITE ( 3 , 

& 

25  CONTINUE 
WRITE(3,920 

& 

& 


) WEOFA,  WEOFB, 
WEOFC , WEOFD , 
WEOFE 

) KWODA,  KWODB, 
) KWIDA,  KWIDB, 
) KGODA,  KGODB, 
) LAMNA,  LAMNB, 
) LAMSA,  LAMSB, 
) LAMSTA, LAMSTB 
CLZA,  CLZB, 
CCZA,  CCZB, 
OVALA,  OVALB, 
) PSTAT,  TSTAT, 
NLOAD 

LDNAME ( I ) , 
V(2,I) 

) KGID,  KT(2 , 1 
MNWT,  WTID, 
NLOAD,  NRAN 


§11) 


WEOFRl,  WEOFR2,  WEOFTl,  WEOFT2 , 

WEOFR3,  WEOFR4 , WEOFT3,  WEOFT4 , 

KWODRl,  KWODR2,  KWODTl,  KWODT2 
KWIDRl,  KWIDR2,  KWIDTl,  KWIDT2 
KGODRl,  KG<X)R2,  KGODTl,  KGODT2 
LAMNC,  LAMND 
LAMSC,  LAMSD 

, DSTRA,  DSTRB,  SSTRA,  SSTRB, 

CLYA,  CLYB, 

CCYA  CCYB 

LAMWA,  LAMWB, EXP (GAMA) , EXP (GAMB 1 
MSTAT(l),  MSTAT( 2 ) , VSTAT(l),  VSTAT(2) 

P(I),  T(I) , M( 1, 1 ) , M(2 , 1) , V(1,I), 


),  KT(2, 2) . LIMPR,  BNRD,  WEDS,  IDWE, 
EMOD,  LOCAT,  ANGLE,  PERIOD,  TRUNC, 


IF  (NRAN  .GT.  MAXM)  THEN 

WRITE (8,*)  'ERROR:  STRESS-TIME  HISTORY  TOO  LARGE' 

CALL  TRMNAT 
ENDIF 


DO  30  I * 1,  NLOAD 

INQUIRE  (FILE  = LDNAME (I),  EXIST  = FTEST) 

IF  (FTEST  .EQV.  .TRUE.)  THEN 

OPEN  (FILNUM(I),  FILE  * LDNAME ( I ) , STATUS  * 'OLD') 
DO  31  J = 1,  NRAN 

READ <FILNUM( I ) , * ) STRHIS(I,J) 

31  CONTINUE 

CLOSE  ( FILNUM ( I ) ) 

else 

WRITE (8,*)  'ERROR:  CANNOT  OPEN  FILE,  ',  LDNAME(I), 
& ' DOES  NOT  EXIST' 

CALL  TRMNAT 
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END  IF 
30  CONTINUE 


C ** 
C 


CALL  INFAGG  TO  PERFORM  THE  INFORMATION  AGGREGATION  MODEL  ASPECT 
OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 


CALL  INFAGG  (RANGEM,  MU,  SIG,  NF,  NPTS, 
i NBND,  STR,  FTU,  FTY , VARY, 


SZERO, 

MPROC, 


ZROREG,  NUMREG, 
KRATIO,  PVAR) 


ZROREG  * 1 
SZERO  “ 0.0 

IF  (MPROC  .EQ.  1)  PSIG  - SQRT  (PVAR) 
MCOUNT  “ 0 

C **  INITIALIZE  VARIABLES 

DO  35  K - 1,  MAXLIF 
LIFE(K)  = 1.0E+36 
35  CONTINUE 

DO  40  J - 1,  MAXBLF 
BLFPOS(J)  = 0 
40  CONTINUE 


NLIFET  - N HYPER  * NLIFE 
ANGLE  = ANGLE  * PI  / 180.0 

C **  OUTER  LOOP  — THIS  LOOP  SAMPLES  HYPER-PARAMETER  SETS 
DO  150  K = 1,  NHYPER 

C **  raT.T.  PRYRV  TO  OBTAIN  RHO,  THETA  PAIRS  FOR  INNER  LOOP  CALCULATIONS 

CALL  RANDOM  (TEST,  RAND) 

IF  (TEST  .LE.  WEOFE)  THEN 

CALL  PRYRV  ( RAND  , WEOFRl , WEOFR2  , WEOFT 1 , WEOFT2,  WEOFR,  WEOFT) 
WEOFLO  - WEOFA 
WEOFHI  - WEOFB 
ELSE 

CALL  PRYRV  ( RAND , WEOFR3 , WEOFR4 , WEOFT 3 , WEOFT4 , WEOFR,  WEOFT) 
WEOFLO  = WEOFC 
WEOFHI  = WEOFD 
ENDIF 

IF  (I OUT  .EQ.  15)  THEN 

WRITE ( 8 , * ) 'TEST  =' , TEST,  ' WEOFE  = ',  WEOFE 
'3,*}  M 


r WEOFE 

'WEOFLO  =' , WEOFLO,  ' WEOFHI 


WEOFHI 


WRITE (8, 

ENDIF 

CALL  PRYRV  (RAND,  KWIDR1,  KWIDR2,  KWIDT1,  KWIDT2,  KWIDR,  KWIDT) 

CALL  PRYRV  (RAND,  KWODRl,  KWODR2,  KWODTl,  KWODT2,  KWODR,  KWODT) 

CALL  PRYRV  (RAND,  KGODR1 , KGODR2,  KGODT1,  KGODT2 , KGODR,  KGODT ) 

CALL  PRYRV  (RAND,  LAMNA,  LAMNB,  LAMS A,  LAMSB,  LAMNK,  LAMSK) 

--- — ' 1.0  + LAMNK  * LAMNC) 

1.0  + LAMNK  * LAMNC) 

1.0  + LAMSK  * LAMSC) 


LAMNMU  * LAMND  / 
LAMNSG  = LAMNC  / 
LAMS MU  = LAMSD  / 


LAMSSG  = LAMSC  / (1.0  + LAMSK  * LAMSC) 


& 

& 


IF  ( IOUT  .EQ.  15)  THEN 
WRITE ( 8 , * ) 'LAMNK  * ‘ 
' LAMNSG  - 
WRITE (8,*)  'LAMSK  = 1 
' LAMSSG  ” 

ENDIF 


, LAMNK,  1 
',  LAMNSG 
, LAMSK,  ‘ 
' , LAMSSG 


LAMNMU 
LAMS  MU 


LAMNMU, 
LAMS MU, 


C **  CALL  PAREST  TO  PERFORM  THE  PARAMETER  ESTIMATION  ASPECT  OF  THE 
C MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  PAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG, 
fc  'RAND,  NBND,  STR,  BIGK,  BZERO,  MM,  SBND) 

C **  OBTAIN  MATERIALS  PROCESS  VARIATION  PARAMETERS  IF  DESIRED 
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CALL  NORMGN  (RAND,  0.0,  FSIG,  LNZ) 

IF  ( MPROC  .EQ.  1)  THEN 
Z - EXP  (LNZ) 

ELSE 

KRATIO  - 1.0 
Z “ 1.0 
LNZ  - 0.0 
ENDIF 

MCOUNT  ■ MCOUNT  + 1 
DO  175  L - 1,  NUMREG 

ALLM( MCOUNT,  L)  - MM(L) 

175  CONTINUE 

C **  INNER  LOOP  — THIS  LOOP  GENERATES  DUCT  LIVES  TO  FAILURE 


DO  200  I - 1,  NLIFE 
C **  INITILIZE  S/N  CURVE  PARAMETERS 


225 


DO  225  L - 0 
LNA(L)  - 
LPHIM(L) 
TRSBND(L) 
CONTINUE 


, MAXREG 
6.0 
- 0.0 
« 0.0 


C **  SELECT  DRIVERS  FOR  CALCULATING  LIFE 

CALL 

BETAGN  ( 

RAND, 

WEOFR, 

WEOFT, 

WEOFLO, 

. WEOFHI 

WEOF) 

CALL 

BETAGN 

RAND, 

KWIDR, 

KWIDT, 

KWIDA, 

KWIDB, 

KWID) 

CALL 

BETAGN  \ 

|rand. 

KWODR, 

KWODT, 

KWODA, 

KWODB, 

KWOD) 

CALL 

BETAGN 

[RAND, 

KGODR, 

KGODT, 

KGOD  A, 

KGODB, 

KGOD) 

CALL 

NORMGN 

RAND, 

LAMNMU 

, LAMNSG,  LAMN) 

1 

CALL 

NORMQ^ 

[RAND, 

LAMS  MU 

, LAMSSG,  LAMS 

) 

OVAL, LAMST 

CALL 

PRYRV 

[RAND, 

OVALA, 

OVALB, 

LAMSTA,LAMSTB, 

CALL 

PRYRV 

RAND, 

DSTRA, 

DSTRB, 

SSTRA, 

SSTRB, 

DSTR,  SSTR 

CALL 

PRYRV 

[RAND, 

CLZ  A, 

CLZB, 

CLYA, 

CLYB, 

CLZ,  CLY) 

CALL 

PRYRV 

[RAND, 

CCZA, 

CCZB# 

LAMWB, 

CCYA, 

CCYB, 

CCZ,  CCY) 
LAMW,  GAM) 

CALL 

PRYRV 

[RAND, 

LAMWA, 

GAMA, 

GAMB, 

GAM  - EXP (GAM) 

CALL  WEIBGN  ( BZERO,  RAND,  PHI) 


IF  (VARY  .EQ.  0)  PHI  - 1.0 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE(8,*i 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE (8,*) 
ENDIF 


15)  THEN 

'WEOF  , WEOF, ' KWID  ,KWID, ’ KWOD  ,KWOD 

' KGOD  = ' , KGOD , ' LAMN  ■' ,LAMN, ' LAMS  -',LAMS 

'LAMST  »' , LAMST, ' DSTR  »' ,DSTR, ’ SSTR  »' ,SSTR 

' CLZ  - CLZ,  ' CLY  - ',  CLY 

'CCZ  - ',  CCZ,  ' CCY  - ',  CCY 

'OVAL  « ' , OVAL , ' LAMW  ■ ' ,LAMW 

'GAM  =' ,GAM, ' PHI  -',PHI 


C **  SCALE  TIME-VARYING  LOADS 


PSLAM  - PSTAT  * LAMST  * SSTR 
TSLAM  * TSTAT  * LAMST  * SSTR 
MSLAM(l)  ■ MSTAT(l)  * LAMST  * SSTR 
MSLAM(2 ) * MSTAT ( 2 ) * LAMST  * SSTR 
VSLAM(l)  * VSTAT(l)  * LAMST  * SSTR 
VSLAM(2 ) “ VSTAT ( 2 ) * LAMST  * SSTR 


DO  235  II  «=  1,  NLOAD 
IF  (TYPEJII)  .EQ. 
PLAM(II) 

TLAM 


MLAM 
MLAM(2, II 


VLAM( 1,11 ) 
VXAH(2, II ) 
ELSE 

PLAM(II)  = 


1)  THEN 

P(II)  * LAMN  * DSTR 
* LAMN  * DSTR 

* LAMN  * DSTR 

* LAMN  * DSTR 

* LAMN  * DSTR 

* LAMN  * DSTR 


?SUr 

: W:8 

- V(2,II) 

P(II)  * LAMS  * DSTR 
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TLAM(II)  - 
MLAMf 1 , II ) 
MLAM(2 , XX ) 
VLAM( 1, II) 
VLAM(2 , IX) 
END  IF 
CONTINUE 


T(II)  * I 

- M( 1, II) 

- M(2,II) 
« V(1,II) 

- V 2,11 


LAMS  * DSTR 
) * LAMS  * DSTR 
) * LAMS  * DSTR 
) * LAMS  * DSTR 
) * LAMS  * DSTR 


IF  ( I OUT  .EQ.  151  THEN 

WRITE ( 8 , * ) 'STATIC  LOADS' 

WRITE ( 8 , * ) ' P * ',  PS LAM,  ' T 
' M2  - ',  MS  LAM  ( 1) 
WRITE ( 8 , * ) ' M3  - ',  MSLAMI2), 
' V3  - VSLAM(2) 
WRITE (8,*)  'TIME- VARYING  LOADS' 
DO  240  II  - 1,  NLQAD 


',  TSLAM, 

V2  « ',  VSLAM(l) , 


240  CONTINUE 

ENDIF 

C **  CALCULATE  AXIAL  Kt'S 


WRITE (8,*)  'TIME- VARYING  LOADS' 

DO  240  II  - 1,  NLQAD 

WRITE ( 8 , * ) II,  ' TYPE  - ',  TYPE ( II ) 

WRITE ( 8 , * ) ' P - ',  PLAM(II),  1 T « TLAM(II), 
' M2  - ',  MLAM(l.II) 

WRITE ( 8 , * ) ' M3  = ',  MLAM(2,II),  ' V2«  ', 

VLAM( 1,11),  ' V3  - ',  VLAM(2, II) 


KGOD  * KWOD 
KGID  * KWID 


KT( 1 , 1 ) - KGOD  * KWOD 
KT(1,2)  - KGID  * KWID 

IF  (IOUT  .EQ.  15) 

£ WRITE (8,*)  'KT( 1,1)  * ',  KT(1,1),  ' KT(1,2)  * ',  KT(1,2) 

C **  CALCULATE  REGION  DEPENDENT  S/N  CURVE  PARAMETERS 


DO  250  L ■ ZROREG,  NUMREG 

LNA(L)  * MM(L)  * ALOG(BIGK(L) ) 
LPHIM (L)  - MM(L)  * ALOG(PHI) 
TRSBND (L)  ■ SBND(L)  * PHI  * KF 
IF  (IOUT  .EQ.  15)  THEN 


!BND(L)  - SBND(L)  * PHI  * KRATIO  * Z 
(IOUT  .EQ.  15)  THEN 

WRITE ( 8 , * ) 'L  L,  ' MM  -' , MM(L) , 

.WRITE( 8,*)  'LNA  =' , LNA(L),  ' PHI 


BIGK  -',BIGK(L) 


WRITE ( 8 , * ) 'LPHIM  ■ 
WRITE ( 8 , * ) 'KRATIO 
WRITE ( 8 , * ) 'TRSBND 
ENDIF 
CONTINUE 


'LNA  =',  LNA(L1,  ' PHI  PHI 
'LPHIM  *»',  LPHIM(L),  ' SBND  *',  SBND(L) 
'KRATIO  “ ',  KRATIO,  ' Z «=  ' , Z 


TRSBND (L) 


C **  CALL  EL WELD  OF  PIPE  V8.3  TO  CALCULATE  FATIGUE  LIFE 

NEWLIF  = GAM  * ELWELD  (PSLAM,  MS LAM,  TSLAM,  VS LAM,  NLQAD, 

£ PLAM,  MLAM,  TIAM,  VLAM,  TTY,  FTU,  EMOD,  KT, 

£ LIMPR,  WTID,  MNWT,  IDV«:,  WEOF,  LAMW,  BNRD, 

£ WEDS,  FK,  RT,  CCY,  CCZ,  CLY,  CLZ,  OVAL, 

£ LOCAT,  MM,  LNA,  LPHIM,  KRATIO,  LNZ , TRSBND, 

£ SZERO,  ZROREG,  NUMREG,  STRHIS,  NRAN, 

£ PERIOD,  TRUNC,  ANGLE,  CULPRT) 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'NEWLIF  = ',  NEWLIF 

IF  (NLIFET  .GE.  100)  CALL  INSORT  (NEWLIF,  LIFE,  NLIFET) 

200  CONTINUE 

150  CONTINUE 

IF  (NLIFET  .GE.  100)  THEN 
C **  PRINT  SORTED  LIVES 

DO  300  J * 1,  (NLIFET  / 100) 

WRITE ( 9 , * ) J,  FLQAT(J) /FLOAT (NLIFET ) , LIFE(J) 

300  CONTINUE 

C **  PRINT  EMPIRICAL  BLIVES 
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FIFTY  • 0.50E0 


WRITE(3,925} 

DO  356  J « 1,  NBLIFE 

BLFPOS(J)  - NINT  (BLFPER(J)*  FLOAT  (NLIFET) ) 

WRITE( 3,926)  BLFPER(J),  LlPE(BLFPOS(J) ) 

350  CONTINUE 

WRITE (3, 926)  FIFTY,  LIFE (NLIFET/ 2) 

ENDIF 

C **  CALCULATE  NORMAL  MEDIAN  CURVE  IF  DESIRED 

IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  THEN 

CALL  SORTM  (ALLM,  NUMREG,  MCOUNT) 

MID  - MCOUNT  / 2 
DO  400  L * 1,  NUMREG 

MEDM(L)  = ALLM ( MID, L) 

400  CONTINUE 

CALL  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGKl,  BZERO) 


ENDIF 


C **  FORMAT  STATEMENTS  TO  ECHO  INPUT  DATA  TO  DCTHCO 


900  FORMAT(2X, 'Copyright  (C)  1990,  California  Institute  of  * , 

& 'Technology.  U.S.  Government’ ,/,2X, 'Sponsorship  under 

& 'NASA  Contract  NAS7-918  is  acknowledged.',////, 

& 33X, ' INPUT  DATA' , 

6 III, 14X, ' DRIVERS ' , 25X, ' PARAMETER  DISTRIBUTIONS ' , 

& //,48X, 'RHO' ,16X, 'THETA' ) 


901  FORMAT(/,2X, 'WELD  OFFSET  <%) ' , 3X, 'Be( ' , F4 .2 , ' , ' ,F5.2, ' ) ' , 6X, 

& 'U( ' ,F7.5, ' , ' ,F8.5, ' ) ' ,4X, 'U< ' ,F4. 1, ' , ' ,F5.1. ' > ' /,20X, 

& 'Be( ' ,F4 ' ,F5.$,  ) ' ,6k. ’VS i ' ,F7 .5, ' , ' ,F8.S, ' ) ' , 4X, 

& 'U( ' ,F4 . 1, ', ', F5. 1, ')',/, 2oX, 'TEST  * ',F4.2) 


,F5.2.')' 
', ',F5.i, 


903  FORMAT(/,2X, 'K  WELD  (ID) ' ,7X, 'Be( ' ,F4 .2, ' . ' ,F5.2, ' ) ' , 6X, 
& ''6('>7.5,  ',  ',F8.5,')',4X,  '6( ' ,F4. 1,  ' , ' ,f5. 1,  ' ) ' ) 


,F5.2, '} ' 
',',f6.1. 


6X 

)') 


905  FORMAT(//.2X, 'LAMBDA  RANDOM', 5X,'k:  U(' ,F7 .5, ' , ' ,F8.5, ' ) ' , 
& /,20X, 'COEFFICIENT  OF  VARIATION:  ',F5.3, 

& /,20X, 'STRAIN  GAGE  FACTOR:  ',F9.7) 


906  FORMAT (/,2X, 'LAMBDA  SINE' ,7X, 'k:  U( ' ,F7 .5, ' , ' .F8.5, ' ) ' , 
f,  /,20X, 'COEFFICIENT  OF  VARIATION:  ',F5.3, 

& /,20X, 'STRAIN  GAGE  FACTOR:  ',F9.7) 


907 


FORMAT(//,2X, 'LAMBDA  STATIC', 23X,'U(',F8.5,',',F9.5,')', 

& //,2X, 'DYNAMIC  STRESS  ANALYSIS' , 13X, 'U( ' ,F8.5, ', ',F9 .5, ') ' 

fc  //,2X, 'STATIC  STRESS  ANALYSIS' , 14X, 'U( ' ,F8.5, ',' ,F9 . 5, ')' , 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


/ . ’ xn—JTJUHnc.  uai i inn  # ja,  « 

/ , 5X  ' OUT-OF—PLANE  CIRCUMFERENTIAL ' , 

5X, 'U( ' ,F8.5, ' , ' ,F9.5, ' ) ' ,//, 

2X, 'OVALITY  ANALYSIS  FACTOR' , 13X, 'U( ' ,F8 .5, ' , ' ,F9 . 5, ' ) ' , 
//,2 X, 'LAMBDA  KOFF' ,25X, 'U( ' ,F8.5, ', ' .F9.5. ' ) ' , 

//,2X, 'DAMAGE  MODEL  ACCURACY' , 15X, 'U(ln' ,F8. 5, 

',  In' ,F8.5, ' ) ' ) 
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910  FORMAT (////,28X, 'LOADS  INPUT' ,///, 5X, 'P  LOADS', 5X,'T  LOADS ',5X, 
S'M2ioADS' ,4X. 'M3  LOADS  \4X, 'V2  LOADS' ,4X, *V3  LOADS', 

l /,6X, ' (LBs) ' , §X, ' (IN. -LBS) ' ,4X, ' (IN. -LBS) ' , 

£ 3X, ’ (IN.-LBS) ' , §X, ' (LBS) ' ,6X, ' (lis) ' , 

r / / 2 x ' STATIC 9 

l /,^X,H0.4,2X,H0.4,2X,FlO.4,2X,Fl0.4,2X,FlO.4,2X,ri0.4) 

911  FORMAT(2X,A6,/,2X,F10.4,2X,F10.4,2X,F10.4,2X,F10.4,2X,F10.4, 

£ 2X,F10.4) 

920  FORMAT(////,20X, 'GEOMETRIC  AND  OTHER  INPUT', 

£ ///.2X, 'K  GEOM  (ID) ' .41X.F4.2, 

£ //,2X, 'K  HOOP  (OD)  ,41X,F4.2, 

£ //,2X,'K  HOOP  (ID) ' ,41X,F4.2, 

& //,2X, 'LIMIT  PRESSURE,  PSI' ,29X,F6 . 0, 

6 //,2X, 'BEND  RADIUS,  IN. ',35X,F5. 2,//,  

6 2X, 'wfaj)  DISTANCE  £rOM  ELBOW  TANGENCY  LINE,  IN.  ,8X,F6.3, 

£ //,2X, 'DUCT  INSIDE  DIAMETER,  IN. ' ,26X,F5.2, 

£ //,2X, 'MINIMUM  WALL  THICKNESS,  IN. ' ,25X,F6.4, 

£ //'2X, 'WALL  THICKNESS  AT  BEND  (ID),  IN. ',20X,F6.4, 

£ //,2X, 'ELASTIC  MODULUS,  PSI',32X,  E9.3, 

£ //2X, 'ANALYSIS  LOCATION', 35X.I1, 

£ //'2X, 'ANGLE  PHI  (DEG)', 34X,F6.1, 

£ //'2X, 'STRESS-TIME  HISTORY  PERIOD,  SEC' ,20X,F5.2, 

£ //,2X, 'STRESS-TIME  HISTORY  NOISE  FILTER,  PSI' , 11X,F7 . 1, 

£ / / , 2X ' ' NUMBER  OF  TIME-VARYING  LOADS ' , 23X, 12 , 

£ //,2X, 'NUMBER  OF  POINTS  IN  HISTORIES' , 19X, 15) 


925  FORMAT (///,2X, 'B  LIVES: 

926  FORMAT (2X,F7 . 5,5X,E13.6) 


EMPIRICAL',/) 


C*********************************************************************** 

c SAMPLE  ' DCTHCD ' INPUT  FILE 

r*********** ******************************** *************************** 

C 675 RANDOM  NUMBER  SEED 

C o OUTPUT  DUMP  CONTROLLER 

C 100 INNER  LOOP  SIZE 

C 200 OUTER  LOOP  SIZE 

c S/N  VARIATION 

c 1 NORMAL  MEDIAN  REQUIRED 

c 0 MATERIALS  PROC.  VAR.  NOT  REQUIRED 

c 3"  NUMBER  OF  BLIVES  TO  BE  PROVIDED 

C OIOOOI B. 01  LIFE 

C 0.001 1 LIFE 


0*20 

0.50 

0.50 

0.00 

0.8 

0.2 

0.5 

5. 

5 

10 

i.80 

6.30 

6.70 

6.5 

“io 

1.43 

0.30 

0.70 

0.5 

10 

1.34 

0.30 

0.70 

0.5 

10 

.K  WELD 


■&8J  I 


R1,R2)  (Tl,T2) 
R1,R2)  (Tl,T2) 


i!34  0!30  0:76  Ois  10. ..K  GEOM  (od)  (A;b)(R1,R2)  (T1.T2) 

3.00  0.15  0.90 LAMBDA  NARROW-BAND  RANDOM:  K:  U(A,B) , 

COEFF.  OF  VAR.,  STRAIN  GAGE  FACTOR 

3.00  0.20  0.90 LAMBDA  SUPERIMPOSED  SINE:  k:  U(A,B) , 

COEFF.  OF  VAR.,  STRAIN  GAGE  FACTOR 

LAMBDA  STATIC  

120  DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR 

l*10l*[” STATIC  STRESS  ANALYSIS  ACCURACY  FACTOR 

STRESS  CARRYOVER  FACTORS: 

0.60 IN-PLANE  AXIAL 

0.60 OUT-OF-PLANE  AXIAL 

0 60  IN-PLANE  CIRCUMFERENTIAL 

0^60! OUT-OF-PLANE  CIRCUMFERENTIAL 

1#  15 OVALITY  ANALYSIS  ACCURACY  FACTOR 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


0.95  1.05 LAMBDA  K WELD  OFFSET  ACCURACY  FACTOR 

-1.38629  0.95166 .MODEL  ACCURACY 

NUMBER  OF  LOADS 


PSTAT 

8130.00 


TSTAT 

20900.00 


MSTAT { 1 ) 
42010.06 


MSTAT ( 2 ) 
42010.06 


VSTAT(l) 

3805.00 


VSTAT(2) 

3805.00. 


.STATIC 

.LOADS 


T()  M<1,*)  M<2,*)  V(l,*)  V<2,*) LOADS 

1 237.675  0.00  0.00  0.00  0.00  0.00 RANDOM  1 

1 0.00  103.41  0.00  0.00  0.00  0.00 RANDOM2 

1 0.00  0.00  181.21  0.00  0.00  0.00. RANDOM3 

1 0.00  0.00  0.00  626.175  0.00  0.00 RANDOM4 

1 0.00  0.00  0.00  0.00  147.49  0.00 RANDOMS 

1 0.00  0.00  0.00  0.00  0.00  34.075. .. .RANDOM6 

2 4.889461  1.88731  3.002265  8.618995  13.91015  0. 829459 . .SINE1 

2 17.2329  12.6415  0.182346  38.4677  54.89455  2.90558. . .SINE2 

2 3.117695  2.764815  4.45821  29.7981  4.905385  0.691592 . .SINE3 

2 1.107417  0.856604  1.17435  3.663675  1.350412  0.414575 . .SINE4 

2 10.23887  11.81905  137.38  28.5843  6.0813  13 .24209 . .SINE5 

2 2.151205  1.62707  0.430078  5.991475  7.077595  0.395232 . .SINE6 

2 4.13738  8.509805  5.235795  71.06695  15.61234  1.242015 . .SINE7 

2 9.1491  0.904076  5.953345  0.934805  5.04324  0. 843876 . .SINE8 

2 32.10965  0.084774  1.236315  23.9187  16.7327  0. 162597 . .SINE9 

2 79.7046  7.056975  2.48936  35.04565  36.66045  4. 07806 . . .SINE10 


FILE  TYPE  P ( ) 


'NBP' 

'NBT' 

' NBM2 ' 

' NBM3 ' 
'NBV2 ' 
'NBV3 ' 

' SINl 9 
' SIN2 ' 

' SIN3 ' 

' SIN4 ' 

' SINS' 

' SIN6 ' 

' SIN7 ' 

' SIN8 9 
' SIN9 ' 

' SIN10 ' 


1.0 K GEOM  (ID) 

1.0 K HOOP  (OD) 

1.0  K HOOP  (ID) 

4902 LIMIT  PRESSURE,  PSI 

6.0  BEND  RADIUS,  IN 

.112 WELD  DIST.  FROM  ELBOW  TANG.  LINE,  IN 

4.0  DUCT  INSIDE  DIAMETER,  IN 

0.113 MINIMUM  WALL  THICKNESS,  IN 

0.134 WALL  THICKNESS  AT  BEND  (ID),  IN 

3 . 0 1E+0  7 ELASTIC  MODULUS 

1 LOCATION  OF  INTEREST 

90.0  ANGLE  OF  INTEREST  (DEG) 

1.0  STRESS-TIME  HISTORY  PERIOD  (SEC) 

500.0  STRESS-TIME  HISTORY  NOISE  FILTER  (PSI) 

1000.. NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY 

0.615  2.00 

0.693  4.80 

0.753  7.20 

0.813  9.60 

0.873  12.50 

0.933  15.80 

0.993  20.00 

1.029  24.00 

1.053  30.00 

1.053  200.00 

' -320  HOURGLASS  + STRAIGHT 
178600 


20  0.05 

150000. 
140000. 
120000. 
160000. 
130000. 
110000. 
100000. 
105000. 
92000. 
95000. 
150000. 
140000. 
130000. 
120000. 
110000. 
100000. 
92000. 
94000. 
90000. 
86000. 


220400.  1 20 YIELD  & ULTIMATE  STRENGTHES,  NDIV,  NPTS 

1 # PTS  IN  DIV,  STRESS  RATIO,  REGION 

65000 S(l)  N(  1) 

261000 S (2 ) N(2 j 

265000 S(3 ) N(3)  RAW 

377000 S (4 ) N(4)  STRESS 

694000 S(5)  N(5)  LIFE 

2175000 S(6 ) N( 6)  (S/N) 

4198000 S (7 ) Re?)  DATA 

5053000 S ( 8 ) N( 8)  POINTS 

9210000 S (9  ) N( 9)  FOR 

9667000 S(l6)  N(10)  THE 

418000 Sill)  N(ll)  SPECIFIC 

732000 S ( 12)  N(  12)  MATERIAL 

740000 S ( 13 

859000 S ( 14 

1181000. S ( 15 


6522000 .S ( 18 

6891000 S 19 

4460000 S(20 


) » { 

) 

X1) 

) Nl 

12 

) N| 

13) 

) N 

14 

) N 

15 

) 

[16) 

) Nl 

17 

) 

!18) 

N | 

19) 

) 

20) 
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.NO  VALUE  OF  So  SUPPLIED 
.NUMBER  OF  REGIONS sW/DATA  W/O  DATA 
.LIFE  BOUNDARIES  REGION  1 
.CONSTRAINT  ON  COEFF.  OF  VARIATION 


* * 5*  874 .2  PTS  IN  RANGE,  LOWER  BOUND,  UPPER  BOUND 

o:o:::::::::::::::::::NoSttL  dist.  priors:  delta,  sigma2 

LIST  OF  Y5************************************ 

2-D  ARRAY  CONTAINING  M VALUES  TO  BE  SORTED  TOR  EACH  REGION 
ANGLE  PHI  MEASURED  COUNTER-CLOCKWISE  FROM  Z^WECTIW  -- 
GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS  FOR  CALCULATIONS 
1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A « K **  M FOR 

EQUA^TO^IGKtl)  — DUMMY  PARAMETER  FOR  CALLS  TO  SUBROUTINE 
EXPCTD 

l-D  ARRAY  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  PRWIDED  _ 
1-D  ARRAY  CONTAINING  POSITION  IN  LIFE ( ) OF  EMPIRICAL  BLIVES 

V^UEROTIbItAoNRANDOMLY  SELECTED  FROM  BETA( ) INTERVM; 

SELECTED  OUT-OF-PLANE  CIRCUMFERENTIAL  STRESS  CARRYOVER  FACTOR 
CCY  LOWER  BOUND 
CCY  UPPER  BOUND 

SELECTED  IN-PLANE  CIRCUMFERENTIAL  STRESS  CARRYOVER  FACTOR 
CCZ  LOWER  BOUND 

CCZ  UPPER  BOUND  

SELECTED  OUT-OF-PLANE  AXIAL  STRESS  CARRYOVER  FACTOR 
CLY  LOWER  BOUND 
CLY  UPPER  BOUND 

SELECTED  IN-PLANE  AXIAL  STRESS  CARRYOVER  FACTOR 
CLZ  LOWER  BOUND 
CLZ  UPPER  BOUND 

LOCATION  CAUSING  FAILURE  M1JimrLn 

S ELECTED  DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR 
DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 
DUMMY  VARIABLE 

REAL  FUNCTION  WHICH  CALCULATES  THE  DUCT  LIFE  (IN  SECONDS) 

AT  A WELD  NEAR  AN  ELBOW 
MATERIAL  ELASTIC  MODULUS 


EQUAL  TO  .5  — USED  TO  ACCESS  50%  POINT  IN  LIFE( ) 

1-D  ARRAY  CONTAINING  UNIT  NUMBERS  FOR  STRESS-TIME  HISTORIES 
FILES 

1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
File  TEST  — USED  TO  TEST  EXISTENCE  OF  FILE 
MATERIAL  ULTIMATE  STRENGTH 

SELECTED  DAl^GESACCUMULATION  MODEL  ACCURACY  FACTOR,  LAMBDAdam 
GAM  LOWER  BOUND 

GAM  UPPER  BOUND  

CONTROLS  DO  LOOP  FOR  EACH  LIFE  CALCULATION 
WELD  INSIDE  DIAMETER,  IN 

CONTROLS  DO  LOOP  FOR  RANDOM  AND  SUPERIMPOSED  SINE  LOADS 
CONTROLS  DUMP  TO  SCREEN /PRINTER 

CONTROLS  DO  LOOP  FOR  EACH  B-LIFE  

CONTROLS  DO  LOOP  FOR  EACH  HYPER-PARAMETER  SET 
K GEOM  (ID) 

SELECTED  K GEOM  (OD) 

K GEOM  (OD)  LOWER  BOUND 
K GEOM  (OD)  UPPER  BOUND 
SELECTED  RHO  FOR  K GEOM  (OD) 

K GEOM  (OD)  - RHO  LOWER  BOUND 
K GEOM  (OD)  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  K GEOM  (OD) 

K GEOM  (OD)  - THETA  LOWER  BOUND 

K GEOM  (OD)  - THETA  UPPER  BOUND  

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
FATIGUE  STRESS  CONCENTRATION  FACTORS  --KT(1, 1)“ 


HISTORIES 


GEOM  (OD)  - THETA  LOWER  BOUND 

GEOM  OD  - THETA  UPPER  BOUND  

ATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
ATIGUE  STRESS  CONCENTRATION  FACTORS--KT( 1. 1)  = 

Kt  AXIAL  (OD)  («  KGOD  * KWOD ) ; KT(1,2)  - TO  AXIAL  (ID) 
(=  KGID  *'kWID) ; KT(2,1)  “ Kt  HOOP  (OD) ; KT(2,2)  * 

Kt  HOOP  (ID) 
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SELECTED  K WELD  (ID) 

K WELD  (ID)  LOWER  BOUND 
K WELD  (ID)  UPPER  BOUND 
SELECTED  RBO  FOR  K WELD  (ID) 

K WELD  (ID)  - RHO  LOWER  BOUND 
K WELD  (ID)  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  K WELD  (ID) 

K WELD  (ID)  - THETA  LOWER  BOUND 
K WELD  (ID)  - THETA  UPPER  BOUND 
SELECTED  K WELD  (OD) 

K WELD  (OD)  LOWER  BOUND 
K WELD  (OD)  UPPER  BOUND 
SELECTED  RHO  FOR  K WELD  (OD) 

K WELD  (OD)  - RHO  LOWER  BOUND 
K WELD  (OD)  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  K WELD  (OD) 

K WELD  (OD)  - THETA  LOWER  BOUND 
K WELD  (OD)  - THETA  UPPER  BOUND 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

SELECTED  LAMBDA  FOR  ONE  SIGMA  NARROW-BAND  RANDOM  LOADS 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  — LOWER  BOUND  OF  k 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  — UPPER  BOUND  OF  k 
lambda  FOR  NARROW-BAND  RANDOM  LOADS  COEFFICIENT  OF  VARIATION 
NARROW-BAND  RANDOM  LOADS  STRAIN  GAGE  ACCURACY  FACTOR 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  k — INDICATES  VARIATION 
DUE  TO  SAMPLE  SIZE 

MEAN  OF  LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  (MU,  NORMAL 
DISTRIBUTION) 

STANDARD  DEVIATION  OF  LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS 
(SIGMA,  NORMAL  DISTRIBUTION) 

SELECTED  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  — LOWER  BOUND  OF  k 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  — UPPER  BOUND  OF  k 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  COEFFICIENT  OF  VARIATION 
SUPERIMPOSED  SINE  LOADS  STRAIN  GAGE  ACCURACY  FACTOR 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  k — INDICATES  VARIATION 
DUE  TO  SAMPLE  SIZE 

MEAN  OF  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  (MU,  NORMAL 
DISTRIBUTION) 

STANDARD  DEVIATION  OF  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS 
(SIGMA,  NORMAL  DISTRIBUTION) 

SELECTED  LAMBDA  FOR  STATIC  LOADS 
LAMBDA  STATIC  LOADS  LOWER  BOUND 
LAMBDA  STATIC  LOADS  UPPER  BOUND 

SELECTED  ACCURACY  FACTOR  FOR  WELD  ECCENTRICITY  STRESS 
CONCENTRATION  FACTOR,  Koff 
LAMW  LOWER  BOUND 
LAMW  UPPER  BOUND 

1-D  ARRAY  CONTAINING  LoaD  NAMES  FOR  THE  TIME-VARYING  LOADS 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  LIVES  GENERATED  BY  THE 
PFM  — SORTED  VALUES  OF  THE  LEFT-HAND  TAIL 
LIMIT  PRESSURE,  PSI  (INTERNAL  PRESSURE) 

1-D  ARRAY  CONTAINING  Ln( A)  ■ Ln(BIGK) *MM  FOR  EACH  REGION 
NORMAL (0,PVAR)  GENERATED  RANDOM  VARIABLE 

LOCATION  OF  INTEREST  WHERE  1 IS  THE  EXTERIOR  SURFACE  OF  THE 
DUCT  AND  2 IS  THE  INTERIOR  SURFACE  OF  THE  DUCT 

1- D  ARRAY  CONTAINING  Ln(PHI)*MM  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M< 1, *) 
ARE  THE  M2  LOADS;  M(2, *)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  BLIVES  TO  BE  CALCULATED 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  SET  PER  REGION  ALLOWED 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED  

MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA, 
ALPHA  CALCULATION 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 
MAXIMUM  NUMBER  OF  M'8  TO  BE  SORTED  FOR  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  MEDIAN  S/N  CURVE 

1- D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
POINTER  TO  THE  MEDIAN  M VALUES  — EQUAL  TO  HALF  OF  MCOUNT 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  SCALED 
BY  DSTR  AND  LAMS  OR  LAMN  AS  APPROPRIATE  (INDICATED  BY 
TYPE ( ) ) — MLAM( 1, *)  ARE  THE  M2  LOADS;  MLAM( 2 , * ) ARE 
THE  M3  LOADS 
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1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

MINIMUM  WALL  THICKNESS  AT  WELD,  IN  

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 

VARIATION  0 - NO  VARIATION;  1 — VARIATION 

1-D  ARRAY  CONTAINING  THE  STATIC ' MOMENT  LOADS  SCALED  BY  LAMST 
AND  SSTR  — MSLAM(l)  IS  THE  M2  LOAD;  MSLAM(2)  IS  THE  M3  LOAD 
1-D  ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — MSTAT(l)  IS 
THE  M2  LOAD;  MSTAT ( 2 ) IS  THE  M3  LOAD 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
NUMBER  OF  BLIVES  TO  BE  CALCULATED  LMiLilllr  n ____ 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  FOR  THE  NUMREG  LIFE 
REGIONS  OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE) 

MATERIAL  S/N  DATA  SET 

LIFE  VALUE  RETURNED  FROM  CALL  TO  ELWELD  . 

2- D  ARRAY  CONTAINING  RAWNF ( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 

SIZE  OF  OUTER  LOOP 
SIZE  OF  INNER  LOOP 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 

NUMBER  OF  TIME-VARYING  LOADS  „ „„ 

CONTROLS  MEDIAN  CALCULATION  FOR  THE  NORMAL  DISTRIBUTION  CASE 

0 - NO  MEDIAN  CALCULATION;  1 - MEDIAN  CALCULATION  DESIRED 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  LIFE  REGION 
FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 
NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY  (Number  of  RANdan 

points ) 

NUMBER  OF  REGIONS  OF  INTEREST 

SELECTED  OVALITY  ANALYSIS  ACCURACY  FACTOR 

OVALITY  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 

OVALITY  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 

LENGTH  OF  TIME  IN  SECONDS  OF  RANDOM  STRESS-TIME  HISTORY 

WEIBULL<BETAO,  ETAo)  GENERATED  RANDOM  VARIATE 

CONSTANT  EQUAL  TO  3.1415926536  -m__  „„ 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS  SCALED  BY 
DSTR  AND  LAMN  OR  LAMS  AS  APPROPRIATE  (INDICATED  BY  TYPE () ) 

EQUAL  TO  SQRT(PVAR)  — MATERIALS  PROCESS  STANDARD  DEVIATION 

STATIC  AXIAL  LOAD  SCALED  BY  LAMST  AND  SSTR 

STATIC  AXIAL  LOAD 

MATERIALS  PROCESS  VARIATION 

RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND  

1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R - - 1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND ( ) 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

SELECTED  STATIC  STRESS  ANALYSIS  ACCURACY  FACTOR 
STATIC  STRESS  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
STATIC  STRESS  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 

2- D  ARRAY  CONTAINING  STRESS  POINTS  (STRESS  RATIO  * -1.0) 

FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO 
LIFE  REGIONS 

2-D  ARRAY  CONTAINING  THE  AMPLITUDES  FOR  THE  TIME- VARYING 
STRESS-TIME  HISTORIES 
STRESS  TENSILE  TEST  POINT,  So 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
UNIFORM (0,1)  RANDOM  VARIATE  USED  TO  DETERMINE  HYPER- 
DISTRIBUTION TO  SELECT  FROM  FOR  DUAL-BETA  DISTRIBUTIONS 
1-D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS  SCALED 
BY  DSTR  AND  LAMN  OR  LAMS  AS  APPROPRIATE  (INDICATED  BY 
TYPE l ) ) 

1-D  ARRAY  CONTAINING  VALUES  OF  PHI  * KRATIO  * Z * SBND  FOR 

EACH  REGION  CALCULATED  FOR  EACH  TRIAL 

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
STATIC  TORQUE  LOAD  SCALED  BY  LAMST  AND  SSTR 
STATIC  TORQUE  LOAD 

1-D  ARRAY  CONTAINING  THE  TYPE  OF  TIME-VARYING  LOAD,  USED  FOR 
LOAD  FACTORS  — TYPE(*)  ■ 1 INDICATES  NARROW-BAND  RANDOM; 
TYPE ( * ) = 2 INDICATES  SUPERIMPOSED  SINUSOID 
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V() 

VARY 


VLAM( ) 


VSLAM( ) 

VSTAT ( ) 

WEDS 

WEOF 

WEOFA 

WEOFB 

WEOFC 

WEOFD 

WEOFE 

WEOFHI 

WEOFLO 

WEOFR 

WEOFR1 

WEOFR2 

WEOFR3 

WEOFR4 

WEOFT 

WEOFTl 

WEOFT 2 

WEOFT 3 

WEOFT 4 

WTID 

Z 

ZROREG 


2-D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V<  1,*) 

ARE  THE  V2  LOADS;  V(2,*)  ARE  THE  V3  LOADS 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATION; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION;  3 - 

TRUNCATED  NORMAL  VARIATION  

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  SCALED 
BY  DSTR  AND  LAMN  OR  LAMS  AS  APPROPRIATE  ( INDICATED  BY 
TYPE ( ) ) — VLAM(  1,*)  ARE  THE  V2  LOADS;  VLAM(2,*)  ARE  THE 
V3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  SCALED  BY  LAMST 
AND  SSTR  — VSLAM(l)  IS  THE  V2  LOAD;  VSLAM(2)  IS  THE  V3  LOAD 
1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — VSTAT(l)  IS 
THE  V2  LOAD;  VSTAT(2)  IS  THE  V3  LOAD 
HELD  DISTANCE  FROM  ELBOW  TANGENCY  LINE,  IN 


SELECTED  HELD  OFFSET  (%) 

WELD  OFFSET  LOWER  BOUND  - HYPER-DISTRIBUTION  1 
HELD  OFFSET  UPPER  BOUND  - HYPER-DISTRIBUTION  1 
HELD  OFFSET  LOWER  BOUND  - HYPER-DISTRIBUTION  2 
HELD  OFFSET  UPPER  BOUND  - HYPER-DISTRIBUTION  2 
PERCENTAGE  OCCURRING  IN  HYPER-DISTRIBUTION  1 
SELECTED  WELD  OFFSET  UPPER  BOUND 
SELECTED  HELD  OFFSET  LOWER  BOUND 
SELECTED  RHO  FOR  HELD  OFFSET 

WELD  OFFSET  - RHO  LOWER  BOUND  - HYPER— DISTRIBU 
HELD  OFFSET  - RHO  UPPER  BOUND  - HYPER— DISTRIBU 
HELD  OFFSET  - RHO  LOWER  BOUND  - HYPER-DI STRI BU 
HELD  OFFSET  - RHO  UPPER  BOUND  - HYPER— DISTRIBU 
SELECTED  THETA  FOR  HELD  OFFSET 
HELD  OFFSET  - THETA  LOWER  BOUND  - HYPER-DI STRI 
WELD  OFFSET  - THETA  UPPER  BOUND  - HYPER-DI STRI 
HELD  OFFSET  - THETA  LOWER  BOUND  - HYPER-DI STRI 
WELD  OFFSET  - THETA  UPPER  BOUND  - HYPER- D I STRI 
SELECTED  HALL  THICKNESS  AT  BEND  (ID)  AT  WELD, 


HYPER-DISTRIBUTION  1 
HYPER-DISTRIBUTION  1 
HYPER-DISTRIBUTION  2 
HYPER-DISTRIBUTION  2 


HELD  OFFSET  - THETA  LOWER  BOUND  - HYPER-DISTRIBUTION  1 

WELD  OFFSET  - THETA  UPPER  BOUND  - HYPER-DISTRIBUTION  1 

HELD  OFFSET  - THETA  LOWER  BOUND  - HYPER-DISTRIBUTION  2 

HELD  OFFSET  - THETA  UPPER  BOUND  - HYPER-DISTRIBUTION  2 

SELECTED  HALL  THICKNESS  AT  BEND  (ID)  AT  WELD,  IN 
LOG-NORMAL (0,PVAR)  GENERATED  RANDOM  VARIATE 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


********************************************************************* 


SUBROUTINE  INSORT  PERFORMS  AN  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  20JUN90 

VERSION:  2.1 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

INPUTS:  NEWLIF,  LIFE,  NLIFET 

OUTPUTS : LIFE 

IMPLICIT  NONE 

INTEGER  MAXLIF 

PARAMETER  (MAXLIF  - 10000) 

COMMON  I OUT 

INTEGER  I,  I OUT,  NLIFET,  NUM,  PLACE 
REAL  LIFE (MAXLIF),  NEWLIF,  TEMP (MAXLIF) 


LIST  OF  VARIABLES 

I CONTROLS  DO  LOOP  FOR  INSERTION 

I OUT  OUTPUT  DUMP  CONTROLLER 
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C LIFEO 
C 

C MAXLIF 
C 

C NEWLIF 
C NLIFET 
C NUM 
C PLACE 
C TEMP( ) 
C 


1— D ARRAY  CONTAINING  TAIL  VALUES  OF  THE  LIVES  GENERATED  BY  THE 

PFM  TO  BE  SORTED  

MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA,  ALPHA, 
CALCULATION 

LIFE  VALUE  TO  BE  INSERTED  INTO  LIFEM 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 

NUMBER  OF  LIFE  VALUES  IN  LIFE()  

POSITION  WHERE  NEWLIF  IS  TO  BE  INSERTED  INTO  LIFE( ) 

1— D ARRAY  CONTAINING  VALUES  OF  LIFE( ) TO  BE  SHIFTED  UPON 
INSERTION  OF  NEWLIF 


NUM  - NLIFET  / 2 

C FIND  POSITION  IN  LIFE( ) FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE (NUM) ) GOTO  400 

DO  100  I = 1,  NUM 

IF  (NEWLIF  .LT.  LIFE(I))  THEN 
PLACE  = I 
GOTO  110 
ENDIF 
100  CONTINUE 
110  CONTINUE 

C STORE  VALUES  OF  LIFE ( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMPO 

DO  200  I = (PLACE  + 1),  NUM 
TEMP ( I ) = LIFE ( 1-1) 

200  CONTINUE 

C INSERT  NEWLIF 

LIFE (PLACE)  = NEWLIF 

C SHIFT  VALUES  OF  LIFE ( ) FOLLOWING  NEWLIF 

DO  300  I = (PLACE  + 1),  NUM 
LIFE ( I ) = TEMP(I) 

300  CONTINUE 

C IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE()  THEN  RETURN 

400  CONTINUE 


RETURN 

END 


c***** **************** ************************************************* 
C SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH01,RH02)  AND  U(THEl,THE2) 

C INDEPENDENT  RANDOM  VARIATES 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE:  9MAR87 

C SUBPROGRAM:  RANDOM 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 

c**************?*^***************************************************** 
SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THEl , THE2,  X,  Y) 

COMMON  I OUT 

DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02,  THEl,  THE2,  X,  Y 
INTEGER  I OUT 
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FRAC 


c 


CALL  RANDOM  (FRAC,  RAND) 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'FRAC 
X - FRAC  * (RH02  - RHOl)  + RHOl 


C 


CALL  RANDOM  (FRAC,  RAND) 

IF  (IOUT  .EQ.  15)  WRITE (8,*)  'FRAC 
Y ■ FRAC  * (THE2  - THE1 ) + THE1 


FRAC 


IF  (IOUT  .EQ. 
& ' THE1 


15)  WRITE (8,*)  'RHOl 
-' , THE1,  ' THE2  -' , 


, RHOl 
THE2,  ' 


k 


• RH02 

m'  X 
r *i 


RH02, 


RETURN 

END 


THIS  SUBROUTINE  GENERATES  A BETA  RANDOM  VARIABLE 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  9 MAR 8 7 

SUBPROGRAM:  GAM 

The  random  variates  are  generated  using  the  method . described  in: 
Johnson,  N.  L.f  and  Kotz,  S.,  Distribution  in  Statistics:  Continuous 
Univariate  Distributions  - 1,  Houghton  Mifflin  Company,  1970, 

SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 

COMMON  IOUT 
DOUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 
INTEGER  IOUT 

IF  (IOUT  .EQ.  15)  WRITE (8,*)  'RAND  *',  RAND,  ' RHO  , RHO, 

& ' THETA  THETA,  ' A =',  A,  ' B -' , B,  ' X «',  X 

Yl  - GAM ( (RHO  * THETA  + 1 .)  , RAND) 

Y2  - GAM( ( ( 1 . - RHO)  * THETA  +1.),  RAND) 

w a yl  / ( y l + Y2 ) 

C IF  (IOUT  .EQ.  15)  WRITE ( 8, * ) 'Yl  , Yl,  ' Y2  -',  Y2,  ' W -',  W 

C TRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 
X = W * (B-A)  + A 

IF  (IOUT  .EQ.  15)  WRITE (8,*)  'W  =',  W,  ' X =' , X 

RETURN 

END 


C*************************************************************w,,wwwwww 

C The  random  vauriates  are  generated  using  an  "Acceptance/Rejection  Method" 
C Fishman,  George  S.,  "Sampling  From  the  Gamma  Distribution  on  a 
C Computer,"  Communications  of  the  ACM,  Volume  19,  Number  7,  July  1976, 

C pp.  407-409. 

REAL  FUNCTION  GAM  (ALPHA,  RAND) 

C SUBPROGRAM:  RANDOM 

COMMON  IOUT 
INTEGER  IOUT 

REAL  A,  ALPHA,  ARC,  Ul,  U2,  VI,  V2 
DOUBLE  PRECISION  RAND 
A - ALPHA  - 1. 
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C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'A  , A,  ' ALPHA  , ALPHA 

10  CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

VI  - - ALOGJU1) 

C IF  7lOUTL?EQ.  15)  WRITE ( 8, * ) 'Ul  , Ul,  ' 02  02,  ' Vl 

C f.  Vl,  ' V2  V2 

ARC  - A * (VI  - ALOG(Vl)  - 1.) 

IF  (V2  .LT.  ARC)  GOTO  10 

GAM  * ALPHA  * Vl 

C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'GAMMA  , GAM 

RETURN 

END 


c* ★★★★*★★* ***★*★**< 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  INFAGG  CONTROLS  THE  CALCULATIONS  FOR  THE  INFORMATION 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
FOR  THE  STRESS  FORMULATION 

PROGRAMMER:  L.  NEWLIN  , 

DATE:  13JUL89  FORMAT /COMMENTS:  12AUG91 

VERSION:  MATCHR  V8.4,  V8.5  MATGRM  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  INFAGG  (RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG, 

& NUMREG,  NBND,  STR,  FTUZ,  FTYZ , VARY,  MPROC, 

& KRATIO,  PVAR) 


C 

C 

C 

C 

C 

c 


INPUTS:  READS  DATA  FROM  SPECFD  AND  RELATD;  VARY,  MPROC 

OUTPUTS:  RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

NBND.  STR,  FTUZ,  FTYZ,  KRATIO,  PVAR 
SUBPROGRAMS : 

FILES:  5 : RELATD- OLD ; 6 :RELATO-NEW 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  * 50,  MAXREG  * 3,  MAXSET  = 5) 


COMMON  IOUT 


& 

& 


INTEGER  IOUT,  L,  MCPNT (MAXREG)  , MPNT (MAXREG) 
NP  ( 0 : MAXSET , MAXREG),  NPPR  ( MAXREG ) , 
NSETS,  NUMREG,  REFNP (MAXREG) , VARY, 


, MPROC,  NNODAT, 
NPTS ( 0 : MAXSET) , 
ZROREG 


REAL 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


, LNNF (MAXDAT,  6:MAXSET,  MAXREG), 

0: MAXSET,  MAXREG),  MC(2,  MAXREG), 

Siji: 

VAR,  RANGEM(2,  MAXREG),  RATSTR ( MAXDAT , 0 : MAXSET) , 
AWNF( MAXDAT,  6: MAXSET) , RAWSTRj MAXDAT , 0: MAXSET) , 
IG(MAXREG),  SIGMA2 (MAXREG) , STR (MAXDAT,  MAXREG), 
UHAT2 (MAXREG) , SWHAT2 (MAXREG) , SX2 (MAXREG), 
XY(MAXREG) , SY2 (MAXREG),  SZERO 


t 


c 

c 

C BIGKHT 


LIST  OF  VARIABLES 

EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 
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C BZERO 
C 

C CZERO 
C 

C DD() 

C DELTA ( ) 

c 

C FTUZ 
C FTYZ 
C I OUT 
C IZERO( ) 
C 

C JZERO( ) 
C 

C KRATIO 
C L 
C LAMN 
C 

C LNNF ( ) 

C LNSTR( ) 
C MAXDAT 
C MAXREG 
C MAXSET 
C MC() 

C 

C 

C 

C MCHATO 

C 

C 

c 

C MCFNTO 
C 


C 

C MPNT ( ) 

C 

C MPROC 
C 

C MU  ( ) 

C 

C MZERO{ ) 

C 

C 

C NBND() 

C 

C NF(  ) 

C 

C NNODAT 
C NP(  ) 

C 

C NPPR( ) 

C 

C NPTS ( ) 

C NSETS 
C NUMREG 
C PVAR 
C RANGEM() 
C 
C 

C RATSTR() 
C 

C RAWNF ( ) 

C 

C RAWSTR() 
C 

C REFNP( ) 

C 

C SIG{ ) 

C 

C SIGMA2 ( ) 
C 

C STR(  ) 

C 


VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  THE  S/N 
DATA  SET 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION.  Co  

1-D  ARRAY  CONTAINING  SXY(L j/SX2 (L)  REGION 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU() 

AND  SIG()  CALCULATION 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
OUTPUT  DUMP  CONTROLLER 

THE  95*  CONFIDENCE  INTERVALS  ON  C 


THE  95*  CONFIDENCE  INTERVALS  ON  M 


ALSO  INDEXED  FOR  REGION 
DATA  SET  (PER  REGION)  ALLOWED 


2-D  ARRAY  CONTAINING  Io, 

FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  JO, 

FOR  EACH  REGION  ..  >lmlmn 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION  ^ 

LAMBDA-N  — RATIO  OF  Var(Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- D  ARRAY  CONTAINING  LN ( RAWNF ( ) ) , ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN(RATSTR() ) , 

MAXIMUM  NUMBER  OF  POINTS  IN  S ' 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
— MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT( 1,L)  - -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  * SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC( ) FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO( ) FOR  EACH  REGION 

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO ( 1 , L ) IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 

SET  IN  EACH  REGION  . , 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST 
MATERIALS  PROCESS  VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND  

2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR  

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETTS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  RATSTR ( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 
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SUHAT2 ( ) 

SWHAT2 ( ) 

SX2() 

SXY  { ) 

SY2() 

SZERO 

VARY 

ZROREG 


1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y-Ln  N) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  ■ Ln  g,  Y -LnN ) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

1-D^ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 
REGION  (X  « Ln  S,  Y ■ Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  » Ln  N) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION:  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 

VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


OPEN ( 5 , FILE  “ ' RELATD ' , STATUS  “ ' OLD ' ) 
OPEN ( 6 , FILE  - 'RELATO' , STATUS  - 'NEW') 


C INFORMATION 

C PERFORM  CALCULATIONS  COMMON  TO  BOTH  UNIFORM  AND  NORMAL  TYPE  OF  VARIATION 


C INITIALIZE  PRIMARY  ARRAYS 

CALL  INIT  (NPTS , RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 
& NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2) 


C 


READ,  CONVERT,  ECHO  INFORMATION 


CALL  RCE 


& 

& 

& 


(VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNSTR, 
LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNODAT , 
NSETS.  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO, 
SIGMA2,  KRATIO,  LAMN) 


C CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY,  SY2 , DD, 
& SWHAT2,  SUHAT2,  NPPR) 

C CALCULATE  M CONTRAINT  BASED  ON  CO 

CALL  FINDMC  (NUMREG,  CZERO,  SX2 , SXY,  SY2,  MCPNT,  MC) 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2>)  THEN 

C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 

C CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 
& JZERO,  MCHAT) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  TO 
C OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT, 
& RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 
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C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 
WRITE(7,900) 

DO  25  L * 1.  NUMREG 

WRITE(7,S05)  L,  IZEROfl,  L) , IZERO(2,  L) , 

& JZERO( 1 , L),  JZERO(2,  L) 

25  CONTINUE 

WRITE(7, 910) 

DO  50  L - 1.  NUMREG 

WRITE (7 , 915)  L,  MCHAT(2,L),  MCBAT( 1,L) 

50  CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7,960) 

DO  150  L - 1,  NUMREG 

IF  (MCPNT(L)  .EQ.  1)  THEN 
WRITE(7 , 965)  L,  MC ( 1 , L ) 

ELSE IF  (MCPNT(L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 

ENDIF 

150  CONTINUE 

ENDIF 

WRITE(7, 920) 

WRITE(7,930) 

DO  100  L * 1,  NUMREG 

WRITE(7,940)  L,  RANGEM ( 1,L) , RANGEM ( 2 , L ) 

100  CONTINUE 

WRITE(7, 950) 

C CALCULATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 

CALL  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 

CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGKHT,  BZER0) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 


200 


IF  ((VARY  .EQ.  0) 
DO  200  L = 1. 
RANGEM ( 1,L) 
RANGEM ( 2 , L ) 
CONTINUE 


.OR.  (VARY  .EQ.  1))  THEN 
NUMREG 
» MEDM(L) 

= MEDM(L) 


ENDIF 


ELSE 

C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION  FOR  EACH  REGION 

CALL  MUSIG  (NUMREG,  SX2,  DD,  S WHAT 2 , SUHAT2,  NPPR,  DELTA,  MO, 
& SIGMA2,  MCHAT,  MU,  SIG) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 


7-50 


, CALL  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RAN GEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDRGN  ( RANG EM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 
4 MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 

CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 

WRITE(7 ,975) 

DO  350  L ■ 1,  NUMREG 

WRITE(7,980)  L,  MCHAT(1,L) 

350  CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7 , 960) 

DO  360  L = i,  NUMREG 
IF  (MCPNTiL)  .EQ. 

WRITE (7, 965)  L, 

ELSEIF  (MCPNT (L)  . 

WRITE (7, 970)  L, 

ENDIF 

360  CONTINUE 

ENDIF 

WRITE(7,920) 

WRITE(7,930) 

DO  370  L - 1,  NUMREG 

WRITE(7, 940)  L,  RANGEM ( 1 , L ) , RANGEM(2,L) 

370  CONTINUE 

WRITE(7,950) 

WRITE (7, 9 85) 

DO  380  L = 1.  NUMREG 

WRITE(7, 990)  L,  »«J(L),  SIG(L) 

380  CONTINUE 

ENDIF 

C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 

IF  (MPROC  .EQ.  1)  THEN 
WRITE (7 , 995 ) PVAR 
ENDIF 


1)  THEN 
MC  ( 1 , L ) 

EQ.  2)  THEN 
MC ( 1 ,L) , MC ( 2 , L ) 


C FORMAT  STATEMENTS 


900  FORMAT (2X, 'Copyright  (C)  1990,  California  institute  of  ' , 

& 'Technology.  u.S.  Government' , /,2X, 'Sponsorshxp  under 

& 'NASA  contract  NAS7-918  is  acknowledged.',////, 

& 2 X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 

& ///,2X, '95%  CONFIDENCE  INTERVALS  ON  C AND  m ', 

& ' FOR  EACH  REGION ' , / ) 

905  FORMAT (7X. 'REGION:  ',I1.7X, 'Io  ■ ( ' F12 .9 , ' , ' ,F12 .9, ' ) ' , 

4 /,$4X,'Jo-  <',F12.9,',',F12.9,')') 

910  FORMAT (//,2X, 'POINT  ESTIMATES  OF  C AND  m FOR  EACH  REGION', 

4 //,7X, 'REGION', 8X, 'E(C) ' , 12X, 'E(m)',/) 

915  FORMAT ( 9X, 11 , 8X, Fll . 9 , 5X, F9 . 6 ) 

920  FORMAT (///,2X, 'POSTERIOR  CREDIBILITY  RANGE  ON  m FOR  EACH  ' 

4 'REGION') 

930  FORMAT(//,2X, 'REGION ',5X, ’ LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 
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940  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

950  FORMAT (III) 

960  FORMAT (//,2X, 'RANGE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 

& 'CONSTRAINT' 

& //,2X, 'REGION', 5X, 'LOWER  BOUND ', 5X, ' UPPER  BOUND',/) 


965  FORMAT(6X,Il, 8X, F8. 4, 8X, 'INFINITY' ) 

970  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

975  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ', 

& 'Technology.  U.S.  Government' ,/,2X, 'Sponsorship  under 

& 'NASA  Contract  NAS7-918  is  acknowledged. ',////, 

& 2X, ’ RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS ' , 

& III, 2X, 'ESTIMATE  OF  m FOR  EACH  REGION', 

& //,7X, 'REGION ',12X, 'E(m)',/) 


980  FORMAT(9X,Il, 11X,F10.6) 

985  FORMAT (2X, 'POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS', 
& 1 //,2X, 'REGION', 5X, 'MEAN', 8X, 'STD  DEV',/) 


r 


990  FORMAT ( 5X,Il,5X,F7.4,5X,Ell.5) 


995  FORMAT ( /,2X. 'THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT 
& 'MEDIAN  S/N  CURVE' ,/,2X, 'WARRANTED  BY  THE  AVAILABLE  ' 

& ' INFORMATION', //,7X,E11. 5) 


RETURN 

END 


******************************************** 


SUBROUTINE  TRMNAT  HANDLES  THE  TERMINATION  OF  THE  PROGRAM  RUN  WHEN 
Ora:  OF  THE  PROGRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  50CT87 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

HATGRM  V4 , V4  • 1 , V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  TRMNAT 

WRITE ( 8 , * ) 'PROGRAM  EXECUTION  TERMINATED' 

STOP 

END 


C************************************************************************ 


C 

C 

C 

c 

c 

c 


SUBROUTINE  INIT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
USED  IN  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 

PROGRAMMER:  L.  NEWLIN  , „ 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4 . 1 , V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  INIT  (NPTS, 

* REFNP, 


RAWNF,  RAWSTR,  RATSTR, 
NF,  STR,  MPNT,  MZERO, 


NP,  LNNF,  LNSTR, 
DELTA,  MO,  SIGMA2) 


C INPUTS: 

C OUTPUTS: 
C 


NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 
NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 


7-52 


ooooooooonnoonoooooooooooooooooooooooo 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  “ 3,  MAXSET  ■ 5) 


COMMON  IOUT 


INTEGER  I,  IOUT,  J,  K,  L,  MPNT  (MAXREG) , NP(0:MAXSET,  MAXREG), 


NPTS ( 0 s MAXSET ) , REFNP ( MAXREG ) 


REAL 


fc 

& 

& 

& 

& 


DELTA () 
I 

IOUT 

J 

K 

L 

LNNF( ) 

LNSTR<) 

MAXDAT 

MAXREG 

MAXSET 

MO() 

MPNT( ) 

MZERO( ) 

NF() 

NP() 

NPTS(  ) 
RATSTR ( 


RAWNF ( ) 
RAWSTR( ) 
REFNP ( ) 
SIGMA2 ( ) 
STR() 


0 s MAXSET) , 


DELTA ( MAXREG ) , LNNF (MAXDAT,  0: MAXSET,  MAXREG) 

LNSTRi MAXDAT , 0 1 MAXSET , MAXREG),  MO(MAXREG), 

MZERO ( 2 , MAXREG),  NF (MAXDAT,  MAXREG), 

RATSTR ( MAXDAT , 6: MAXSET),  RAWNF (MAXDA 
RAWSTR( MAXDAT,  0: MAXSET) , SIGMA2 (MAXREG) , 

STR ( MAXDAT , MAXREG) 

LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) AND 
SIG(  ) CALCULATION  ■ 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION  

3-D  ARRAY  CONTAINING  LN( RAWNF ( ) ) , ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN (RATSTR ( ) ) , ALSO  INDEXED  TOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION  „ , _ T„ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO  ( ) FOR  EACH  REGION  „ 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO ( 1 , L ) IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  _ 

2-D  ARRAY  CONTAINING  RAWNF ()  (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS  

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION  rx„I¥1„  OT__ 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

2- D  ARRAY  CONTAINING  STRESS  DATA  (PS I)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 

DATA  (%)  FOR  ALL  S/N  DATA  SETS  ________ 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  RATSTR ( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 


DO  100  J = 0,  MAXSET 
NPTS(J)  » 0.0 
100  CONTINUE 

DO  200  L - 1,  MAXREG 
DO  250  J = 0,  MAXSET 
NP(J,  L)  = 0.0 
250  CONTINUE 
200  CONTINUE 


350 

300 


DO  300  J = 0,  MAXSET 
DO  350  1=1,  MAXDAT 
RAWNF ( I, J)  =0.0 
RAWSTR(I,J)  =0.0 
RATSTR ( I, J)  = 0.0 
CONTINUE 
CONTINUE 
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450 

425 

400 


DO  400  L » 1,  MAXREG 
DO  425  K - 1,  MAXDAT 
DO  450  J - 0.  MAXSET 
LNNF ( K , J , L ) - 0.0 
LNSTR(K,J,L)  * 0.0 
CONTINUE 
CONTINUE 
CONTINUE 


DO  500  L » 1,  MAXREG 
DO  550  K - 1.  MAXDAT 
NF(K,L)  - 0.0 
STR(K,L)  - 0.0 
550  CONTINUE 
500  CONTINUE 


DO  600  L » 1,  MAXREG 
REFNP <L)  ■ 0 
MPNT(L)  - 0 
MZERO ( 1,L)  * 0.0 
MZERO(2,L)  -0.0 
DELTA(L)  -0.0 
MO(L)  - 0.0 
SIGMA2 (L)  - 0.0 
600  CONTINUE 


RETURN 

END 


C************ ************* 


c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RCE  -READS"  THE  DATA  FROM  SPECFD  AND  RELATD;  "CONVERTS" 
THE  STRESS  DATA  TO  A STRESS  RATIO  OF  -1.0;  AND  "ECHOES"  THE  DATA  TO 
SPECFO  AND  RELATO.  RCE  ALSO  BREAKS  S/N  DATA  SETS  INTO  REGIONS  AS 
SPECIFIED  BY  USER 
PROGRAMMER:  L.  NEWLIN 

DATE:  21JUN88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 
i,  LNSTR,  LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG, 

& NUMREG,  NNODAT,  NSETS,  NBND,  CZERO,  MPNT,  MZERO, 

& FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2,  KRATIO,  LAMN) 


INPUTS:  VARY,  MPROC 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 

STR,  NF,  SZERO,  ZROREG,  NUMREG, 
CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ, 
KRATIO,  LAMN 

SUBPROGRAMS:  TRMNAT,  CONVRT 


LNSTR,  LNNF,  REFNP, 
NNODAT,  NSETS,  NBND, 
DELTA,  MO,  SIGMA2, 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  « 50,  MAXREG  = 3,  MAXSET  * 5) 


COMMON  I OUT 


INTEGER  COUNT,  I,  I OUT,  J,  K,  L,  M, 

& NNODAT,  NP ( 0 : MAXSET , MAXREG) 

S.  NUM,  NUMREG,  REFNP ( MAXREG ) , 


MPNT (MAXREG) , MPROC,  NDIV 
, NPTS ( 0 : MAXSET ) , NSETS, 
REG,  VARY,  ZROREG 


REAL 

& 

& 

& 

& 

& 


CZERO,  DELTA ( MAXREG ) , FTU,  FTUZ,  FTY,  FTYZ, 

KRATIO,  LAMN,  LNNF ( MAXDAT , 0: MAXSET,  MAXREG), 

LNSTR ( MAXDAT , 0:MAXSET,  MAXREG),  MO (MAXREG ) , 

MZERO ( 2 , MAXREG),  NBND( 0 :MAXREG) , NF (MAXDAT,  MAXREG), 
RATIO,  RATSTR (MAXDAT,  0: MAXSET).  RAWNF (MAXDAT,  0: MAXSET), 
RAWSTR (MAXDAT,  0: MAXSET) , SIGMA2 (MAXREG) , 
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& STR ( MAXDAT , MAXREG) , SZERO 

CHARACTER*  4 0 DESCRP ( 0 s MAXSET ) 


C 

C 

C COUNT 
C 

C CZERO 
C 

C DELTA () 

C 

C DESCRP () 
C FTU 
C FTUZ 
C FTY 
C FTYZ 
C I 
C I OUT 
C J 
C K 

C KRATIO 
C L 
C LAMN 
C 

C LNNF( ) 

C LNSTR() 

C M 

C MAXDAT 
C MAXREG 
C MAXSET 
C MO(  ) 

C 

C MPNT( ) 

C 

C MPROC 
C 

C MZERO ( ) 

C 

C 

C NBND() 

C 

C NDIV 
C 

C NF( ) 

C 

C NNODAT 
C NP() 

C 

C NPTS() 

C NSETS 
C NUM 
C NUMREG 
C RATIO 
C RATSTR( ) 
C 

C RAWNF< ) 

C 

C RAWSTR( ) 
C 

C REFNPO 
C 

C REG 
C SIGMA2 ( ) 
C 

C STR( ) 

C 

C SZERO 
C VARY 
C 
C 

C ZROREG 
C 


LIST  OF  VARIABLES 

INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 

CONVERSION,  AND  BREAK  UP  ___  __ 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  CO  „ v 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIGH  CALCULATION 

1-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  OF  MATERIAL  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGION  ^ _ 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  ALL  REGIONS  AND  COMPONENTS 
3-D  ARRAY  CONTAINING  LN(RAWNFM),  ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN ( RATSTR ( j ),  ALSO  INDEXED  FOR  REGION 
CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION  _ 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION  ^ , _ T„ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO ( ) FOR  EACH  REGION  

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO, 

REGION  PAIRS  DURING  INPUT  ^ 

2- D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 

IN  EACH  REGION  m ^ ____ 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISION 
NUMBER  OF  REGIONS  OF  INTEREST 

STRESS  RATIO  (R  * -1.0  IS  DESIRED)  

2- D  ARRAY  CONTAINING  STRESS  DATA  jPSI)  CORRECTED  FOR  STRESS 
RATIO  OR  TOTAL  STRAIN  DATA  {%)  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 
REGION  OF  INTEREST  IN  A PARTICULAR  DIVISION  , 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  RATSTR ( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

STRESS  TENSILE  TEST  POINT,  SO 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
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c 


REGION 


C INITIALIZE  COUNT  AND  NBND ( ) 
COUNT  = 0 


DO  10  L = 0,  MAXREG 
NBND(L)  * 0.0 
10  CONTINUE 

C INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 

READ( 1,  *)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(0) 

IF  (NPTS(0)  .GT.  MAXDAT)  THEN 

WRITE ( 8 * ) 'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ’ , 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
END  IF 


WRITE (3, 9 00) 
IF  (IOUT  .EQ. 


DESCRP(O),  FTY.  FTU,  NPTS(0) 
10)  WRITE(8,900)  DESCRP(O), 


FTY,  FTU,  NPTS(0) 


WRITE (3, 9 05)  _ 

IF  (IOUT  .EQ.  10)  WRITE(8,905) 

C STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 


FTUZ  ■ FTU 
FTYZ  * FTY 

C INPUT  STRESS/LIFE  INFORMATION  — INCLUDING  STRESS  RATIO  AND  REGION 

C INFORMATION  FROM  SPECFD  AND  ECHO  TO  SPECFO 

DO  100  M = 1,  NDIV 

READ  (1,*)  mm,  RATIO,  REG 

IF  (ABS( RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  FOR  RATIO:  ',  RATIO 

CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  MAXREG)  THEN 

WRITE (8,*)  'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

DO  110  I = (COUNT  + 1).  (COUNT  + NUM) 

READ( 1, *)  RAWSTR(I, 0) , RAWNF(I,0) 

110  CONTINUE 

C CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  120  I - (COUNT  + 1),  (COUNT  + NUM) 

RATSTR (1,0)  = RAWSTR (1,0) 

120  CONTINUE 

ELSE 

C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR,  RATSTR, 

& RATIO,  FTU,  FTY) 

ENDIF 

C ECHO  STRESS/LIFE  DATA  ON  SPECIFIC  MATERIAL 

DO  130  I = (COUNT  + 1),  (COUNT  + NUM) 
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& 


& 


WRITE(3, 910)  RAWSTR(I,0) , RAWNF* I, 0) , RATIO,  REG, 
RATSTR(I, 0) , RAWNF (1,0) 


IF  ( 


.our 


130  CONTINUE 


C 

C 


BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 
EXPCTD,  AND  PAREST 

K - NP(0,REG) 

DO  140  I - (COUNT  + 1),  (COUNT  + NUM) 

K = K + 1 

LNSTR(K. 0,REG)  - ALOG(RATSTR(I, 0 ) ) 

LNNF(K,0,REG)  - ALOG ( RAWNF ( I , 0 ) ) 

STR(K,REG)  = RATSTR(I, 0) 

NF(K,REG)  - RAWNF (1,0) 


140  CONTINUE 


IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ' , 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
END  IF 


NP(0,REG)  * K 
REFNP(REG)  = K 
COUNT  = COUNT  + NUM 


100  CONTINUE 

IF  (NPTS(0)  .NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR:  NUMBER  OF  POINTS  PER  DIVISION  ', 

& 'INCORRECTLY  SPECIFIED' 

WRITE (8,*)  'IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

READ(1,*)  SZERO 
IF  (NINT  (SZERO)  .GT.  0)  THEN 
ZROREG  = 0 
ELSE 

ZROREG  = 1 
ENDIF 

IF  ( I OUT  .EQ.  10) 

& WRITE (8,*)  'SZERO  = ',  SZERO,  ' ZROREG  “ ',  ZROREG 


C INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORMATION 


READ(1,*)  NUMREG,  NNODAT 


IF  ( (NUMREG  + NNODAT) 
WRITE ( 8 , * ) 'ERROR: 
CALL  TRMNAT 
ENDIF 


.GT.  MAXREG)  THEN 

EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS' 


DO  150  L - ZROREG,  (NUMREG  + NNODAT) 
READJl,*)  NBND(L) 

150  CONTINUE 


READ ( 1 , * ) CZERO 


DO  160  L = 1,  (NUMREG  + NNODAT) 
READ(1,*)  MPNT(L) , MZERO(l,L), 
160  CONTINUE 


MZERO(2,L) 


WRITE(3, 913) 

IF  (ZROREG  .EQ.  0)  WRITE(3,914)  SZERO 
IF  ( IOUT  .EQ.  10)  THEN 
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WRITE (8, 9 13) 
IF  (ZROREG  . 
ENDIF 


EQ.  0)  WRITE (8, 9 14)  SZERO 


WRITE <3, 9 15)  NUMREG,  NNODAT 

IF  ( I OUT  .EQ.  10)  WRITE (8, 915)  NUMREG, 


NNODAT 


DO  170  L - ZROREG,  (NUMREG  + NNODAT) 
WRITE( 3, 920)  NBND(L) 

IF  ( IOUT  .EQ.  10)  WRITE( 8, 920)  NBND(L) 
170  CONTINUE 


WRITE(3,925) 
IF  (IOUT  .EQ. 


CZERO 

10)  WRITE(8,925)  CZERO 


DO  180  L ■ 1.  (NUMREG  + NNODAT) 

WRITE(3,930)  L.  MPNT(L),  MZERO(l,L),  MZERO(2,L) 


>UT  .EQ.  10) 

TE(8,930)  L,  MPNT(L),  MZERO(l,L).  MZERO(2,L) 
ARY  .EQ.  3)  .AND.  (MPNT(L)  .EQ.  6))  THEN 


IF  (IOUT 
WRI 

IF  ((VAR' 

WRITE ( 8 , * ) 


CALL  TRMNAT 
ENDIF 
180  CONTINUE 


'ERROR:  NORMAL  VARIATION  REQUIRES  A PRIOR 

'RANGE  ON  M' 


C 


IF  (VARY  .EQ.  3)  THEN 

READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 
WRITE(3,945) 

IF  (IOUT  .EQ.  10)  WRITE ( 8, 945) 

DO  190  L * 1,  (NUMREG  + NNODAT) 

READ( 1,  *)  DELTA(L) , MO(L) , SIGMA2(L) 

WRITE(3,950)  L.  DELTA(L),  MO(L),  SIGMA2 (L) 

IF  (IOUT  .EQ.  10) 

6 WRITE( 8, 950)  L,  DELTA (L) , MO(L),  SIGMA2(L) 

IF  ( (DELTA(L)  .LT.  0.0)  .OR.  

& ( ( DELTA) L)  .GT.  0.0)  .AND.  (MO/L)  .LE.  0.0)))  THEN 

WRITE ( 8 * ) 'ERROR:  BAD  VALUE  FOR  DELTA  OR  VALUE  OF  MO 

& ' INCONSISTENT  WITH  DELTA  IN  REGION  ' , L 

CALL  TRMNAT 
ENDIF 
190  CONTINUE 
ENDIF 


» 


IF  (MPROC  .EQ.  1)  THEN 
READ( 1, *)  KRATIO,  LAMN 
WRITE (3, 955)  KRATIO,  LAMN 

IF  (IOUT  .EQ.  10)  WRITE(8,955)  KRATIO,  LAMN 
ENDIF 


C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  TO  RELATO 

READ( 5, *)  NSETS 

IF  (NSETS  .GT.  MAXSET)  THEN 

miTE(8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  RELATED  DATA  SETS' 

CALL  TRMNAT 
ENDIF 

WRITE (6, 935)  NSETS 
DO  200  J = 1,  NSETS 
COUNT  * 0 

IF  (IOUT.  EQ.  10)  WRITE ( 8 , * ) ' J “',  J,  ' NSETS  , NSETS 

READ (5,*)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  IN  ', 

& 'SET  ',  J 

CALL  TRMNAT 
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ENDIF 


WRITE (6, 940)  DESCRP(J),  FTU,  FTY,  NPTSJJ) 

IF  ( IOUT  .EQ.  10)  WRITE(8,940)  DESCRP(J),  FTU,  TOT,  NPTS(J) 

WRITE(6,905) 

IF  (IOUT  .EQ.  10)  WRITE(8,905) 

DO  300  M - 1,  NDIV 

READ (5,*)  NUM,  RATIO,  REG 
IF  (ABS( RATIO)  .GT.  1.0)  THEN 


'error:’ "Invalid  value  of  ratio: 


RATIO 


CALL  TRMNAT 
ENDIF 


IF  (REG  .GT.  MAXREG)  THEN 
WRITE (8,*) 

'ERROR:  OVER  REGION  LIMIT  IN  RELATED  MATERIAL 

CALL  TRMNAT 
ENDIF 


IF  (IOUT  .EQ.  10)  THEN 
WRITE (8,*)  'NUM  = 
WRITE (8,*)  'RATIO  - 
ENDIF 


NUM,  ’ COUNT  - 
’ , RATIO,  ' REG 


COUNT 
',  REG 


DO  310  I * (COUNT  + 1),  (COUNT  + NUM) 
READ(5, * ) RAWSTR(I,J),  RAWNF(I,J) 
310  CONTINUE 


C CHECK  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  320  I * (COUNT  + 1),  (COUNT  + NUM) 

RATSTR ( I , J ) * RAWSTR ( 1 , J ) 

320  CONTINUE 


ELSE 


C 


& 


STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 
CALL  CONVRT ( J , (COUNT  + 1),  (COUNT  + NUM),  RAWSTR, 
RATSTR,  RATIO,  FTU,  FTY) 


C 


& 

& 

330 


ENDIF 

RECORD  BOTH  S/N  DATA  SETS  TO  RELATO 

DO  330  I - (COUNT  + 1),  (COUNT  + NUM) 

WRITE(6,910)  RAWSTR(I,J),  RAWNF(I,J),  RATIO,  REG, 
RATSTR(I,J),  RAWNF(I,J) 


IF  (IOUT  .EQ. 


10)  WRITE (8, 9 10)  RAWSTR(I,J),  RAWNF(I,J) 
RATIO,  REG,  RATSTR(I,J),  RAWNF(I,J) 


> 


CONTINUE 


K = NP  ( J , REG ) 

DO  340  I » (COUNT  + 1),  (COUNT  + NUM) 

K ■ K + 1 

LNSTR(K, J.REG)  - ALOG (RATSTR ( I, J) ) 

LNNF(K, J,REG)  ■ ALOG ( RAWNF ( I , J) ) 

340  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  ', 

t,  'IN  SET  ',  J 
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CALL  TRMNAT 
END  IF 

NP( J,REG)  - K 
COUNT  - COUNT  + NUM 

300  CONTINUE 

IF  (NPTS(J)  .NE.  COUNT)  THEN  

WRITE (8,*)  'ERROR:  NUMBER  OF  POINTS  PER  DIVISION  ', 

& 'INCORRECTLY  SPECIFIED  IN  SET  ',  J 

CALL  TRMNAT 
ENDIF 

200  CONTINUE 


C FORMAT  STATEMENTS  USED  TO  WRITE  TO  S PE CFO  AND  RELATO 

900  FORMAT(////,13X, 'MATERIAL  INPUT' .III, 2X, 'DESCRIPTION: ' »2X,A40, //, 
& M2X,'^IEL6  STRENGTH', 18X,Eil.5'//,2X. 'ULTIMATE  STRENGTH', 

& 15X,E11.5,//,2X, 'NUMBER  OF  POINTS', 16X,I2) 

905  FORMAT (//. 7 X, 'ORIGINAL  S/N ’ ,9X, ' STRESS ' , 15X, ' TRANSFORMED  S/N' , 

& / , 5x, ' STRESS ' , 7X, 'Lira ' , 7X, ' RATIO' , 3X, 'REGION' , 5X, 

& 'STRESS' ,7X, 'LIFE'/) 

910  FORMAT (2X, Ell .5,2X,F9 .0, 5X,F5 .2,5X,I1,5X,E11.5,2X,F9.0) 

913  FORMAT ( / / ) 

914  FORMAT ( 2X , 'THERE  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  SO  OF' , 

& 5X,E11.5) 

915  FORMAT (2X 

& / 

& '(CYCLES):  ',/) 


920  FORMAT( 10X,E9 .3) 

925  FORMAT (///,2X, 'EXOGENOUS  INFORMATION' ,///,2X, 

f.  'CONSTRAINT  ON  COEFFICIENT  OF  VARIATION.  C:',2X,F6.4, 

& //,2X, 'EXPLICIT  CONSTRAINT  ON  m FOR  EACH  REGION:', 

& //,2X, 'REGION' ,5X, '#  OF  POINTS ', 5X, 'LOWER  BOUND', 

& 5X, ' UPPER  BOUND' , / ) 


930  FORMAT(6X,Il, 11X, 11, 12X,F7 .4, 9X,F7 .4) 

935  FORMAT(20X, 'NUMBER  OF  DATA  SETS: ' ,2X.I2,//, 17X. 

'NOTE:  ALL  Kt  ASSUMED  TO  BE  1 . 0 ',//// ,23X, 


'TRANSFORMED  DATA') 


940  FORMAT (III, 2X, 'DESCRIPTION: ' ,2X.A40, 

& //,5X, 'YIELD  STRENGTH' .1&X.F7.0, 

& //,2X, 'ULTIMATE  STRENG1T!' . 15X,F7.0, 

& //,2X, 'NUMBER  OF  POINTS ', 16X, 12 ) 


945  FORMAT(/,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS: ' . 

& //,2X, 'REGION' ,5X, 'DELTA', 8X, 'mo', 10X, 'SIGMAi' ,/) 


950  FORMAT ( 5X, II, 5X,F7 . 2, 5X,F7 . 4, 5X,Ell .5) 

955  FORMAT(//,2X, 'MATERIALS  PROCESS  VARIATION  INFORMATION ' , 

& //,2X, ' MEDK* /MEDK : ' , 5X,E11 .5, / , 5X, 'LAMBDAN: ' ,5X,E11.5) 


RETURN 

END 
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THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  ON  STR( ) WHEN  THE 
STRESS  RATIO,  R,  IS  NOT  -1.0 

PROGRAMMER:  L.  NEHLIN  , , ...  .. 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5  , _ 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  CONVRT  (J,  NUMl,  NUM2,  STR,  RSTR,  R,  FTU,  FTY) 


INPUTS:  J,  NUMl,  NUM2,  STR,  R,  FTU,  FTY 

OUTPUTS : RSTR 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXSET  - 5) 


COMMON  I OUT 


INTEGER  I,  I OUT,  J,  NUMl,  NUM2 


REAL 

& 


FTU,  FTY,  R,  RSTR (MAXDAT,  Os MAXSET), 
STR (MAXDAT,  0: MAXSET) , TEST 


LIST  OF  VARIABLES 


FTU 

FTY 

I 

I OUT 
J 

MAXDAT 

MAXSET 

NUMl 

NUM2 

R 

RSTR() 

STR() 

TEST 


ULTIMATE  STRENGTH  OF  MATERIAL  (PSI ) 

YIELD  STRENGTH  OF  MATERIAL  (PSI)  Jl„_ 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 
DATA  SET  OF  INTEREST 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

FIRST  INDEX  TO  BE  TRANSFORMED 

LAST  INDEX  TO  BE  TRANSFORMED 

STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

STR( ) VALUES  TRANSFORMED  TO  R - -1.0  (PSI) 

ARRAY  CONTAINING  STRESS  VALUES  (PSI)  FOR  S/N  CURVE 
Kt  * Smax  * (1  - R)/2  , TO  BE  COMPARED  WITH  FTY 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I = NUMl,  NUM2 

TEST  = STR( I, J)  * (1.0  - R)/2.0 

IF  (IOUT.EQ. 10)  WRITE ( 8 , * ) 'I  -',1,'  J #Ji * TEST  ,TEST 

IF  (TEST  .GE.  FTY)  THEN 
RSTR(I,J)  * TEST 

IF  (IOUT.EQ. 10)  WRITE ( 8 , * ) ' 1 :RSTR( ) »',RSTR(I,J) 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .GT.  FTY))  THEN 
RSTR ( I , J ) = TEST/ ( 1.0  -((FTY  - TEST) /FTU) ) 

IF  (IOUT.EQ. 10)  WRITE ( 8, *) '2 :RSTR( ) =',RSTR(I,J) 

ELSE 

RSTR ( I , J ) » TEST/ (1.0  - ((1.0  + R)  * STR(I,J) 

& /(2.0  * FTU))) 

IF  (IOUT.EQ. 10)  WRITE (8,*) '3:RSTR( ) »',RSTR(I,J) 

END  IF 
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100  CONTINUE 

RETURN 

END 


SUBROUTINE  SW2SU2  CALCULATES,  SWHAT2 , THE  RESIDUAL  VARIANCES  OF  Y ON  X 
AND,  SUHAT2,  THE  X ON  Y REGRESSIONS  FOR  EACH  REGION  WHERE  Y « LN(NF)  AND 
X = LN(STR);  TO  BE  USED  IN  THE  CONFIDENCE  INTERVAL  CALCULATIONS 
L.  NEWLIN 

CODE:  60CT87  COMMENTS:  13JUL89 

MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY, 
t SY2,  DD,  SWHAT2,  SUHAT2,  NPPR) 

INPUTS:  NUMREG,  NSETS,  NP,  LNSTR.  LNNF 

OUTPUTS:  SX2,  SXY,  SY2,  DD,  SWHAT2,  SUHAT2,  NPPR 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  - 3,  MAXSET  ■ 5) 

COMMON  I OUT 

INTEGER  I OUT,  J,  K,  L,  NP(0:MAXSET,  MAXREG),  NPPR ( MAXREG ) , 

& NSETS,  NUMREG 

REAL  BB(MAXREG) , DD ( MAXREG ) , DIFFX (MAXDAT,  0:MAXSET), 

6 DIFFY (MAXDAT,  0:MAXSET),  LNNF (MAXDAT,  0:MAXSET,  MAXREG), 

fc  LNSTR ( MAXDAT , 0: MAXSET.  MAXREG),  MEANX ( 0 : MAXSET ) , 

& MEANY (0 : MAXSET) , SUHAT2 (MAXREG) , SWHAT2 (MAXREG) , 

& SX2 (MAXREG),  SXY(MAXREG) , SY2 (MAXREG) 


PROGRAMMER: 

DATE: 

VERSION: 


LIST  OF  VARIABLES 


BH 

DIFFX ( ) 

DIFFY ( ) 

IOUT 

J 

K 

L 

LNNF ( ) 
LNSTR ( ) 
MAXDAT 
MAXREG 
MAXSET 
MEANX ( ) 

MEANY ( ) 

NP  ( ) 

NPPR( ) 

NSETS 
NUMREG 
SUHAT2 ( ) 

SWHAT2 ( ) 


1-D  ARRAY  CONTAINING  SXY(L) /SY2 (L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  IHSTR(K, J,L) 

AND  MEANX (J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K, J,L) 

AND  MEANY (J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

3- D  ARRAY  CONTAINING  LN ( RAWNF ( ) ) , ALSO  INDEXED  FOR  REGION 

3-D  ARRAY  CONTAINING  LN ( RATSTR ( ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (X  » Ln  S) 

1- D  ARRAY  CONTAINING  SAMPLE  Y MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (Y  - Ln  N) 

2- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
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SX2<) 

swro 

SY2<) 


REGRESSION  FOR  THE  BEST  FIT  LINE  FOR 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

1— D^ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 

l-DAARRAYGCWTAININGn SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  « Ln  N) 


C INITIALIZE  ARRAYS 


DO  50  L * 
SY2  (L) 
SX2 (L) 
SXY(L) 
SWHAT2 (L 
SUHAT2 (L 
BB(L) 


1.  MAXREG 
6.0 
0.0 
0.0 

0.0 
0.0 


i. 


0 

0.0 


DD(L) 

NPPR(L)  = 0 
50  CONTINUE 


DO  60  J « 0,  MAXSET 
DO  70  K - 1,  MAXDAT 
DIFFY(K,J)  " 0.0 
DIFFX(K,«J)  * 0.0 
70  CONTINUE 

MEANY(J)  = 0.0 
MEANX(J)  = 0.0 
60  CONTINUE 

C NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2,  SUHAT2  FOR  EACH  REGION 


DO  100  L = 1,  NUMREG 


DO  200  J - 0,  NSETS 

C FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 

C FOR  DATA  SET  J IN  REGION  L 

MEANY(J)  “ 0.0 

MEANXJ)  « 0.0  „ , , 

IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) ' L L,  ' J 

* ' NP  NP( J,L) 


J, 


t 

250 


DO  250  K - 1,  NP(J,L) 

MEANY(J)  = MEANY(J)  + LNNFfK, J,L) 
MEANX (J)  * MEANX(J)  + LNSTR(K,J,L) 
IF  (IOUT  .EQ.  10)  WRITE (8 , * ) 'LNNF 
' LNSTR  **' , LNSTR(K,J,L) 

CONTINUE 


LNNF(K,J,L), 


i 


MEANY(J) 
MEANX (J) 
IF  J IOUT 


MEANY(J)/FLOAT(NP(J,L 
MEANX (J) /FLOAT (NP(J,L 
' WRITE ( 8 , * ) 

MEANX(J) 


.EQ.  10) 
MEANX(J)  =' , 


(J) 


MEANY(J), 


C 

C 

C 


TOW  CALCULATE  SAMPLE  VARIANCES,  SY2,  SX2  AND  SXY, 
yp  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  SET  IN  REGION  L 


& 

t 

300 


DO  300  K « 1, 
DIFFY (K, J) 


NP 


DIFFX(K, J)  = LNSTR(K, J,L)  - 
SY2(L)  - SY2 (L)  + DIFFY(K,J 


SX2L  - SX2 (L 
SXY (L)  - SXY (L j 
IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'K  , K, 


(K, J,L)  - MEANY(J) 

MEANX  (J) 

- **  2 

**  2 

* DIFFY(K,J) 


+ DIFFX(K, J 
+ DIFFX(K,J) 


1 


DIFFY (K,J) 


WRITE ( 8 , * ) 


DIFFX  (K,J  D!FFX^J^ 


ENDIF 

CONTINUE 


’ SY2 (L) 

' SXY (L) 


SY2 ( L ) , 
, SXY(L) 


DIFFY(K, J) , 

, SX2(L), 


NPPR(L)  - NPPR(L)  + NP( J ,L)  - 1 
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NPPR(L) 


IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'NPPR(L) 

200  CONTINUE 

IF  (SXY(L)  .GE.  0.0)  THEN 

LIFE  WILL  INCREASE  WITH  INCREASING  STRESS  — INVALID  FOR 
OUR  MODEL 

WRITE ( 8 , * ) 'ERROR:  SXY  >-  0 IN  REGION',  L 
CALL  TRMNAT 
ENDIF 

NPPR(L)  - NPPR(L)  - 1 
IF  (NPPR(L)  .LE.  0)  THEN 

WRITE (8,*)  'ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN  ', 

& 'REGION  ' ,L 

CALL  TRMNAT 
ENDIF 

SY2(L)  - SY2 (L)  / FLOAT ( NPPR (L ) ) 

SX2 (L)  - SX2 (L)  / FLQAT(NPPR(L) ) 

SXY(L)  = SXY (L)  / FLOAT (NPPR(L ) ) 

NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 
REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 

DD(L)  - SXY (L)  / SX2 (L) 

BB(L)  = SXY (L)  / SY2 (L) 

IF  (IOUT  .EQ.  101  THEN 

WRITE(8,*)  'NPPR(L)  NPPR(L) , ' SY2(L)  «' , SY2(L), 

& ' SX2JL)  SX2 (L) 

WRITE ( 8 , * ) 'SXY (L)  -',  SXYJL),  ' DD(L)  , DD(L), 

& ' BB(L)  BB(li) 

ENDIF 


& 

& 

& 


500 


DO  400  J * 0,  NSETS 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 

DO  500  K * 1,  NP(J,L^ 


J,  ' NP(J,L) 


NP(J,L) 


SWHAT2 ( L ) - SWHAT2 (L) 

+ (DIFrT (K, J)  - DD(L)  * DIFFX(K, J) ) **  2 
SUHAT2 ( L ) - SUHAT2 (L) 

+ (DIFFX(K,J)  - BB(L)  * DIFFY(K, J) ) **  2 
IF  (IOUT  .EQ.  10)  WIITE(8,*) 


SWHAT2 (L) , 
CONTINUE 


SUHAT2 (L) 


'K  K, 
SUHAT2 (L) 


SWHAT2(L) 


400  CONTINUE 

SWHAT2 (L)  ” SWHAT2 (L)  / FLOAT ( NPPR(L) ) 

SUHAT2 (L ) - SUHAT2 (L)  / FLOAT (NP PR (L) ) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)  'NPPR(L)  »' , NPPR(L) , 

& ' SWHAT2 (L)  SWHAT2 (L) , ' SUHAT2(L)  =' , SUHAT2(L) 

100  CONTINUE 


RETURN 

END 


****** ***************************************************** ************* 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CONFIDENCE  INTERVAL,  IO,  ON 
C;  AND  THE  95%  CONFIDENCE  INTERVAL,  Jo,  ON  M 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 
& JZERO,  MCHAT) 
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C INPUTS:  NUMREG,  SX2 , DD,  SWHAT2 , SUHAT2,  NPPR 

C OUTPUTS:  IZERO,  JZERO,  MCHAT 

C SUBPROGRAMS : TRMNAT 

C IMPLICIT  NONE 

INTEGER  CHITAB,  MAXREG,  TTAB 

PARAMETER  (CHITAB  * 150,  MAXREG  - 3,  TTAB  = 31) 

COMMON  IOUT 

INTEGER  I,  IOUT,  L,  NPPR ( MAXREG ) , NUM,  NUMREG 

REAL  ARG,  CHI025 (CHITAB),  CHI 9 7 5 ( CHITAB ) , DD  < MAXREG > , 

& IZERO(2,  MAXREG),  JZERO(2.  MAXREG).  MCHAT (2 , MAXREG), 

& SUHAT,  SUHAT2 (MAXREG),  SWEAT,  SWHAT2 (MAXREG) , SX, 

& SX2 ( MAXREG ) , T,  T025 (TTAB) 

DATA  (CHI025(I£,  I « 1&  75)  0.215795.  0.484419,  0.831211, 

1.237347,  l'.68987,  2.17973,  2.7&039,  3.24697, 

3.81575,  4.40379,  5.00874,  5.62872,  6.26214, 

6.90766.  7.56418,  8.23075,  8.90655,  9.59083, 

10.28295,  10.9823,  11.6885,  12.4011,  13.1197, 


13 . 8439 , 14.5733, 

17.53,  18.28, 

21.33,  22.10, 

25.21,  25.99, 

29.15,  29.95, 

33.16,  33.96, 

37.21,  38.02, 

41.30,  42.12, 

45.43,  46.26, 

49.59,  50.42, 

DATA  (011025(1).  I = 76,  150)  / 
& 5$. 78,  54.62, 

& 57.80,  58.84, 

& 62.24,  63.09, 

& 66.50,  67.35, 

& 70.78,  71.64, 

& 75.08,  75.94, 

& 79.40,  80.27, 

& 83.73,  84.60, 

& 88.08,  88.95, 

& 92.45,  93.32, 

& 96.82.  97.70. 

& 101.21,  102.09, 

& 105.61,  106.49, 

& 110.02,  110.90, 

& 114.44,  115.33, 


15.3079, 

19.04, 

22.87, 

26.78, 

30.75, 

34.77, 

38.84, 

42.95, 

47.09, 

51.26, 

55.46, 
59.69, 
63.94, 
68.21, 
72.50, 
76.80, 
81.13, 

85.47, 
89.83, 
94.19, 
98.57, 
102.97, 
107.37, 
111.79, 
116.21, 


16.0471, 

19.80, 

23.65, 

27.57, 
31.55, 

35.58, 

39.66, 
43.77, 
47.92, 

52.10, 

56.30, 

60.54, 

64.79, 

69.07, 
73.36, 

77.67, 
82.00, 
86.34, 
90.70, 

95.07, 
99.45, 
103.85, 
108.25, 

112.67, 

117.10, 


DATA  <CHI975(I£  I ; 1.  75^/  U.1433f 

S 14.4494  16.0128,  17.5346,  19.0228, 

4 21.9200,  23.3367,  24.7356,  26.1190, 

4 28.8454,  30.1910,  31.5264,  32.8523, 

4 35.4789,  36.7807,  38.0757,  39.3641, 

4 41.9232,  43.1944,  44.4607,  45.7222, 

4 48.23,  49.48,  50.72,  51.96, 

4 54.44,  55.67,  56.89,  58.12, 

4 60.56,  61.77,  62.99,  64.20, 

4 66.62^  67.82,  69.02,  70.22, 

4 72.61,  73.81,  75.00,  76.19, 

4 78.57,  79.75,  80.93,  §2.12, 

4 84.48  85.65,  86.83,  88-00, 

4 90.35  91.52,  92.69,  93.86, 

4 96.19;  97.35,  98.52,  99.68, 

DATA  (CHI975 ( I ) , I * 76,  150)  / 

4 102.00,  103.16,  104.31,  105.47, 

4 107.78,  108.94,  110.09,  111-24, 

4 113.54,  114.69,  115.84,  116.99, 

4 119.28,  120.43,  121.57,  122.72, 

4 125.00,  126.14,  127.28,  128.42, 

4 130.70,  131.84,  132.98,  134.11, 


16.7908, 

20.56, 
24.4331, 
28.36, 
32.3574, 

36.39. 
40.4817, 
44.60, 
48.7576, 
52.94  / 

57.1532, 

61.39, 
65.6466, 
69.92, 
74.2219, 
78.53, 
82.87, 
87.21, 

91.57, 
95.94. 
100.33, 
104.73, 
109.14, 
113.56, 
117.98  / 

12.8325, 

20.4831, 

27.4884, 

34.1696, 

40.6465, 

46.9792, 

53.20. 

59.3417, 

65.41, 

71.4202, 

77.38, 

83.2976, 

89.18, 

95.0231, 

100.84  / 

106.629, 

112.39, 

118.136, 

123.86, 

129.561, 

135.25, 
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136 , 

,38, 

137 , 

.52, 

138, 

.65, 

139, 

.79, 

140. 

92, 

142, 

.05, 

143, 

.18, 

144, 

.31 

145, 

.44, 

146. 

■57' 

147, 

,70, 

148, 

.83, 

149, 

.96, 

151, 

.09, 

152, 

.21, 

153, 

,34, 

154, 

.47, 

155, 

.59, 

156, 

.72, 

157, 

.84, 

158, 

.97, 

160, 

.09, 

161, 

.21, 

162, 

.33, 

163, 

.46, 

164, 

.58, 

165, 

.70, 

166. 

.82, 

167, 

.94, 

169, 

.06, 

170, 

.18, 

171, 

.30, 

172, 

.41, 

173, 

.53, 

174, 

.65, 

175, 

.77, 

176, 

.88, 

178. 

.00, 

179, 

.12, 

180, 

.23,  , 

181, 

►35, 

182, 

.46, 

183, 

.58, 

184, 

.69, 

185, 

.80  / 

VALUES  FOR  THE  TABLES  ABOVE  WERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 

1 - 30,  40,  50,  60,  70,  80,  90,  100  — Theil,  pp.  718-719 

31-39,  41-49,  51-59,  61-69,  71-79,  81-89,  91-99,  101-150 
— CALCULATED  USING  CUBE  RULE  APPROXIMATION 


DATA  T025  / 12.706,  4.303, 
& 2.365,  2.306, 
& 2.160,  2.145, 
& 2.093,  2.086, 
& 2.060,  2.056, 


3.182,  2.776, 
2.262,  2.228, 
2.131,  2.120, 
2.080,  2.074, 
2.052,  2.048, 


2.571,  2.447, 
2.201,  2.179, 
2.110,  2.101, 
2.069,  2.064, 
2.045,  2.042, 


1.960  / 


LIST  OF  VARIABLES 


ARG 

CHI025 ( ) 
CHI975 ( ) 
CHITAB 
DD(  ) 

I 

I OUT 
IZERO( ) 

JZERO( ) 

L 

MAXREG 
MCHAT( ) 


NPPR< ) 

NUM 
NUMREG 
SUHAT 
SUHAT2 ( ) 

SWHAT 
SWHAT2  ( ) 

sx 

SX2() 

C T 

C T025 ( ) 

C TTAB 


INTERMEDIATE  CALCULATION  VARIABLE 

TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI025  AND  CHI975 

1- D  ARRAY  CONTAINING  SXY(L) /SX2 (LI  FOR  EACH  REGION 
CONTROLS  LOOP  FOR  CHI025()  AND  CHI975() 

OUTPUT  DUMP  CONTROLLER  

2- D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) - -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L ) = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )-l)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATIONS 
NUMBER  OF  REGIONS  OF  INTEREST 

EQUAL  TO  SUHAT2 (L)**0 .5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  = Ln  S,  Y ■ Ln  N) 

EQUAL  TO  SWHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  > Ln  S,  Y * Ln  HI 
EQUAL  TO  (NPPR(L)  *SX2  (L))**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

VALUE  OF  T025()  USED  IN  CALCULATIONS 

TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 

MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  IZERO,  JZERO  AND  MCHAT 

DO  50  L - 1,  MAXREG 
IZERO ( 1 , L)  =0.0 
IZERO(2,L)  = 0.0 
JZERO(l,L)  =0.0 
JZERO(2,L)  =0.0 
MCHAT ( 1 , L ) =0.0 
MCHAT(2,L)  = 0.0 
50  CONTINUE 
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C CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEEDED 


C 

C 


DO  75  L * 1,  NUMREG  

" LIMIT  OH  DEGREES  O'  EEEEDOH 

t ' ' IN  CHI-SQUARE  TABLE,  IN  REGION  ' , L 

CALL  TRMNAT 
END  IF 
75  CONTINUE 

ASSIGN  VALUES  TO  NUM,  T,  SWHAT,  SUHAT  AND  THEN  CALCULATE 
CONFIDENCE  INTERVALS  FOR  EACH  REGION 


t 


DO  100  L - 1,  NUMREG 


NUM  - NPPR(L) 


C 


IF  (NUM  .LT.  31)  THEN 
T - T025 (NUM) 
else 

T = T025 (NUM) 

ENDIF 


SWHAT  * SWHAT2 ( L ) **  0.5 
SUHAT  - SUHAT2 (L)  **  0.5 
SX  = (NUM  * SX2 (L) ) **  0. 


5 


CALCULATE  ESTIMATED  VALUES  OF  M AND  C 


C 


ARC  - T * SWHAT  / SX 
MCHAT ( 1 , L ) - - DD(L) 
MCHAT ( 2 , L ) = SUHAT 


CALCULATE  CONFIDENCE  INTERVALS 


IZERO( 1 ,L) 
IZERO(2,L) 
JZERO ( 1 , L ) 
JZERO ( 2 , L ) 


- MCHAT(2,L)  * (FLOAT (NUM) 
= MCHAT(2,L)  * (FLOAT (NUM) 
■ MCHAT ( 1 , L ) - ARG 
= MCHAT ( 1,L)  + ARG 


/ CHI975(NUM)  ) 
/ CHI 025 (NUM)) 


**  0.5 
**  0.5 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8,  * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

& 

WRITE ( 8 , * ) 

& 

WRITE ( 8 , * ) 

& 

ENDIF 
100  CONTINUE 


NPPR 


10)  THEN 

'SWHAfa1^  , 

' SUHAT2  = ',  SUHAT2 (L 
' SX2  SX2(L).  ' SX 
'CHI025  CHI025(NUMJ, 

r ip  — t 

' izero( i|l 


IZERO(2,L 
' JZERO(l,L 
JZERO(2,L 
' MCHAT ( 1 , L 
MCHAT ( 2 , L 


«,«rsv  - , NPPR(L) , ' NUM  -' . NUM 

SWHAT2 ( L ) , ' SWHAT  =' , SWHAT 

),  ' SUHAT  , SUHAT 
‘ SX 

, w*— v CHI975  CHI975(NUM) 

? DD  =' , 'dD(L) , ' ARG  ARG 
IZERO(l»L),  ' IZERO(2,L) 


JZERO ( 1 , L ) , 
MCHAT ( 1 , L ) , 


JZERO(2,L) 
MCHAT ( 2, L) 


RETURN 

END 


********************************** 4 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPON 
THE  Co  GIVEN  BY  THE  USER 

PROGRAMMER:  L.  NEWLIN  „__M 

DATE:  CODE:  80CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

MATGRM  V4|  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
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SUBROUTINE  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  HCPNT,  MC) 

C INPUTS:  NUMREG,  CZERO,  SX2,  SXY,  SY2 

C OUTPUTS:  MCPNT,  MC 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT ( MAXREG ) , NUMREG 

REAL  ARGl,  ARG2,  CZERO,  CZER02,  MC(2,  MAXREG),  SX2 ( MAXREG ) , 

& SXY ( MAXREG ) , SY2 (MAXREG) 


LIST  OF  VARIABLES 

ARGl  INTERMEDIATE  CALCULATION  VARIABLE 

ARG2  INTERMEDIATE  CALCULATION  VARIABLE 

CZERO  EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  Co 
CZER02  EQUAL  TO  CZERO  **  2 

I OUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MC( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH  REGION 

CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — - MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER  BOUND 
MCPNT ( ) 1— D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC ( ) FOR  EACH  REGION 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SX2 ( ) 1— D ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

(X  * Ln  S) 

SXY ( ) 1— D ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR 

EACH  REGION  (X  - Ln  S,  Y = Ln  N) 

SY2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 

(Y  = Ln  N) 


C INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
MCPNT ( L ) * 0 
MC(1,L)  = 0.0 
MC(2,L)  = 0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 

CZER02  * CZERO  **  2 
IF  ( I OUT  .EQ.  10) 

& WRITE ( 8, *)  'CZERO  * ',  CZERO,  ' CZERO 2 * CZER02 

DO  100  L = 1,  NUMREG 

ARGl  = SX2 (L)  - CZER02 
ARG2  =0.0 

IF  (CZERO  .EQ.  0.0)  THEN 
C THEN  NO  M CONSTRAINT  IS  REQUIRED 

MCPNT(L)  = 0 

ELSE IF  (ABS(ARGl)  .LT.  1.0E-6)  THEN 
C THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 
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MCPNT(L)  - 1 , 

MC(1,L)  * - SY2 (L)  / (2.0  * SXY(L) ) 

ELSE 

THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOME 
COMMON  CALCULATIONS 


ARG2  - (SXY(L)  **  2 - SY2(L)  * ARGl) 

IF  (ARG2  .LT.  0.0)  THEN 

C ARG2  IS  NEGATIVE  — IMPLIES  M IS  COMPLEX 

WRITE ( 8 , * ) 'ERROR:  CO  TOO  LOW' 

CALL  TRMNAT 
ELSE 

ARG2  - ARG2  **0.5 
ENDIF 

IF  (SX2 (L)  .LT.  CZER02)  THEN 

C AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 

MCPNT(L)  - 1 

MC(1,L)  = (-  SXY(L)  - ARG2)  / ARGl 
ELSE 

C SX2 (L)  .GT.  CZER02  — THIS  TIME  THE  M CONSTRAINT  IS  A RANGE 

MCPNT(L)  * 2 

MC ( 1 , L ) « (-  SXY (L)  - ARG2)  / ARGl 
MC ( 2 , L ) = (-  SXY (L)  + ARG2)  / ARGl 

ENDIF 

ENDIF 

ICO  CONTINUE 


IF  (IOUT  .EQ.  10)  THEN 


DO  200  L = 1,  NUMREG 


WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


'L  =',  L, 
'ARGl  = ' , 
' MC  ( 1 , L ) = 


' MCPNT  = ',  MCPNT(L) 
ARGl , ' ARG2  = ' , ARG2 

',  MC( 1,L) , ' MC (2 ,L)  > 


MC(2,L) 


200  CONTINUE 


ENDIF 


RETURN 

END 


C 

c 

c 

c 

c 

c 


SUBROUTINE  GTPVAR  CALCULATES  THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE 
HEAT  MEDIAN  S/N  CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 


PROGRAMMER: 
DATE: 
VERSION : 


L.  NEWLIN 
CODE:  21JUN88 

MATCHR  V8.1,  V8.2, 
MATGRM  V4.1,  V4.2, 


COMMENTS:  13JUL89 

V8.3,  V8.4,  V8.5 
V4.3,  V4.4,  V4.5 


SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 


C INPUTS:  NSETS,  NP,  NUMREG,  LAMN,  MCHAT 

C OUTPUTS : PVAR 


C IMPLICIT  NONE 
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INTEGER  MAXREG,  MAXSET 
PARAMETER  (MAXREG  - 3,  MAXSET  - 5) 

COMMON  I OUT 

INTEGER  I OUT,  J,  L,  NP(0:MAXSET,  MAXREG),  NSETS,  NUM( MAXREG) , 
& NUMREG,  TOTAL 

REAL  LAMN,  MCHAT ( 2 , MAXREG),  PSIG2 (MAXREG) , PVAR,  SUM 


LIST  OF  VARIABLES 


IOUT 

J 

L 

LAMN 

MAXREG 
MAXSET 
MCHAT ( ) 


NP() 

NSETS 
NUM(  ) 

NUMREG 
PSIG2 ( ) 

PVAR 

SUM 

TOTAL 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  REGIONS  AND  COMPONENTS 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT( 1,L)  * -DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  - SUHAT,  THE  ESTIMATE  FOR  C 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

EQUAL  TO  Nj-1  FOR  EACH  REGION  WHERE  Nj  IS  THE  SUM  OF  THE 
NUMBER  OF  POINTS  IN  EACH  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  ESTIMATES  OF  THE  MATERIALS  PROCESS 
VARIATION  IN  EACH  REGION 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEDIAN  S/N 
CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 
WEIGHTED  SUM  OF  THE  PSIG2S  — USED  TO  CALCULATE  A WEIGHTED 
AVERAGE 

SUM  OF  NUM( ) OVER  ALL  REGIONS 


C INITIALIZE  VARIABLES 

SUM  - 0.0 
TOTAL  =0.0 

DO  50  L = 1,  MAXREG 
PSIG2 (L)  =0.0 
NUM(L)  = 0 
50  CONTINUE 

DO  100  L = 1,  NUMREG 
DO  150  J = 0,  NSETS 

NUM(L)  = NUM(L)  + NP(J,L) 

150  CONTINUE 

NUM(L)  = NUM(L)  - 1 
TOTAL  = TOTAL  + NUM(L) 

100  CONTINUE 

DO  200  L » 1,  NUMREG 

PSIG2 (L)  = (LAMN  - 1.0)  * MCHAT(2,L)  **  2 
SUM  = SUM  + PSIG2 (L)  * NUM(L) 

200  CONTINUE 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'LAMN  = LAMN 
DO  300  L = 1,  NUMREG 

WRITE ( 8 , * ) 'L  = ',  L,  ' NUM  = NUM(L) 

WRITE ( 8 , * ) 'MCHAT  = ',  MCHAT(2,L),  ' PSIG2  = ',  PSIG2(L) 
300  CONTINUE 

WRITE (8,*)  'TOTAL  = ',  TOTAL,  ' SUM  = ',  SUM 
END  IF 

PVAR  = SUM  / FLOAT  (TOTAL) 
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RETURN 

END 


►***★************< 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KN CWLEDGE  <y  B*>1'H 
M AND  CO  WITH  THE  95%  CONFIDENCE  INTERVALS  (JZERO  FROM  INTRVL) 

TO  OBTAIN  POSTERIOR  CREDIBILITY  RANGES  ON  M FOR  EACH  REGION 


PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 
CODE:  2FEB88 

MATCHR  V6.1,  V6.2 
V8.4,  V8.5 
MATGRM  V4,  V4.1, 


FORMAT/COMMENTS:  12AUG91 

, V7,  V7.1,  V8,  V8.1,  V8.2, 

V4.2,  V4.3,  V4.4,  V4.5 


V8.3, 


SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 
S,  MCHAT,  RANGEM) 


INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

OUTPUTS : RANGEM 

SUBPROGRAMS : TRMNAT 


IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT (MAXREG) , MPNT (MAXREG) , NUMREG 

REAL  JZERO(2,  MAXREG),  LOWER,  MC(2,  MAXREG),  MCHAT ( 2 , MAXREG), 
fc  MZERO ( 2 , MAXREG),  RANGEM ( 2 , MAXREG),  UPPER 


LIST  OF  VARIABLES 


I OUT 
JZERO () 

L 

LOWER 
MAXREG 
MC  ( ) 


MCHAT () 

MCPNT () 
MPNT( ) 
MZERO () 

NUMREG 
RANGEM ( 

UPPER 


OUTPUT  DUMP  CONTROLLER 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
— MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT (1,L)  - - DD(L) , THE  ESTIMATE 
FOR  M AND  MCHAT(2,L)  * SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC ( ) FOR  EACH  REGION  „ , „„  _ TM 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO ( ) FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  

NUMBER  OF  REGIONS  OF  INTEREST  „ 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


C INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM(1,L)  = 0.0 
RANGEM ( 2, L)  = 0.0 
50  CONTINUE 
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C PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 

DO  100  L - 1,  NUMREG 

IF  ( I OUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  « ' , L,  ' NUMREG  - ',  NUMREG 
WRITE (8,*)  'MPNT  “ ',  MPNT(L) , ' MCPNT  » ' , MCPNT(L) 
ENDIF 

IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  Jo 


RANGEM(1,L)  - JZERO(l,L) 
RANGEM(2,L)  » JZERO ( 2, L) 


& 

& 


IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'RANGEM(l.L)  - 
' JZERO(i.L)  - ' 
WRITE ( 8, * ) ' RANGEM! 2, L)  - 

' JZERO(2,L)  - ' 

ENDIF 


RAN GEM ( 1, L) , 
, JZERO( 1,L) 
RANGEM(2,L), 
, JZERO(2,L) 


ELSE IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A LOWER  BOUND  ON  M DUE 
TO  Co,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 

LOWER  = AMAX1 ( JZERO( 1 ,L) , MC(1,L)) 

UPPER  = JZERO ( 2 , L ) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L ) - LOWER 
RANG EM ( 2, L)  = UPPER 
ENDIF 


& 


& 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' JZERO ( 1,L) 

' JZEROi 2 , L) 

WRITE ( 8 , * ) 'MC(1,L)  * ' 
WRITE ( 8 , * ) 'LOWER  - ' , 
WRITE (8,*)  ' RANGEM ( 1 , L ) 
' RANGEM ( 2 , L ) 

ENDIF 


= ',  JZERO < 1,L) , 

« ',  JZERO(2,L) 

, MC( 1,L) 

LOWER,  ' UPPER  - 
■ ',  RANGEM ( 1, L) 
= ',  RANGEM ( 2, L) 


UPPER 


ELSE IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANGE 
CORRESPONDING  TO  THE  Co  CONSTRAINT,  ADJUST  Jo  ACCORDINGLY 

LOWER  = AMAX1 ( JZERO ( 1 , L ) , MC(1,L)) 

UPPER  » AMINl ( JZERO(2 ,L) , MC(2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  MC' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L ) = LOWER 
RANGEM ( 2, L)  = UPPER 
ENDIF 


& 


& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 

’ JZERO ( 1 , L)  = ',  JZERO ( 1,L) , 

JZEROi 2 , L)  = ',  JZERO( 2 ,L) 

' MC ( 1 ,!■)  = ',  MC(1,L),  ' MC(2,L)  « ', 
'LOWER  = ',  LOWER,  ' UPPER  “ UPPER 
' RANGEM ( 1 , L ) “ ',  RANGEM ( 1,L) , 

RANGEM ( 2 , L ) = ',  RAN GEM ( 2, L) 


MC(2,L) 


ELSE IF  (MPNT(L)  .EQ.  1)  THEN 
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c 

c 


c 

c 


& 

& 


c 

c 

c 


& 

& 


c 

c 


THERE  ts  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATIONS  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM ( 1 r L ) 
RANGEM ( 2 , L ) 


MZERO(l,L) 

0.0 


IF  ( IOUT  .EQ.  10)  THEN 

WRITE ( 8 f * ) 'MZERO(l.L)  ■ 
WRITE  ( 8 , * ) 'RANGEM(1,L) 

' RANGEM(2,L) 

END  IF 


, MZERO ( 1 , L ) 
RANGEM(1,L), 
RANGEM(2,L) 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT 
USE  INTERSECTION  BETWEEN  JO  AND  Mo 


AMAXl(JZra0^1,LJ#  ME3JO{l,Lj  j 


uSreS  - SaSiljzraoi^Ei: 

IF  (UPPER  .LT.  LOWER)  THEN  , 

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Mo' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  = LOWER 
RANGEM ( 2, L)  * UPPER 
ENDIF 

IF  (IOUT  .EQ.  10)  THEN 
WRITE (8,*)  ' JZERO( 1 ,L) 

' JZERO(2 ,L‘ 

WRITE (8,*)  ' MZERO ( 1 , L 

' MZERO ( 2 , L 


WRITE  | 

I8**) 

'LOWER  “ ', 

WRITE  | 

(8,*) 

' RANGEM ( 1,L) 

& 

' RAN GEM?  2,  L) 

- JZERO(l,L), 

» ',  JZERO(2 ,L) 

- ',  MZERO ( 1,L) , 

= ',  MZERO (2, L) 
LOWER,  ' UPPER  = ', 

- RANGEM ( 1 ,L) , 

- RANGEM ( 2 , L ) 


UPPER 


ENDIF 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT,  INTERSECT  Jo  AND  Mo,  ADJUSTING  THE  LOWER  BOUND 
BY  MC  ACCORDINGLY 

LOWER  ■ AMAXl ( JZERO( 1,L) , MZERO(l,L),  MC(1,L)) 

UPPER  - AMIN 1( JZERO? 2, L),  MZERO(2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN  

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  Mo,  ', 

'AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L)  = LOWER 
RANGEM? 2, L)  * UPPER 


ENDIF 

IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' JZERO? 1 ,L) 


JZERO(2,L) 
WRITE ( 8 , * ) 'MZERO( 1,L) 
' MZERO ( 2, L) 
WRITE ( 8 , * ) »MC(1,L) 
WRITE (8,*)  'LOWER 

*'  'RANEGE, 

RANGEM? 2, 


’,  JZERO ( 1 , L ) , 

’,  JZERO ( 2 , L ) 

’ , MZERO ( 1 , L ) , 
MZERO(2,L) 

' MC(1,L) 

, LOWER,  ' UPPER  - ' , 

WRITE ? §1  * ) 'RANEGM( 1,L)  » ',  RANGEM(1,L), 

' RANGEM(2»I*>  “ 'f  RANGEM(2,L) 

ENDIF 


UPPER 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  CO  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES  WITH  Jo 

LOWER  = AMAX1( JZERO ( 1,L) , MZERO? 1,L) , MC?l,Ln 
UPPER  = AMIN 1 (JZERO (2, L) , MZERO(2,L),  MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN  „„  , 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  Mo,  ', 

'AND  Me' 
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CALL  TRMNAT 
ELSE 

RANGEM ( 1 ,L ) = LOWER 
RANGEM ( 2 , L ) - UPPER 
ENDIF 


& 

& 


& 


IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) ' JZERO( 1,L)  - ',  JZERO 
' JZERO ( 2, L)  - ' , JZERO 
WRITE ( 8 , * ) 'MZERO  1,L  - MZERO 

' MZERO ( 2 , L)  - MZERO 
WRITE  ( 8 , * ) 'MC(1,L)  ■ ',  MC(1,L) 

WRITE ( 8 , * ) 'LOWER  - ' , LOWER,  ' UPPER  - ', 
WRITE ( 8 , * ) ' RANGEM ( 1,L)  - RANGEM ( 1,L) , 

' RANGEM ( 2, L)  - RANGEM(2,L) 

ENDIF 


UPPER 


ELSE 

WRITE (8,*)  'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 

CALL  TRMNAT 

ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM ( 1 , L ) - AMAX1 ( RANGEM ( 1 ,L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  = ',  RANGEM ( 1,L) 
100  CONTINUE 


C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ( (MCHAT( 1 ,L)  .LT.  RANGEM ( 1 , L ) ) 

S,  .OR.  (MCHAT(  1,L)  .GT.  RANGEM ( 2, L)  ) ) 

& WRITE ( 8 , * ) 'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE  ', 

& 'ON  m IN  REGION  L 

300  CONTINUE 


RETURN 

END 


Q+* ******★*★*★★*★*★***★*★*★★★★**★*★****★*****★**★*******★★★★★★* ********** 


SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  FOR  REGIONS 
WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8 . 4 , V8 . 5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C INPUTS:  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

C OUTPUTS:  RANGEM,  MCHAT,  NUMREG 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 


7-74 


oo  o oooooooooooooooooooo 


INTEGER  I OUT,  L 


, LL,  MPNT(HAXREG),  NNODAT,  NUHREG 


REAL 


MCHAT( 2 f MAXREG) , HZERO(2,  MAXREG) , RANGEM(2 , MAXREG) 


LIST  OF  VARIABLES 


I OUT 

L 

LL 

MAXREG 
MCHAT ( ) 


MPNT( ) 
MZERO() 


NNODAT 
NUMREG 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUHREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) - - DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT  ( 2 , L ) - SUHAT,  THE  ESTIMATE  FOR  C 

1—  D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ( ) FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO ( 1,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 


IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) 'NUMREG  «' , NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  * NUMREG 

IF  (IOUT  .EQ.  10)  WRITE (8,*)  'L  = ',  L,  ' NUMREG  , NUMREG, 
& ' LL  =',  LL,  ' MPNT(LL)  *',  MPNT(LL) 


& 

& 


IF  ( (MPNT(LL)  .EQ.  1)  .OR.  (MFNT(U.)  .EQ. 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM ( 1 , LL)  = MZERO(l,LL) 

RANGEM (2, LL)  = MZERO j2,LL) 


2))  THEN 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
' RANGEM (1,LL) 
' MZERO ( 1,LL) 
' RANGEM ( 2, LL) 
' MZERO(2,LL) 


RANGEM ( 1 , LL ) , 
, MZERO ( 1 , LL ) 
RANGEM ( 2, LL), 
, MZERO ( 2 , LL ) 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 


IF  ( RANGEM ( 2 , LL ) .EQ.  0.0)  THEN 
MCHAT ( 1 , LL ) = RANGEM (1,LL) 

ELSE 

MCHAT( 1,LL)  - ( RANGEM ( 1 , LL ) + RANGEM ( 2 , LL ) ) / 2.0 
ENDIF 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'MCHAT  =' , MCHAT ( 1 , LL ) 
ELSE 

WRITE ( 8 , * ) 'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ', 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 


C************************************************************************ 


C SUBROUTINE  CONCAV  ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
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LIST  OF  VARIABLES 

IOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANG EM ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

TESTM  UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-l  — USED  DURING 

CONCAVITY  ADJUSTMENT 


C ADJUST  RANGE  TO  INSURE  CONCAVITY 

DO  100  L « NUMREG,  2,  -1 

IF  (RANGEM(2,L-1)  .EQ.  0.0)  THEN 

C RANGE  IS  A POINT  IN  REGION  L-l  

IF  ( RANGEM ( 1,L-1)  .GT.  AMAX1(RANGEM( 1,L) , RANGEM (2, L) ) ) THEN 
WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  L, 

& ' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGION  ' ,L-1 

CALL  TRMNAT 
END  IF 

ELSE  

C RANGE  IS  AN  INTERVAL  IN  REGION  L-l 

TESTM  - AMAXl < RANGEM ( l.L) , RANGEM (2, L) ) 

IF  (TESTM  .LT.  RANGEM ( l.L- 1))  THEN 

WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  ',  L, 

& ' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN  ' , 

& 'REGION  ',  L-l 

CALL  TRMNAT 
ELSE 

RANGEM ( 2 , L- 1 ) = AMIN 1 ( RANGEM ( 2 , L- 1 ) , TESTM) 

ENDIF 

ENDIF 


& 

& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
ENDIF 


10)  THEN 


'TESTM 


IGEM(l.L-l) 

NGEMj 2 ,L-1 ) 

IGEM(  l.L)  RA 

NGEM(2,L)  »' , R 
;TM  TESTM,  ' 


RANGEM ( l.L— 1] 


100  CONTINUE 


RETURN 
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END 


C 


SUBROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  CO 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  1DEC87 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8  • 4 V8 • 5 

MATGRM  V4  j V4.  l)  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 


INPUTS:  NUMREG,  RANGEM 

I OUTPUT:  MEDM 


IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  LOWERM,  MEDM ( MAXREG ) , RANGEM ( 2 , MAXREG) 


LIST  OF  VARIABLES 


IOUT 

L 

LOWERM 

MAXREG 
MEDM( ) 
NUMREG 
RANGEM ( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  M RANGE  (DUE  TO  CONCAVITY  CONSIDERATION) 

TO  BE  USED  IN  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 


INITIALIZE  ARRAY  MEDM 

DO  50  L - 1,  MAXREG 
MEDM(L)  >0.0 
50  CONTINUE 

BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L » 1,  NUMREG 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT 
MEDM(L)  - RANGEM ( 1,L) 

ELSEIF  (L  .EQ.  1)  THEN 

WE  ARE  IN  REGION  ONE  — NOT  AFFECTED  BY  OTHER  REGIONS 
— MEDIAN  WILL  JUST  BE  AVERAGE  OF  RANGEM  VALUES 

MEDM(L)  - ( RANGEM ( 1,L)  + RANGEM ( 2, L) ) / 2.0 

ELSE 

C MUST  TAKE  MEDIAN  OF  REGION  L-l  INTO  ACCOUNT 
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LOWERM  - AMAX 1 ( RANGEM ( 1 , L ) , MEDM(L-l) ) 
MEOM(L)  - (LOWERM  + RANGEM ( 2, L) ) / 2.0 

ENDIF 


& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8,*) 


WRITE ( 8, * ) 
ENDIF 


10)  THEN 

'L  - L,  ' NUMREG  - ' , NUMREG 
' RANGEM ( 1,L)  - RANGEM ( 1,L) , 

RANGEM(2,L)  - ' , RANGEM/ 2, L) 
'LOWERM  - LOWERM,  ' MEDM(L)  » 


MEDM(L) 


100  CONTINUE 

RETURN 

END 


c** ★**★**★★★★*★★**★★★★**★★★★★*★****★*★*★*★************* ★***★*★★*★*★★**★★* 


C SUBROUTINE  EXPCTD  CALCULATES  THE  EXPECTED  OR  MEDIAN  VALUES  OF  THE  S/N 
C CURVE  PARAMETERS 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  13FEB89  FORMAT /COMMENTS : 15SEP89 

C VERSION:  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

C 

C Copyright  (C)  1990 , California  Institute  of  Technology. 

C U.S . Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


SUBROUTINE  EXPCTD  (NCOMPS,  MEDM,  NPTS.  STR,  NF,  SZERO,  NUMREG, 

& ZROREG,  NBND,  BIGK1,  BZHAT) 

C INPUTS:  NCOMPS,  MEDM.  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

C OUTPUTS:  BIGKl,  BZHAT 

C SUBPROGRAMS:  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB,  KOMO 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  * 50,  MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NCOMPS,  NP,  NPTS  (MAXREG) , NUMREG,  ZROREG 

REAL  BIGK ( 0 : MAXREG ) , BIGKl,  BZHAT,  FACTR,  KHAT,  MEANZ, 

& MEDM  (MAXREG) , MM(  0 : MAXREG) , NBND(  0 : MAXREG)  . 

& NF(  MAXDAT,  MAXREG) , SBND  ( 6 : MAXREG ) , STR  (MAXDAT,  MAXREG), 

& SZ2,  SZERO,  TRBIGK<0: MAXREG),  ZZ (MAXDAT) 


C 

C 


BIGK( ) 


BIGKl 

BZHAT 

FACTR 

IOUT 

KHAT 

L 

MAXDAT 
MAXREG 
MEANZ 
MEDM( ) 


NBIn 


LIST  OF  VARIABLES 

1— D ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K +*  M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

E(BETAO) 

A SCALE  FACTOR  - PHI  * KRATIO  * Z 

OUTPUT  DUMP  CONTROLLER 

E(k) 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z * F(STR,  NF,  NBND,  MM) 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
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NCOMPS 

NF() 

NP 

NPTS ( ) 

NUMREG 
SBND( ) 

STR(  ) 

SZ2 

SZERO 

TRBIGKO 

ZROREG 

ZZ() 


PFGTOHS  OF  INTEREST 

Number  of  COMPonentS  — 1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  — 2 FOR  DECOMPOSED  STRAIN  DATA 
2-D  ARRAY  CONTAINING  RAWNFH  (CYCLES  TO  FAILURE ) FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 

l-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST  , . 

1- D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R - -1.0)  

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND { ) . 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F(STR,  NF,  NBND,  MM) 
STRESS  TENSILE  TEST  POINT,  So 

l-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 

TRBIGK(i)  - BIGK(i)  

ZeRO  REG ion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
l-D  ARRAY  CONTAINING  TRANSFORMED  S-N  DATA,  Z = F(STR,NF,NBND, MM) 


C INITIALIZE  VARIABLES 

DO  50  L = 0.  MAXREG 
MM(L)  * 0.0 
50  CONTINUE 

C CREATE  MM()  ARRAY  FROM  MEDM()  ARRAY 

DO  100  L = 1,  NUMREG 
MM(L)  - MEDM(L) 

100  CONTINUE 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C CALCULATE  BETAO  AND  k 

CALL  KBETA  (MEANZ,  SZ2 , KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A = K **  M FOR  EACH  REGION 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 

BIGKl  - BIGK ( 1 ) 

C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  Ko  AND  Mo  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 


DO  150  L = ZROREG,  NUMREG 
TRBIGK(L)  * BIGK(L) 

150  CONTINUE 

IF  (ZROREG  .EQ.  0)  THEN 

FACTR  = 1.0  „„ 

CALL  KOMO  (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK, 
& FACTR,  NUMREG) 

ENDIF 

C WRITE  RESULTS  TO  FILE 

IF  (NCOMPS  .EQ.  1)  THEN 

WRITE (7, 900)  NUMREG,  BZHAT,  KHAT 
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IF  (IOUT  .EQ.  10)  WRITE( 8, 900)  NUMREG,  BZHAT,  KHAT 

DO  200  L - ZROREG,  NUMREG 

WRITE (7, 9 10)  L.  MM(L),TRBIGK(L),  NBND(L) ,SBND(L) 

IF  (IOU*  .E0.  10)  WRlTE(8,910)  L,  MM(L) , TRBIGK(L) , 

& NBND(L) , SBND(L) 

200  CONTINUE 

WRITE (7, 920) 

ELSE 

WRITE(7,930)  MM(1),  BIGK(l),  KHAT 
ENDIF 

C FORMAT  STATEMENTS 

900  FORMAT (///,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE' ,//, 2X, 

& 'NUMBER  OF  REGIONS: ',14, 5X, 'E(BETAo)  «',F8.4,5X, 'E(k)  , 

& F8. 4, //,2X, 'REGION', 7X, 'm',15X, 'K',9x, 'LIFE  BOUND', 7X, 

& 'STRESS  BOUND',/) 

910  FORMAT( 5X, II, 5X,F9 . 5, 5X,E12 . 5 , 5X,E9 . 3, 9X,E11. 5) 

920  FORMAT {III) 

930  FORMAT(//,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE', 

& // , llX, 'm',14X, 'K' , 13X, 'E(k) ' , 

& //,7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


C**** ******************************************************** ************ 


C SUBROUTINE  MUSIG  CALCULATES  THE  POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS: 
C MEAN,  MU,  AND  STANDARD  DEVIATION,  SIG;  FOR  EACH  REGION 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

C VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA, 

& MO,  SIGMA2,  MCHAT,  MU,  SIG) 

C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO,  SIGMA2 

C OUTPUTS:  MCHAT,  MU,  SIG 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG,  NPPR( MAXREG ) 

REAL  ARG,  DD ( MAXREG ) , DELTA ( MAXREG ) . MCHAT ( 2 , MAXREG), 

& MO ( MAXREG ) , MU (MAXREG) , SIG(MAXREG),  SIGMA2 (MAXREG) , 

& SUHAT2 (MAXREG) , SUMX2,  SWHAT2 ( MAXREG ) , SX2 (MAXREG) 


LIST  OF  VARIABLES 

ARG  INTERMEDIATE  CALCULATION  VARIABLE 

DD()  1-D  ARRAY  CONTAINING  SXY(L) /SX2(L)  FOR  EACH  REGION 

DELTA  ( ) 1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
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I OUT 
L 

MAXKEG 

MCHAT() 


MO() 

MU() 

NPPR() 

NUKREG 

SIG() 

SIGMA2 ( ) 

SUHAT2 ( ) 

SUMX2 
SWHAT2 ( ) 


SX2() 


SZG( ) CALCULATION 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  REGION  ALLOWED  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C FOR 
EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — MCHAT ( 1 , L ) - 
- DD(L) , THE  ESTIMATE  FOR  M AND  MCHAT ( 2 , L ) « SUHAT, 

THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )T1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  * Ln  S.  Y » Ln  N) 

EQUAL  TO  NPPR()  * SX2( ) FOR  A PARTICULAR  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REG1 
(X  = Ln  S) 


SION 


INITALIZE  ARRAYS 


DO  50  L - 1.  MAXREG 
MCHAT ( 1 , L ) “ 0.0 
MCHAT ( 2 , L ) - 0.0 
MU(L)  - 0.0 
SIG(L)  - 0.0 
50  CONTINUE 

BEGIN  CALCULATION  FOR  EACH  REGION 


DO  100  L - 1 , NUMREG 


MCHAT ( 1 , L ) - - DD(L) 

MCHAT ( 2 , L ) - SQRT  (SUHAT2(L)) 

SUMX2  * NPPR(L)  * SX2 (L) 

ARG  « SUMX2  + DELTA (L) 

IF  (DELTA(L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  MEAN  WAS  SUPPLIED 
USE  THE  ESTIMATE  OF  M 
MU (L ) - MCHAT ( 1,L) 

ELSE 

UPDATE  THE  ESTIMATE  OF  M WITH  Mo  USING  DELTA 
MU(L)  - ( MCHAT ( 1,L)  * SUMX2  + MO(L)  * DELTA(L) ) / ARG 
END  IF 


IF  (SIGMA2 (L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  VARIANCE  WAS  SUPPLIED 
USE  SWHAT2  AS  AN  ESTIMATE  OF  SIGMA-HAT-2 
SIG(L)  « SQRT  (SWHAT2 (L)  / ARG) 

ELSE 

SIG(L)  - SQRT  (SIGMA2 (L)  / ARG) 

ENDIF 


& 

& 

& 

& 


IF  (IOUT  .EQ. 
WRITE(8,*) 

WRITE ( 8, *) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
'L  “ ' ' 
MCHAT ( 1,L) 

* SUHAT2  - 
MCHAT(2,L) 


DD 


DD (L) , 


SUHAT2 (L) , 


'NPPR 
SUMX2  > 
'DELTA  - 
'MO  - ' , 
'SWHAT2 
SIG  - 1 


SX2 


' MCHAT 1 - 
MCHAT2  « ' , 

■ ',  SX2(L), 


NPPR ( L ) , 

' ' DELTA (L) , ' ARG  - ',  ARG 
MO(L),  ' MU  “ MU(L) 

- ',  SWHAT2 (L) , ' SIGMA2  - ' 
, SIG(L) 


SIGMA2 (L) , 
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100  CONTINUE 


RETURN 

END 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION  ON  BOTH  M AND  Co  TO 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  10FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 

OUTPUTS : RANGEM 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT ( MAXREG ) , MPNT (MAXREG) , NUMREG 

REAL  LOWER,  MC(2,  MAXREG).  MCHAT (2,  MAXREG),  MZERO(2,  MAXREG), 
& RANGEM ( 2 , MAXREG),  UPPER 


LIST  OF  VARIABLES 


IOUT 

L 

LOWER 
MAXREG 
MC  ( ) 


MCHAT( ) 

MCPNT ( ) 
MPNT( ) 
MZERO ( ) 

NUMREG 
RANGEM ( ) 

UPPER 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
— MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT ( 1,L)  - - DD(L) , THE  ESTIMATE 
FOR  M AND  MCHAT ( 2 , L ) - SUHAT,  THE  ESTIMATE  FOR  C 

1— D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC( ) FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO ( 1,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


C INITIALIZE  VARIABLES 

DO  50  L - 1,  MAXREG 
RANGEM(  1 ,L)  =*  0.0 
RANGEM(2,L)  = 0.0 
50  CONTINUE 

C PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 
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DO  100  L - 1,  NUMREG 


IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'L  - ',  L,  ' NUMREG 
WRITE ( 8 , * ) ' MPNT  - ',  MPNT(L), 
ENDIF 


' , NUMREG 

MCPNT  - • , MCPNT(L) 


IF  (MPNT(L)  .EQ.  1)  THEN 


THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM(1,L) 
RANGEM(2 ,L) 


MZERO( 1,L) 

0.0 


& 


IF  (IOUT  .EQ. 
WRITE (8,*) 
WRITE ( 8, * ) 

ENDIF 


10)  THEN 
'MZERO(l.L) 
'RANGEM( 1,L 
RANGEM(2,L 


9 

9 


MZERO( 1,L) 
RANGEM ( 1 , L ) 
RANGEM ( 2 , L ) 


t 


EXSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT (L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT  USE  MO 


RANGEM ( 1,  L)  * MZERO(l,L) 
RANGEM(2,L)  ■ MZERO(2,L) 


& 

& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
' MZERO ( 1 , L ) - ' 
MZERO ( 2 . L ) - ' 
' RANGEM ( 1,L)  » 
RANGEM ( 2, L)  - 


MZERO(l,L) , 
MZERO ( 2 , L ) 

, RANGEM ( 1,L) 
, RANGEM(2,L) 


9 


EXSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT (L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  CO 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  Mo  BY  Me 


LOWER  .=  AMAXl(MZERO(l,L) , MC(1,L)) 

UPPER  * MZERO ( 2, L) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  MO  AND  Me ' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  ■ LOWER 
RANGEM ( 2, Lj  ■ UPPER 
ENDIF 


& 


i 


IF  (IOUT  .EQ.  10)  THEN 
WRITE(8,*)  'MZERO(l,L) 

' MZERO ( 2 , L ) 
WRITE ( 8 , * ) *MC(i,L)  “ ' 
WRITE (8,*)  'LOWER  - ', 
WRITE ( 8, * ) 'RANEGM( 1,L) 
' RANGEM ( 2, L) 

ENDIF 


* ',  MZERO(l,L), 

= ',  MZERO(2,L) 

, MC( 1,L) 

LOWER,  ' UPPER  - 
" ',  RANGEM ( 1,L) 
- ',  RANGEM ( 2, L) 


UPPER 


EXSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT (L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 


LOWER  « AMAXl(MZERO(l,L) , MC(1,L)) 

UPPER  * AMIN 1( MZERO ( 2, L) l,  MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  Me ' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  - LOWER 
RANGEM ( 2, L)  ° UPPER 
ENDIF 
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IF 


(IOUT  .EQ 
WRT 

WRITE  ( 8 , * 
WRITE ( 8,  * 
WRITE(8,* 


END  IF 


__  10)  THEN 

: ::  ss&g) 

:mLi  •. 'toSS^  W - 

' RANGEM ( 1,L)  ■ RANGEM<  1,L> 

RANGEM(2,L)  - RAN GEM ( 2, L) 


UPPER 


ELSE 

WRITE (8,*)  'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN 

CALL  TRMNAT 


ENDIF 


L 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM( 1 ,L)  « AMAX1 (RANGEM( 1,L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)  'RANGEM(1,L)  « RANGEM(1,L) 
100  CONTINUE 


CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ( (MCHAT( 1/L)  .LT.  RANGEM(1,L)) 

.OR.  (MCHAT(  1,L)  .GT.  RANGEM(2,L)  )_) 

NOTE:  E(m)  IS  NOT  IN  THE 

ON  m IN  REGION  L 


& 

& 

& 


WRITE ( 8 , * ) 
300  CONTINUE 


POSTERIOR  RANGE 


RETURN 

END 


C ************************************************************************ 


C 

c 

c 

c 

c 

c 


SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  M RANGES  AND  NORMAL 
DISTRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 


PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 
CODE:  10FEB88 

MATCHR  V7 , V7.1, 
MATGRM  V4,  V4.1, 


FORMAT/COMMENTS:  12AUG91 

V8,  V8.1,  V8.2,  V8.3,  V8.4, 
V4.2,  V4.3,  V4.4,  V4.5 


V8.5 


SUBROUTINE  ADDRGN  (RANG EM,  MCHAT,  MU,  SIG.  NNODAT,  NUMREG, 
t,  MZERO,  MPNT,  MO,  SIGMA2) 


C INPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO,  MPNT, 

C MO,  SIGMA2 

C OUTPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NUMREG 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 


COMMON  IOUT 


INTEGER  IOUT,  L,  LL,  MPNT (MAXREG) , NNODAT,  NUMREG 


REAL 

& 

& 


MCHAT ( 2 , MAXREG), 
MZERO (2,  MAXREG), 
SIGMA2( MAXREG) 


MO(MAXREG) , MU (MAXREG) , 
RANGEM(2,  MAXREG),  SIG(MAXREG), 
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I OUT 

L 

LL 

MAXREG 
MCHAT ( ) 


MPNT( ) 


MZERO ( ) 


NNODAT 
NUMREG 
RAN GEM ( ) 


SIG() 
SIGMA2 ( ) 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) ■ - DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  * SUHAT,  THE  ESTIMATE  FOR  C , , ,„nT_„ 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION  „ _ „ 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO  < ) FOR  EACH  REGION  

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATS  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 
NUMBER  OF  REGIONS  OF  INTEREST  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 


IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) 'NUMREG  , NUMREG 


DO  100  L ■ 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  - NUMREG 

IF  (IOUT  .EQ.  10)  WRITE ( 8, * ) 


} LL  =',  LL,  ' MPNT(LL)  «' , MPNT(LL) 

( (MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ. 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 


L,  ' NUMREG  ■' , NUMREG, 


2))  THEN 


RANGEM (1,LL)  » 
RANGEM ( 2 , LL)  = 
MU (LL)  * MO(LL) 
SIG(LL)  • SQRT( 


MZERO ( 1 , LL ) 
MZERO(2,LL) 


■ (LL)  - SQRT(SIGMA2 (LL) ) 

(IOUT  .EQ.  10)  THEN 

WRITE (8, * ) ' RANGEM ( 1,LL)  = ',  RANGEMf 1 ,LL) , 

' MZERO ( 1,LL)  = ',  MZERO( 1,LL) 
WRITE (8,*)  ' RANGEM ( 2 , LL ) “' , RANGEM ( 2, LL) , 

’ MZERO(2,LL)  - ',  MZERO(2,LL) 
WRITE (8,*)  'MU(LL)  - ',  MU ( LL ) , ’ MO(LL)  = ' , 


WRITE ( 8 , * ) 'MU(LL)  » ',  MU(LL) , ’ MO(LL)  = ',  MO(Ii) 

WRITE ( 8 , * ) 'SIG(LL)  = ',  SIG(LL),  ' SIGMA2(LL)  * , 

i SIGMA2 (LL) 

ENDIF 

SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  ( RANGEM ( 2, LL)  .EQ.  0.0)  THEN 
MCHAT ( 1 , LL ) - RANGEM (1,LL) 

MU(LL)  - RANGEM ( 1,LL) 

SIG(LL)  = 0.0 
SLSE 

MCHAT ( 1 , LL ) = ( RANGEM ( 1 , LL ) + RANGEM ( 2, LL) ) / 2.0 
ENDXF 

IF  (IOUT  .EQ.  10)  WRITE ( 8, *)  'MCHAT  =' , MCHAT ( 1,LL) , 

& ' MU  - ',  MU(LL),  ' SIG  - ',  SIG(LL) 

ELSE 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ', 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


7-85 


oooooooooonnooooonoooooooo  o oooo  noooonnooo 


RETURN 

END 


C******** ★★**★**★ ** ★★***★*****★★*★★*★★★***★★*★**★★*************★******★★* 


SUBROUTINE  PAREST  CONTROLS  THE  CALCULATIONS  FOR  THE  PARAMETER 
ESTIMATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
PROGRAMMER : L . NEWLIN 

DATE:  CODE:  13FEB89  FORMAT /COMMENTS : 15SEP89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  — FOR  USE  WITH  PFM'S 

MATGRM  V4  . 3 , V4 . 4 , V4 . 5 

Copyright  (C)  1990 , California  Institute  of  Technology, 
u.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  PAREST  (VARY.  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG, 

& ZROREG,  RAND,  NBND,  STR,  BIGK,  BZERO,  MM, 

& SBND) 


INPUTS:  VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG,  RAND, 

NBND,  STR 

OUTPUTS:  BIGK,  BZERO,  MM,  SBND 

SUBPROGRAMS:  FINDM,  FINDMN,  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  » 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NP,  NPTS  (MAXREG) , NUMREG,  VARY,  ZROREG 

REAL  BIGK ( 0 : MAXREG ) , BZERO,  K,  MEANZ,  MM(  0 : MAXREG)  , 

& MU  (MAXREG),  NBND  ( 0 ; MAXREG ) , NF  ( MAXDAT , MAXREG), 

& RANGEM ( 2 , MAXREG),  SBND( 0 : MAXREG ) , SIG (MAXREG) , 

& STR (MAXDAT,  MAXREG),  SZ2,  ZZ (MAXDAT) 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 

BIGK()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A * K **  M FOR 
EACH  REGION 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 
I OUT  OUTPUT  DUMP  CONTROLLER 

K VALUE  OF  k — PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL  DATA  BASE 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MEANZ  SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z * F(STR,  NF,  NBND,  MM) 

MM(  ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

MU  ( ) 1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  MEAN  FOR  EACH  REGION 

NBND ( ) 1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NF ( ) 2-D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTS  ( ) 1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANGEM ()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM  ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 
RAND  RANDOM  NUMBER  SEED 
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SBND( ) 

SIG() 

STR(  ) 

SZ2 

VARY 

ZROREG 

ZZ() 


1— D ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R ■ -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) . 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 
STANDARD  DEVIATION  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET  BROKEN  INTO  REGIONS  (PS I OR  %) „ mm_ 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z ■ F(STR,  NF,  NBND,  MM) 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATION; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION; 

3 - TRUNCATED  NORMAL  VARIATION  

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGIONDOLOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z - F(STR,NF,NBND,MM) 


C 

C 

C 

C 

C 

C 

C 

C 

C 


OBTAIN  THE  VALUES  OF  M FOR  EACH  REGION 
IF  (VARY  .LE.  2)  THEN 

UNIFORM  OR  NO  VARIATION  IN  M IS  DESIRED 
CALL  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

ELSE 

NORMAL  VARIATION  IN  M IS  DESIRED 
CALL  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 
ENDIF 

TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z - Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z - Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

CALCULATE  THE  VALUES  FOR  k AND  BETAo  FROM  THE  SAMPLE  MEAN 
AND  VARIANCE 

CALL  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A “ K **  M 

CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

CALCULATE  STRESS  TIE-POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

WRITE  RESULTS  TO  FILE 

WRITE (7, 900)  NUMREG,  BZERO 

DO  200  L = ZROREG,  NUMREG 

WRITE (7, 9 10)  L,  MM(L) , BIGK(L) , NBND(L) , SBND(L) 
200  CONTINUE 

WRITE(7,920) 

FORMAT  STATEMENTS 


Cl  / / < AA;  lUiVAVn  f f ***  / f •»  9 ' f — — — 

r t o<TrDTrcc  nntlNn f / \ 

910  FORMAT(5X,Il,5X,F9.5,§X,E12.5,5X,E9.3,6X,Ell.5) 
920  FORMAT(///) 


RETURN 


ooonnoononnoon  o non  onnnnn 


END 


£*..*** ***.*..*********************************.****..********* ********** 


SUBROUTINE  FINDH  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  M RANGE 
PROGRAMMER:  L.  NEWLIN 

DATES  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4 , V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

INPUTS:  RAND,  NUMREG,  RANGEM 

OUTPUTS:  MM 

SUBPROGRAMS : RANDOM,  TRMNAT 

IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  MM( 0 : MAXREG) , PICK(2),  RANGEM ( 2 , MAXREG),  X 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


I OUT 
L 

MAXREG 
MM(  ) 
NUMREG 
PICK( ) 
RAND 
RANGEM ( ) 


X 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 
RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 ,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 

UNIFORM  (0,1)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


C INITIALIZE  MM( ) 

DO  50  L =*  0,  MAXREG 
MM (MAXREG)  * 0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 

DO  100  L * 1,  NUMREG 

PICK(l)  - 0.0 
PICK (2 ) « 0.0 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 
C M IS  SPECIFIED  AS  A POINT  VALUE 

MM(L)  * RANGEM ( 1,L) 

IF  (IOUT  .EQ.  10)  WRITE ( 8, * ) 'RANGEM( 1,L)  RANGEM(1,L), 

& ' MM(L)  MM(L) 

ELSE IF  (L  .EQ.  1)  THEN 
C SAMPLE  ON  EXISTING  RANGE 

CALL  RANDOMS X,  RAND) 

MM(L)  * (RANGEM(2  ,L)  - RANGEM ( 1 , L ) ) * X + RANGEM ( 1,L) 

IF  (IOUT  .EQ.  id)  THEN 
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MM(L) 


C 

C 


C 

C 


C 


& 


& 


& 


WRITE ( 8 , * ) 'RANGEM(l.L)  ■ 
• RANGEM(2,L) 

L L,  ■ ' X 


, RANGEM  ( 2 . xj 
X,  ' MM(li) 


WRITE ( 8, * ) 

ENDIF 

jjrep 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 
PICK(l) 

PICK(“ 


IF 


,^,iJ  - AMAXl ( MM (L-l ) , RANGEM ( 1 , L ) ) 
NO  RANGE  EXISTS  — THIS  SHOl 


SHOULD  NOT  BE  POSSIBLE 

STOP  PROGRAM 
WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 
CALL  RANDOM  (X,  RAND) 

MM(L)  * (PICK(i)  - PICK(l))  * X + PICK(l) 

ENDIF 

IF  ( IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'L  = ',  L,  ' MM(L-l)  *',  MM(L-l), 

' ' RANGEM ( 1 ,L)  -' , RANGEM(1,L) 

WRITE ( 8 , * ) 'PICK( 1)  PICK(1),  ' PICK<2)  -' # 

WRITE ( 8 , * ) ’RANGEM(2,L)  , RANGEM(2,L) , X - 
' MM(L)  =',  MM(L) 

ENDIF 

ENDIF 


PICK(2) 
* X 

9 A» 


100  CONTINUE 


RETURN 

END 


**★★★★**★*****★ 


r***************************************  

SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 

Miles,  R.  F. , The  RANDOM  Computer  Program:  A Linear  Congruential 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 

PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE  * 1 DEC 8 7 

version;  matchr  V4,  «.  «.!,  V5.2,  v|.3,  v§,3« ;5 

MATGRM  V2 , V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 
►*★★*★★★*★★*★★***★**★ ******* 


c 


SUBROUTINE  RANDOM  (FRAC,  RAND) 

IMPLICIT  NONE 

COMMON  IOUT 

INTEGER  IOUT 

REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANC,  RAND, 
& RANT,  RANX 


RANDIV, 


RANM,  RANSUB, 


C 

C 

C FRAC 
C IOUT 
C RANA 
C RANC 
C RAND 
C RANDIV 
C RANM 
C RANSUB 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
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C RANT 
C RANX 


INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


C USING  LCG  RANDOM  t GENERATOR 

RANA  * 671093.0 
RANC  « 7090885.0 
RANM  * 33554432.0 

10  RANX  - RANA  * RAND  + RANC 
RANDIV  - RANX  / RANM 
RANT  - DINT (RANDIV) 

RANSUB  - RANT  * RANM 
RAND  - RANX  - RANSUB 
FRAC  - SNGL ( RAND  / RANM) 


IF  ((FRAC  .EQ.  0.0)  .0 
IF  ( I OUT  .EQ.  2)  WRITE 
& ' RANT  =' , RANT,  ' 

& ' FRAC  «' , FRAC 

RETURN 
END 

C NOTES:  IOUT=2  DUMPS  TO  SCREEN 


C** ********************************************************** ************ 


R.  (FRAC  .EQ.  1.0))  GOTO  10 

(8,*) 'RANX  RANX,  ' RANDIV  RANDIV, 

RANSUB  =' , RANSUB,  ' RAND  RAND, 


SUBROUTINE  FINDMN  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  TRUNCATED  NORMAL  M DISTRIBUTION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13FEB89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RAN GEM,  MM) 

INPUTS:  RAND,  NUMREG,  MU,  SIG,  RANGEM 

OUTPUTS : MM 

SUBPROGRAMS : NORMGN,  TRMNAT 

IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  MM( 0 : MAXREG) , MU ( MAXREG ) , PICK(2),  RANGEM (2 , MAXREG), 
& SIG (MAXREG) , X 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


IOUT 

L 

MAXREG 


PICK() 
RAND 
RANGEM ( ) 


MUM 

NUMREG 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 


MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1— D ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
L-D  ARRAY  CONTAINING  THE  MEAN  OF  M FOR  EACH  REGION 


NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 


RANDOM  NUMBER  SEED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
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SIG() 

X 


FOR  EACH  REGION  — RANGEM ( 1, L) 
RANGEM (2  ,L)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  STANDARD 


IS  THE  LOWER  BOUND  AND 
DEVIATION  OF  M FOR  EACH 


NORMAL?MU , SIGMA)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


INITIALIZE  MM( ) 

DO  50  L - 0,  MAXREG 
MM(MAXREG)  - 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS 

DO  100  L * 1,  NUMREG 

PICK(l)  =0.0 


10 


20 


pick^l  = 0.0 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 
ANGE 
.EQ. 


RANGEM(1,L) 

— 10)  WRITE ( 8 , * ) ;RANGOH( 1,L)_= 


, MM(1) 


RANGEM ( 1,L) , 


MM(L) 

IF  (ioUT  * . MM(L) 

ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

CALL  NORMGN  (RAND,  MU(L)  , SIG(L)  , X)  1A 

IF  ((X  .LT.  RANGEM(1,L) ) .OR.  (X  .GT.  RANGEM (2 ,L) ) ) GOTO  10 

MM(L)  = X 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'RANGEM(l.L) 


' RANGEM ( 1,L)  =',  RANGEM(l.L), 

' RANGEM ( 2 , L ) =' , RANGEM ( 2 , L ) 
'L  =',  L,  ' X =' , X,  ' MM(L)  > 


MM(L) 


WRITE ( 8 , * ) 

ENDIF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK ( 1 ) =AMAX1(MM(L-1),  RANGEM ( 1,L) ) 

C(2))  THEN 

- THIS  SHOULD  NOT  BE  POSSIBLE 
STOP  PROGRAM  , 

WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 
CALL  NORMGN  (RAND.  MU(L),  SIG(L),  X) 

IF  ((X  .LT.  PICK(l))  .OR.  (X  .GT.  PICK(2)))  GOTO  20 


ENDIF 
IF 


MM(i)‘  = X 


(IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  =',  L,  ' MM(L-l)  = ',  MM(L-l), 

' RANGEM ( 1 , L ) =',  RANGEM( 1,L) 

. r\  . t rxT/^w  r otw  / 1 \ t ryrnxe  / O \ i 


WRITE ( 8 , * ) ' PICK{ 1 ) 

WRITE (8,*) 


ENDIF 

ENDIF 

100  CONTINUE 


, PICKfl),  ' PICK(2) 
'RANG&l(2,L)  = ',  RANGEM(2,L) , ' X 
' MM(L)  =',  MM(L) 


PICK (2) 
9 X 

t A/ 


RETURN 

END 


ir*iririnriMMMrwirirwww-  *★★★*★★★*★*★*1 

C SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
C WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
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C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE:  3 FEB 8 8 

C VERSION:  MATCHR  V7,  V7.1,  V8,  V8. 1,  V8.2,  V8.3,  V8.4,  V8 .5 

C MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

Q 

c The  randan  variates  are  generated  using  the  "Direct  Method" 
c Abramowitz,  M.,  and  stegun,  I.  A.,  editors.  Handbook  of 
C Mathematical  Functions,  National  Bureau  of  Standards,  Applied 
C Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 
C 1970  with  corrections,  953. 


SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  * 3.1415926536) 

INTEGER  I OUT 


C 

C 

C FRAC 
C I OUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0,1) 

UNIFORM  RANDOM  NUMBER  U(0,1) 

NORMAL  RANDOM  NUMBER  ON  N( 0, 1) 

NORMAL  RANDOM  NUMBER  ON  N( 0, 1) 


IF  ( ( IOUT  .EQ.  10)  .OR.  (IOUT 
& WRITE ( 8 , * ) 'RAND  = ' , RAND, 


.EQ.  15)) 

' MU  =',  MU,  ' SIGMA  SIGMA 


CALL  RANDOM  (FRAC,  RAND) 
Ul  = FRAC 


CALL  RANDOM  (FRAC,  RAND) 

U2  = FRAC 

IF  ((IOUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15)) 

& WRITE ( 8 , * ) 'Ul  =',  Ul,'  U2  =',  U2 

Zl  - SQRT  (-  2.  * ALOG(Ul))  * COS(2.  * PI  * U2) 
Z2  = SQRT  (-  2.  * ALOG(Ul))  * SIN(2.  * PI  * U2) 


X “ SIGMA  * Zl  + MU 


RETURN 

END 


£**«* ********************************** ********************************** 


C SUBROUTINE  TRNSFM  PERFORMS  THE 
C THE  S/N  DATA  INTO  THE  VARIABLE 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  7JUN88 


CALCULATIONS  NECESSARY  TO  TRANSFORM 
Z - Ln(X) 

COMMENTS:  13JUL89 
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VERSION: 


MATCHR  V8,  V8.1,  V8.2, 
MATGRM  V4,  V4.1,  V4.2, 


V8.3, 

V4.3, 


V8.4,  V8.5 
V4.4,  V4.5 


SUBROUTINE  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NR,  ZZ) 


INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

OUTPUTS:  NP,  ZZ 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  - 50,  MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I,  I OUT,  K,  L,  LL,  NP,  NPTS  (MAXREG) , NUMREG 

REAL  MM( 0 : MAXREG) , MML,  NBND ( 0 : MAXREG ) , NF( MAXDAT,  MAXREG), 

& STR (MAXDAT,  MAXREG),  ZZ (MAXDAT) 


LIST  OF  VARIABLES 

I CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT 

I OUT  OUTPUT  DUMP  CONTROLLER 

K CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  EACH  REGION 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LL  CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 

MML  EQUAL  TO  MM(L)  FOR  A SET  OF  CALCULATIONS 

NBND ( ) 1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NF()  2-D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTS ( ) 1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

STR()  2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 

S-N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  «) 

ZZ()  1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z - F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 
NP  - 0 

DO  50  I = 1.  MAXDAT 
ZZ(I)  - 0.0 
50  CONTINUE 


C BEGIN  CALCULATIONS 


DO  100  L = 1,  NUMREG 
MML  = MM(L) 

IF  ( I OUT  .EQ.  10)  WRITE (8,*) 'L  L,  ' MM  , MM(L) , ' MML  , 
& MML,  ' NPTS  =',  NPTS(L) 


DO  200  K - 1,  NPTS(L) 

NP  * NP  + 1 

ZZ (NP)  = ALOG(STR(K,L) ) + ALOG(NF(K,L) ) * (1.0  / MML) 

IF  ( IOUT  .EQ.  10)  WRITE  ( 8 , * ) ' K =’ , K,  ' NP  NP,  ' NF  , 

& NF(K,L),  ' STR-',  STR(K,L),  ' ZZ  =',  ZZ(NP) 


& 

& 


DO  300  LL 
ZZ (NP) 


Z&(NP) 


+ ALOG(NBND(LL-l) ) 

* ((1.0  / MMfLL-1))  - (1.0  / MM(LL) ) ) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) ' LL  LL,  ' NBND ( LL- 1 ) 

NBND(LL-l),  ' MM(LL-l)  , MM(LL-l) , ' MM(LL) 


/ 
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6 MM(LL),  ' ZZ  *',  ZZ(NP) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 

RETURN 

END 


C**** ****** ******1 


SUBROUTINE  SMNVAR  CALCULATES  THE  Sample  MeaN  and  VARiance  OF 


Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  24AUG87  COMMENTS: 

VERSION:  MATCHR  V5.3,  V6,  V6.1,  V6.2, 

V8.3,  V8.4,  V8.5 
MATGRM  V3.3,  V4,  V4.1,  V4.2, 


13JUL89 

V7,  V7.1,  V8,  V8.1, 
V4.3,  V4.4,  V4.5 


V8.2, 


SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2 ) 


INPUTS:  NP,  ZZ 

OUTPUTS:  MEANZ,  SZ2 


IMPLICIT  NONE 
INTEGER  MAXDAT 
PARAMETER  (MAXDAT  = 50) 

COMMON  I OUT 

INTEGER  I,  I OUT,  NP 

REAL  MEANZ,  SZ2,  ZZ (MAXDAT) 


LIST  OF  VARIABLES 

I CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

I OUT  OUTPUT  DUMP  CONTROLLER 

MAXDAT  MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 

MEANZ  SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F (STR,  NF,  NBND,  MM) 

NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET 

SZ2  SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z * F (STR,  NF,  NBND,  MM) 

ZZ ( ) 1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 

MEANZ  >0.0 
SZ2  >0.0 

C CALCULATE  THE  MEAN  OF  ZZ ( ) , MEANZ 

DO  100  I » 1,  NP 

MEANZ  > MEANZ  + ZZ(I) 

IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) ' NP  =',  NP,  ' I >',  I, 
& ' ZZ  =',  ZZ(I),  ' MEANZ  =',  MEANZ 

100  CONTINUE 

MEANZ  = MEANZ  / FLOAT (NP) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)'  MEANZ  MEANZ 
C CALCULATE  THE  VARIANCE  OF  ZZ( ) , SZ2 
DO  200  I = 1,  NP 
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200  CONTINUE 
SZ2  - SZ2 


SZ2  = SZ2  + (ZZ(I)  - MEANZ) 
IF  (I OUT  .EQ.  10)  WRITE ( 8 , * 


t*  2 

)'i  - 


___  / FLOAT (NP  - 1) 

IF  ( I OUT  .EQ.  10)  WRITE ( 8 , * ) ' SZ2 


, 1/  ' 
, SZ2 


SZ2 


SZ2 


RETURN 

END 


**************************************************** 


SUBROUTINE  KB ETA  CALCULATES  k AND  BETAo  FROM  THE  SAMPLE  MEAN  AND 
VARIANCE  OF  Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN  , „ „ 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1f  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5  „ „ _ 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  KBETA  (MEANZ,  SZ2,  K,  BZERO) 


INPUTS:  MEANZ,  SZ2 

OUTPUTS:  K,  BZERO 


IMPLICIT  NONE 


REAL  PI 

PARAMETER  (PI  - 3.1415926536) 


COMMON  I OUT 


INTEGER  IOUT 

REAL  BZERO,  K,  MEANZ,  SZ,  SZ2 


BZERO 

IOUT 

K 

MEANZ 

PI 

SZ 

SZ2 


LIST  OF  VARIABLES 

VALUE  OF  WEI BULL  PARAMETER,  BETAo,  CHARACTERIZING  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

OUTPUT  DUMP  CONTROLLER  

VALUE  OF  k — PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL 
DATA  BASE 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z * F (STR,  NF,  NBND,  MM) 
SELF  EXPLANATORY  CONSTANT 
SZ2  **  0.5 

SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z = F(STR,  NF,  NBND,  MM) 


C PERFORM  CALCULATIONS 
SZ  » SZ2  **  0.5 

BZERO  - PI  / (SZ  * (6.0  **  0.5)) 
K 2 MEANZ 


C DATA  DUMP  STATEMENTS 


IF  (IOUT  .EQ. 
WRITE (8,*) 
WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

'SZ2  SZ2 , ' SZ 

'MEANZ  MEANZ, 


BZERO 


BZERO 


RETURN 


END 


C 


C 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE  FINDK  CALCULATES  THE  VALUE  OF  K,  WHERE  A - K **  M FOR 
EACH  REGION 
PROGRAMMER : L . NEWLIN 

DATE:  7JUN88 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4 , V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

INPUTS: 

OUTPUTS? 


BZERO,  K,  MM,  NBND,  NUMREG 
BIGK 


IMPLICIT  NONE 
INTEGER  MAXREG 
REAL  GAMMA 

PARAMETER  (GAMMA  = 0.57721566490,  MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  BIGK ( 0 : MAXREG ) , BZERO,  K,  MM ( 0 : MAXREG ) , NBND ( 0 : MAXREG ) 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BIGK() 

BZERO 

GAMMA 

IOUT 

K 

L 

MAXREG 

SUo 

NUMREG 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A * K **  M 
FOR  EACH  REGION 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
EULER'S  CONSTANT 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k — PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 
DATA  BASE 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 
NUMBER  OF  REGIONS  OF  INTEREST 


INITIALIZE  VARIABLES 

DO  50  L - 0,  MAXREG 
BIGK(L)  - 0.0 
50  CONTINUE 

CALCULATE  K FOR  REGION  ONE 


BIGK(l)  - (ALOG(2 .0)  **  (1.0  / BZERO))  * EXP(K  + GAMMA  / BZERO) 
WRITE (7 , * ) 'REGIONS  1,  K -',  BIGK<1) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 ,*)' BZERO  =' , BZERO,  ' k K, 

& ' GAMMA  =',  GAMMA,  ' BIGK(l)  =',  BIGK(l) 


C CALCULATE  K FOR  REMAINING  REGIONS 


DO  100  L * 2,  NUMREG 

BIGK(L)  * BIGK(L-l)  * NBND(L-l) 

£ *"■  A * ‘ ‘ ' ■*  ‘ 

WRITE ( 7 , * ) 

IF  “ 

& 


JIGK(L-l)  * NBND (L— 1 ) 

((1.0  / MM(LJ)  - (1.0  / MM(L— 1) ) ) 
utg(/,«I  'REGION  ',  L.  ' K BIGK(L) 

(IOUT  .EQ.  10)  WRITE { 8 , * ) ' L , L,  ' NBND(L-l)  , 
NBND(L-l),  ' MM(L)  MM(L) , ' MM(L-l)  , MM(L-l), 
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BIGK(Ia) 


& ' BIGK(L)  = ', 

100  CONTINUE 

RETURN 

END 


C 

C 

C 

C 

c 

c 

c 

c 


SUBROUTINE  FINDSB  CALCULATES  THE  REGION  'TIE-POINTS'  — THE  STRESS 
VALUES  WHICH  CORRESPOND  TO  THE  "LIFE  BOUNDARIES"  ACCORDING  TO  THE 
RANDOMLY  SELECTED  Ms,  AND  THE  Ks  CALCULATED  FROM  THE  BETA  AND  k 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER:  L.  NEWLIN 

DATE:  22DEC88  „ _ „ 

VERSION:  MATCHR  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 


C INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

C OUTPUTS:  SBND 


C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  ■ 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG,  ZROREG 

REAL  BIGK( 0 : MAXREG) , MM( 0 : MAXREG) , NBND ( 0 : MAXREG ) , 

t SBND ( 0 : MAXREG) 


LIST  OF  VARIABLES 

BIGK(  ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 

FOR  EACH  REGION 

IOUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST  

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SBND ( ) 1-D  ARRAY  CONTAINING  STRESS  VALUES  (PS I,  R = -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND ( ) 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


C INITIALIZE  SBND( ) 

DO  50  L - 0,  MAXREG 
SBND(L)  =0.0 
50  CONTINUE 


C 


CALCULATE  SBND(0)  IF  ZROREG  = 0 


IF  (ZROREG 
SBND ( 0 ) 
ENDIF 


.EQ.  0)  THEN 

= BIGK ( 1 ) * NBND(0)  **  (-1.0  / MM(1)) 


C CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 


DO  100  L = 1,  NUMREG  

IF  (NBND(L)  .GE.  1.0E+36)  THEN 
SBND(L)  = 0.0 
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ELSE 

SBND(L) 
END  IF 
100  CONTINUE 


BIGK(L)  * NBND(L)  **  (-1.0  / MM(L) ) 


RETURN 

END 


C 


THIS  SUBROUTINE  GENERATES  WEIBULL ( BETA . ETA)  RANDOM  VARIATES  WITH 
MEDIAN  OF  DISTRIBUTION  CONSTRAINED  TO  BE  ONE  USING  THE  "INVERSE 
TRANSFORM  METHOD" 

PROGRAMMER:  L.  NEWLIN  „ 

DATE:  CODE:  18MAR87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 

V7,  V7.1,  V8,  V8.1,  V8 .2,  V8.3,  V8.4,  V8.5 
MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  sponsorship  under  NASA  Contract  NAS7— 9 18 
is  acknowledged. 


SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

C INPUTS:  BETA,  RAND 

C OUTPUTS:  WEIB 

C SUBPROGRAMS : RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I OUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


C 

C 

C ARG 
C BETA 
C ETA 
C FRAC 
C I OUT 
C RAND 
C WEIB 


LIST  OF  VARIABLES 

INTERMEDIATE  CALCULATION  VARIABLE 
WEIBULL  DISTRIBUTION  SHAPE  PARAMETER 
WEIBULL  DISTRIBUTION  LOCATION  PARAMETER 
UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
RANDOM  NUMBER  SEED 

WEIBULL (BETA, ETA)  GENERATED  RANDOM  VARIATE 


C CALCULATE  CONSTRAINED  ETA 

ETA  - 1.0  / (ALOG(2 . 0 ) **  (1.0  / BETA)) 
C GENERATE  WEIBULL  RANDOM  VARIATE 


CALL  RANDOM (FRAC,  RAND) 

ARG  » — ALOG (1.0  - FRAC) 

WEIB  - ETA  * ARG** (1.0/BETA) 

IF  (IOUT  .EQ.  10)  WRITE(8,*) 'BETA  * 
& 5 FRAC  =',  FRAC,  ' ARG  ARG,  ' 


',  BETA, 
WEIB  =' 


' ETA 
WEIB 


ETA, 


RETURN 

END 


ooooooooooooooooooo  o on  oooooooono 


c 


SUBROUTINE  KOMO  CALCULATES  Ko  AND  Mo  FOR  THE  ZERO  REGION  (NO  DATA 
REGION  TO  THE  LEFT) . IT  ACCOUNTS  FOR  TYING  UP  THE  TENSILE  POINT 
AT  SZERO,  AND  SCALING  DOWN  THE  CURVE  IF  IT  WENT  ABOVE  SZERO. 
PROGRAMMER  : L.  NEWLIN 

DATES  1AUG9 1 

VERSION:  MATCHR  V8.5  MATGRM  V4.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 

& FACTR,  NUMREG) 

INPUTS:  SZERO,  BIGK,  MM,  NBND,  TRSBND,  FACTR 

OUTPUTS:  TRBIGK,  MM,  TRSBND 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  BIGK ( 0 s MAXREG ) , FACTR,  MM ( 0 : MAXREG) , NBND ( 0 : MAXREG) , 

1 SCLK,  SZERO,  TRBIGK(OsMAXREG) , TRSBND ( 0 : MAXREG) 


LIST  OF  VARIABLES 

BTGK(  ) 1— D ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K **  M FOR 

EACH  REGION 

FACTR  SCALE  FACTOR  = PHI  * KRATIO  * Z 
I OUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBND ( ) 1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 
NUMREG  NUMBER  OF  REGIONS 

SCLK  ADJUSTMENT  FACTOR  FOR  BIGK  IF  TRSBND(O)  > SZERO 

SZERO  STRESS  TENSILE  TEST  POINT.  So  

TRBIGK ()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  KEEP 
SBND(O)  < So  FOR  EACH  TRIAL 

TRSBND ( ) 1-D  ARRAY  CONTAINING  STRESS  VALUES  CORRESPONDING  TO  THE 

LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND() 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK  ( 0 ) =■=  SZERO 


100 


C 


IF  ( TRSBND ( 0 ) .GT.  SZERO)  THEN 
SCLK  * SZERO/TRSBND ( 0 ) 

DO  100  L - 0,  NUMREG 

TRBIGK (L)  = BIGK(L)  * SCLK 
TRSBND (L)  * TRSBND (L)  * SCLK 
CONTINUE 
ELSE 

TRBIGK(O)  = SZERO/FACTR 

MM( 0)  = MM(1)  * ( (ALOG  (BIGK(1))  - ALOG 
& + ALOG  (FACTR))  / (ALOG  (SZERO) 

ENDIF 


( TRSBND ( 0 ) ) 

- ALOG  ( TRSBND ( 0 ) ) ) ) 


IF  (IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'SZERO  = ',  SZERO,  ' BIGKO  - ' 
WRITE (8,*  'FACTOR  * ',  FACTR,  ' BIGK1  = 


TRBIGK (0) 

, TRBIGK ( 1) 
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MM(1),  ' MHO 


HM(0) 


WRITE ( 8 , * ) ' MM1  - 
ENDIF 


RETURN 

END 


C 


FUNCTION  GTLIFE  CALCULATES  THE  CYCLES  TO  FAILURE  F(R  A PARTICULAR  STRESS 
BASED  UPON  THE  MATERIALS  CHARACTERIZATION  S/N  EQUATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  10FEB89 

VERSION:  MATCHR  V8.3,  V8.4,  V8 .5  — FOR  USE  WITH  PFM'S 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.s.  Government  Sponsorship  under  NASA  Contract  NAS7— 9 18 
is  acknowledged. 


REAL  FUNCTION  GTLIFE  (S.  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  SBND, 
fc  ZROREG,  NUMREG,  SZERO) 

INPUTS:  S,  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 

OUTPUTS : GTLIFE 

IMPLICIT  NONE 

INTEGER  I OUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  » 3) 

COMMON  I OUT 

GETLIF,  KRATIO,  LNA(0 :MAXREG),  LNZ,  LPHIM ( 0 : MAXREG ) , 

MM( 0: MAXREG) , S,  SBND(0:MAXREG) , SZERO,  TEMP 


LIST  OF  VARIABLES 

VALUE  TO  BE  ASSIGNED  TO  GTLIFE  — CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRESS  LEVEL 

OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  Ln(A)  » M Ln  K FOR  EACH  REGION 

NORMAL (0,PVAR)  GENERATED  RANDOM  VARIATE 

1-D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
PHI  IS  A WEIBULL ( BETAO , ETAo)  GENERATED  RANDOM  VARIATE 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NUMBER  OF  REGIONS  OF  INTEREST 

VALUE  OF  STRESS  (PSI)  FOR  WHICH  A VALUE  OF  LIFE  (CYCLES  TO 
FAILURE)  IS  REQUIRED 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R « -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND( ) 

STRESS  TENSILE  POINT,  So 

TEMPORARY  VARIABLE  USED  TO  PREVENT  ARITHMETIC  UNDER  AND  OVER 
FLOWS 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


REAL 


GETLIF 

IOUT 

KRATIO 

L 

LNA() 

LNZ 

LPHIM ( ) 

MAXREG 
MM( ) 
NUMREG 
S 

SBND( ) 


SZERO 

TEMP 


ZROREG 


GETLIF  - 0.0 

C CALCULATE  CYCLES  TO  FAILURE 

IF  ((S  .GE.  SZERO)  .AND.  (ZROREG  .EQ.  0))  THEN 
GETLIF  - 1.0 
ELSE 

DO  100  L - ZROREG,  NUMREG 
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IF  (S  .GT.  SBND(L) ) THEN 

TEMP  = LNA(L)  + LPHIM(L)  + MM(L)  * ( - ALOG(S) 
* + ALOG  (KRATIO)  + LNZ ) 

IF  (TEMP  .GT.  86.0)  THEN 
TEMP  * 86.0 
END  IF 

GETLIF  = EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 

GTLIFE  = GETLIF 

RETURN 

END 


C* ****************************************************************** ***** 


C SUBROUTINE  9 SORTM ' SORTS  THE  ARRAY,  ALLM( ) , FROM  LOWEST  TO  HIGHEST 
C M FOR  EACH  REGION 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  10FEB88  ^ ^ ^ „ 

C VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

C 

C Copyright  <C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUM) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS : ALLM 


C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I,  INC,  IOUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 
PARAMETER  (MAXMM  * 20001,  MAXREG  * 3) 

LOGICAL  INORDR 


REAL  ALLM  (MAXMM,  MAXREG),  TEMP 


C 

C 


ALLM( ) 
I 

INC 

INORDR 

IOUT 

L 

MAXMM 

MAXREG 

NUM 

NUMREG 

TEMP 


LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGION 
CONTROLS  INSERTION  POINTER 
SORT  INCREMENT  VARIABLE 

FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  ELEMENTS  IN  ALLM(  ) TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400 

L = 1,  NUMREG 

5 

INC 

= NUM 

10 

IF 

(INC  .GT. 

1)  THEN 

INC  = INC 

/ 2 

20 

INORDR  = 

•TRUE. 
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300 


DO  300  1*1.  (NUM  - INC) 

IF  (ALLM(I,LJ  .GT.  ALLM(I  + 


INC,  L)) 

TEMP  » ALLM(I.L) 

ALLM(I,L)  - ALLM(I  + INC,  L) 

'i  + INC,  L)  - TEMP 

.FALSE. 


THEN 


ALLM 
INORDR 
ENDIF 
CONTINUE 


IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 


400  CONTINUE 


RETURN 

END 


C 


C FUNCTION  ELWELD  CONTROLS  THE  CALLS  REQUIRED  TO  CALCULATE  A LIFE  FOR  THE 
C HELD  AT  AN  ELBOW  CASE  (MODE  2) 

C PROGRAMMER:  L.  NEWLIN 

C DATE:  3MAY90 

C VERSION:  PIPE  V8.1,  V8.2,  V8.3 

c 

c copyright  (C)  1990,  California  institute  of  Technology. 

C u.S.  Government  Sponsorship  under  NASA  contract  NAS7-918 
C is  acknowledged. 


FUNCTION  ELWELD  (PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLQAD,  P,  M,  T,  V, 

& FTY,  FTU,  EM,  K,  PSUBI,  TIB,  TOB,  DI,  HOFF, 

i LAMM,  RB,  HD,  FK,  RT,  CCY,  CCZ,  CLY,  CLZ,  OVAL, 

(,  LOCAT,  MM,  LNA,  LPHIM,  KRATIO,  LNZ , SBND, 

& SZERO,  ZROREG,  NUMREG,  STRHIS,  NRAN,  PERIOD, 

& TRUNC,  ANGLE,  CULPRT) 

INPUTS:  PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLQAD,  P,  M,  T,  V,  FTY,  FTU, 
EM,  K,  PSUBI,  TIB,  TOB,  DI,  HOFF,  LAMW,  RB,  HD,  FK,  RT, 
erf,  CCZ,  CLY,  CLZ,  OVAL,  LOCAT,  MM,  LNA,  LPHIM,  KRATIO, 
LNZ,  SBND,  SZERO,  ZROREG,  NUMREG,  STRHIS,  NRAN,  PERIOD, 
TRUNC,  ANGLE 

OUTPUTS:  ELWELD,  CULPRT 

SUBPROGRAMS:  M2L1,  M2L2,  NARBN1,  TRMNAT 

IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  CULPRT,  I OUT,  LOCAT,  MAXLD,  MAXM,  MAXREG,  NLQAD,  NRAN, 

& NUMREG,  ZROREG 


REAL 


PI 


PARAMETER  (MAXLD  * 16,  MAXM  * 24000,  MAXREG 
& PI  = 3.1415926536) 


3, 


REAL 


i 

& 

& 

& 

& 

& 


IAMP  ( 4 , ' MAX£5  j ,' ' STRHI&  (MAXLD , MAXM),  SZ2r6',  T (MAXLD), 
),  TOB,  TRUNC,  TSTAT,  V(2,  MAXLD),  VSTAT(2),  WD,  WOFF 


C 


LIST  OF  VARIABLES 


nonnnnnoonnnnononnononoon 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ANGLE 

CCY 

ccz 

CLY 

CLZ 

CULPRT 

DI 

EM 

FATLIF 
FK( ) 

FTY 

FTU 

IOUT 

K() 


KRATIO 

LAMW 

LIFE 

LIFEl 

LIFE2 

LNA() 

LNZ 

LPHIM() 

LOCAT 

M( ) 

MAXLD 
MAXM 
MAXREG 
MM(  ) 
MSTAT ( ) 

NLOAD 

NRAN 

NUMREG 

OVAL 

PERIOD 

PI 

PSTAT 

RB 

RT() 

SBND ( ) 


STATIC ( ) 


S TRAMP ( ) 


STRHIS ( ) 
SZERO 

TOB 

TRUNC 

TSTAT 

V<) 

VSTAT ( ) 

WD 

WOFF 

ZROREG 


ANGLE  PHI  MEASURED  COUNTER-CLOCKWISE  FROM  Z-DIRECTION  “ 

GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS  FOR  CALCULAT IONS 
OUT-OF-PLANE  CIRCUMFERENTIAL  STRESS  CARRYOVER  FACTOR 
IN-PLANE  CIRCUMFERENTIAL  STRESS  CARRYOVER  FACTOR 
OUT-OF-PLANE  AXIAL  STRESS  CARRYOVER  FACTOR 
IN-PLANE  AXIAL  STRESS  CARRYOVER  FACTOR 
LOCATION  CAUSING  FAILURE 
INTERIOR  DIAMETER 
ELASTIC  MODULUS 
VALUE  OF  LIFE  CALCULATED 

1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
YIELD  STRENGTH 
ULTIMATE  STRENGTH 

OUTPUT  DUMP  CONTROLLER  , „ 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  PIPE 
EXTERIOR  FOR  AXIAL  DIRECTION;  K(2,l)  IS  FOR  PIPE  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR  PIPE  INTERIOR  FOR  AXIAL 
DIRECTION;  K(2,2)  IS  FOR  PIPE  INTERIOR  FOR  HOOP  DIRECTION 
RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
ACCURACY  FACTOR  OF  Fk  - r/t  CURVE 
VALUE  OF  LIFE  CAUSING  FAILURE 
VALUE  OF  LIFE  AT  LOCATION  1 
VALUE  OF  LIFE  AT  LOCATION  2 

1-D  ARRAY  CONTAINING  VALUES  OF  Ltl(A)  = M Ln  K FOR  EACH  REGION 
NORMAL ( 0 . PVAR ) GENERATED  RANDOM  VARIATE  

1- D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
PHI  IS  A WE IBULL ( BETAO , ETAO)  GENERATED  RANDOM  VARIATE 

LOCATION  OF  INTEREST  WHERE  1 IS  THE  EXTERIOR  SURFACE  OF  THE 
PIPE  AND  2 IS  THE  INTERIOR  SURFACE  OF  THE  PIPE 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M< 1, * ) 

ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  FOR  m FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — M(l)  IS  THE 
M2  LOAD;  M( 2 ) IS  THE  M3  LOAD 
NUMBER  OF  TIME-VARYING  LOADS 
NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY 
NUMBER  OF  REGIONS  OF  INTEREST 
OVALITY  ANALYSIS  ACCURACY  FACTOR 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 
INTERNAL  PRESSURE 

LENGTH  OF  TIME  IN  SECONDS  FOR  RANDOM  STRESS-TIME  HISTORY 

CONSTANT  EQUAL  TO  3.14 

STATIC  AXIAL  LOAD 

BEND  RADIUS  MEASURED  FROM  CENTER  OF  PIPE 
1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R “ -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CORRECTED  FOR  PHI,  KRATIO,  AND  LNZ 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — STATIC(l) 
IS  THE  AXIAL  STRESS;  STATIC (2)  IS  THE  HOOP  STRESS;  STATIC(3) 
IS  THE  RADIAL  STRESS;  STATIC (4)  IS  THE  SHEAR  STRESS 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
— STRAMP ( 1 , * ) ARE  THE  AXIAL  STRESSES;  STRAMP (2  *)  ARE 
THE  HOOP  STRESSES;  STRAMP (3,*)  ARE  THE  RADIAL  STRESSES; 

STRAMP ( 4 , * ) ARE  THE  SHEAR  STRESSES 

2-D  ARRAY  CONTAINING  THE  AMPLITUDES  FOR  THE  TIME-VARYING 
STRESS-TIME  HISTORIES 
STRESS  TENSILE  POINT  (PSI) 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
WALL  THICKNESS  AT  INNER  BEND 

WALL  THICKNESS  AT  PIPE  OUTER  BEND 

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — V(l)  IS  THE 
V2  LOAD;  V<2)  IS  THE  V3  LOAD 
WELD  DISTANCE  FROM  ELBOW  TANGENCY 
WELD  OFFSET 

Zero  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
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c 

c 


BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


IF  ((LOCAT  .EQ.  1)  .OR.  (LOCAT  .EQ.  0)>  THEN 
EXTERIOR  SURFACE  OF  THE  PIPE 


& 

& 

& 


& 

& 


CALL  M2L1  (PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V, 
PSUBI,  TIB,  TOB,  DI,  EM,  WOFF,  LAMH,  RB,  K,  WD, 
CCY , CCZ,  CLY,  CLZ,  OVAL,  FK,  RT,  ANGLE,  STATIC, 
STRAMP) 

CALL  NARBNl  (STRHIS,  NRAN,  PERIOD,  TRUNC,  STATIC,  STRAMP, 
NLOAD,  FTY,  FTU,  1.0,  MM,  LNA,  LPHIM,  KRATIO, 
LNZ,  SBND,  SZERO,  ZROREG,  NUMREG,  FATLIF) 


LIFEl  = FATLIF 

IF  ( I OUT  .EQ.  25)  WRITE (8,*)  'FATLIF  - ',  FATLIF 
ENDIF 

IF  ((LOCAT  .EQ.  2)  .OR.  (LOCAT  .EQ.  0))  THEN 
INTERIOR  SURFACE  OF  THE  PIPE 

CALL  M2L2  (PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V, 
PSUBI,  TIB,  TOB,  DI,  EM.  WOFF,  LAMW,  RB,  K,  WD, 
CCY,  CCZ,  CLY,  CLZ,  OVAL,  FK,  RT,  ANGLE,  STATIC, 
STRAMP) 

CALL  NARBNl  (STRHIS,  NRAN,  PERIOD,  TRUNC,  STATIC,  STRAMP, 
i NLOAD,  FTY,  FTU,  1.0,  MM,  LNA,  LPHIM,  KRATIO, 

i LNZ,  SBND,  SZERO,  ZROREG,  NUMREG,  FATLIF) 

LIFE2  * FATLIF 

IF  (IOUT  .EQ.  25)  WRITE ( 8, * ) 'FATLIF  ■ ',  FATLIF 
ENDIF 


& 

& 

& 


IF  ((LOCAT  .LT.  0)  .OR.  (LOCAT  .GT.  2))  THEN 

WRITE (8,*)  'ERROR:  LOCATION  INCORRECTLY  SPECIFIED' 

CALL  TRMNAT 


ENDIF 

IF  (LOCAT  .EQ.  0)  THEN 

LIFE  - MIN  (LIFEl,  LIFE2) 

IF  (LIFE  .EQ.  LIFEl)  THEN 
CULPRT  = 1 

ELSE  IF  (LIFE  .EQ.  LIFE2)  THEN 
CULPRT  - 2 
ELSE 

WRITE (8,*)  'ERROR:  CANNOT  FIND  CULPRIT  LOCATION' 

CALL  TRMNAT 
ENDIF 

EL WELD  = LIFE 

C IF  (IOUT  .EQ.  25) 

C & WRITE ( 8 , * ) 'LIFE  = ',  LIFE,  ' CULPRT  - ',  CULPRT 

ELSE 

EL WELD  - FATLIF 
CULPRT  = LOCAT 


ENDIF 
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RETURN 

END 


C SUBROUTINE  M2L1  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  m©  THE! STRESS 
C FOR  MODE  2,  LOCATION  1 (WELD  NEAR  AN  ELBOW,  EXTERIOR  WALL  OF  THE  PIPE) 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  8JAN91 

C VERSION:  PIPE  V8.3 


SUBROUTINE  M2L1  (PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V, 

« PSUBI,  TIB,  TOB,  DI,  EM,  WOFF,  LAMW,  RB,  K , WD , 

& CCY,  CCZ,  CLY,  CLZ,  OVAL,  FK,  RT,  ANGLE,  STATIC, 

& S TRAMP) 


INPUTS:  PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V,  PSUBI, 

TIB,  TOB,  DI,  EM,  WOFF.  LAMW,  RB,  K,  WD,  CCY,  CCZ,  CLY, 
CLZ,  OVAL,  FK,  RT,  ANGLE 
OUTPUTS:  STATIC,  STRAMP 

SUBPROGRAMS : CALCS 

IMPLICIT  NONE 


COMMON 


I OUT 


INTEGER  I OUT,  J,  MAXLD,  NLOAD 
REAL  NU,  PI 


PARAMETER  (MAXLD  = 16,  NU  = 0.30,  PI  *=  3.1415926536) 

REAL  ANGLE,  AREA,  ARGNB,  ARGNB2,  ARGTM3,  B,  Cl PH I,  CCY,  CCZ, 

L2, 


& 

& 

& 

& 

& 

& 

& 


ANGLE,  AREA,  ARGNB,  AiwNoa  , AKGTP1J,  B,  Gxrnx , ggi, 

CLY,  CLZ,  DI,  EM,  FK(10) , GCY,  GCZ,  GLY,  GLZ,  GNBI 
GNBO,  GTMI,  GTMO,  IFK,  K(2,  2),  KOFF,  KT1,  KT2,  L, 

LAMW,  M(2,  MAXLD).  MIIB,  MIOB,  MSTAT ( 2 ) , NU2,  OVAL, 
P(MAXLD),  PSI,  PSTAT,  PSUBI,  QO,  QT,  R,  RB,  RI,  RM,  RO, 
ROIB,  ROOB,  ROVERI,  ROT.  RT(10),  SlPHI,  STATIC! 4) , 
STRAMP ( 4,  MAXLD) , T ( MAXLD ) , TIB,  TM,  TOB,  TSTAT, 

V(2,  MAXLD),  VSTAT(2),  WD,  WOFF,  Xl,  X2,  X3,  X4 


LIST  OF  VARIABLES 

ANGLE  ANGLE  PHI  MEASURED  COUNTER-CLOCKWISE  FROM  Z-DIRECTION  — 

GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS  FOR  CALCULATIONS 
AREA  CROSS  SECTION  AREA  OF  PIPE  WALL 

ARGNB,  ARGNB2,  ARGTM3  „ 

INTERMEDIATE  CALCULATION  VARIABLES  USED  IN  OVALITY  EFFECT 
CALCULATIONS 
B TORUS  EFFECT 

C1PHI  EQUAL  TO  COS( 1*PHI) 

CCY,  CCZ,  CLY,  CLZ 

STRESS  CARRY  OVER  FACTORS 
DI  INTERIOR  DIAMETER 

EM  ELASTIC  MODULUS 

FK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 

CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
GCY,  GCZ,  GLY.  GLZ 

OVALITY  EFFECT  COEFFICIENTS 

GNBI,  GNBO,  GTMI,  GTMO  

COEFFICIENTS  USED  IN  OVALITY  EFFECT  CALCULATIONS 
IFK  INTERPOLATED  VALUE  OF  Fk  CORRESPONDING  TO  PARTICULAR  VALUE 

OF  r/t 

I OUT  OUTPUT  DUMP  CONTROLLER  

J CONTROLS  DUE  LOOP  FOR  EACH  POINT  IN  RT( ) AND  FK( ) DURING 

INTERPOLATION 

KO  FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  PIPE 

EXTERIOR  FOR  AXIAL  DIRECTION;  K(2,l)  IS  FOR  PIPE  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR  PIPE  INTORI OR  FOR  AXIAL 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


KOFF 

KT1 

KT2 

L 

L2 

LAMW 

M() 

MAXLD 
HI  IB 
HI  OB 
HSTAT( ) 

NLOAD 

NU 

NU2 

OVAL 

IV 

PSI 

PSTAT 

PSUBI 

QO 

QT 

R 

RB 

RI 

RM 

RO 

ROIB 

ROOB 

ROVERI 

ROT 

RT() 

S1PHI 
STATIC ( ) 


STRAMP( ) 


T(  ) 


TIB 

TM 

TOB 

TSTAT 


V() 


VSTAT ( ) 


HD 
HOFF 
XI,  X2, 


DIRECTION;  K(2,2)  IS  FOR  PIPE  INTERIOR  FOR  HOOP  DIRECTION 
STRESS  CONCENTRATION  FACTOR  DUE  TO  ECCENTRICITY  OF  HELD 
STRESS  CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 
STRESS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 
OVALITY  EFFECT  VARIABLE 
EQUAL  TO  L **  2 

ACCURACY  FACTOR  OF  Fk  - r/t  CURVE 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(  1, *) 

ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 
MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 

MOMENT  OF  INERTIA  BASED  ON  MAXIMUM  HALL  THICKNESS  (INNER  BEND) 
MOMENT  OF  INERTIA  BASED  ON  MINIMUM  HALL  THICKNESS  (OUTER  BEND) 
1— D ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — M(  1)  IS  THE 
M2  LOAD;  M(2)  IS  THE  M3  LOAD 
NUMBER  OF  TIME-VARYING  LOADS 
POISSON'S  RATIO 
EQUAL  TO  NU  **  2 

OVALITY  ANALYSIS  ACCURACY  FACTOR 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 

SELF  EXPLANATORY  CONSTANT 

OVALITY  EFFECT  VARIABLE 

STATIC  AXIAL  LOAD 

INTERNAL  PRESSURE 

OVALITY  EFFECT  STRESS  DECAY  FACTOR 
TORUS  EFFECT  STRESS  DECAY  FACTOR 

RADIUS  OF  INTEREST  — RO  FOR  EXTERIOR  ANALYSIS;  RI  FOR 
INTERIOR  ANALYSIS 

BEND  RADIUS  MEASURED  FROM  CENTER  OF  PIPE 
INTERIOR  RADIUS 
MEAN  RADIUS 
OUTER  RADIUS 

OUTER  RADIUS  AT  THE  MAXIMUM  HALL  THICKNESS  (INNER  BEND) 

OUTER  RADIUS  AT  THE  MINIMUM  HALL  THICKNESS  (OUTER  BEND) 

EQUAL  TO  THE  MAXIMUM  R / I 
EQUAL  TO  r / t (R  Over  T) 

1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  HELD  ECCENTRICITY 
EQUAL  TO  SIN ( 1*PHI ) 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — STATIC ( 1 ) 
IS  THE  AXIAL  STRESS;  STATIC(2)  IS  THE  HOOP  STRESS;  STATIC(3) 
IS  THE  RADIAL  STRESS;  STATIC (4)  IS  THE  SHEAR  STRESS 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
— S TRAMP ( 1, *)  ARE  THE  AXIAL  STRESSES;  STRAMP(2, *)  ARE 
THE  HOOP  STRESSES;  S TRAMP ( 3,  *)  ARE  THE  RADIAL  STRESSES; 

STRAMP ( 4 , * ) ARE  THE  SHEAR  STRESSES 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
HALL  THICKNESS  AT  INNER  BEND 

MEAN  WALL  THICKNESS 

HALL  THICKNESS  AT  PIPE  OUTER  BEND 

STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V(l,*) 

ARE  THE  V2  LOADS;  V(2,*)  ARE  THE  V3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — V(l)  IS  THE  V2 
LOAD;  V(2)  IS  THE  V3  LOAD 
HELD  DISTANCE  FROM  ELBOW  TANGENCY 
WELD  OFFSET 
X3,  X4 

OVALITY  EFFECT  VARIABLES 


C CALCULATE  KOFF,  THE  STRESS  CONCENTRATION  FACTOR  DUE  TO 

C ECCENTRICITY  OF  THE  WELD 

NU2  - NU  **  2 
RI  - DI  / 2.0 
ROIB  - RI  + TIB 
ROOB  « RI  + TOB 
RO  - ROIB 

TM  - (TOB  + TIB)  / 2.0 
RM  - RI  + TM 
R s ROIB 

ROT  - MAX  (ROIB  / TIB,  ROOB  / TOB) 

DO  100  J - 2,  10 
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INTERPOLATE  TO  FIND  FACTOR  Fk  CORRESPONDING  TO  VALUE  OF  r/t 

. — _ _ hm  i > « \tn  * M/sm  / »W  TVn  / T 1 I V V THEN 


iFr 

& 

END  IF 
100  CONTINUE 


.LE.  RT(J))  .AND.  (ROT  .GE.  RT(J-1)>) 
(FK( J)  - FK( J-l) j * (ROT  - RT(J-l)) 

/ (RT( J)  - RT(J-l))  + FK(J-l) 


KOFF  - LAMW  * (1.0  + 3.0  * IFK  * WOFF) 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE (8,*) 
ENDIF 


25)  THEN 

'TIB  = ',  TIB,  ' TOB  * ',  TOB 

' DI  = ' , DI,  ’ RI  - RI 

'RM  - ',  RM,  ' TM  - TM 

'RO  - RO,  ' R - R 

'ROIB  « ',  ROIB,  ' ROOB  * ',  ROOB 

'NU2  * ',  NU2,  ' ROT  - ' , ROT 

'IFK  - ',  IFK,  ' WOFF  ■ ' , WOFF 

'LAMW  ■ ',  LAMW,  ' KOFF  « ',  KOFF 


C CALCULATE  THE  CROSS-SECTIONAL  AREA  AND  MOMENT  OF  INERTIA 


AREA  -PI  * (ROOB  **  2 - RI  **  2) 

MI IB  = PI  * (ROIB  **  4 - RI  **  4)  / 4.0 

MI OB  = PI  * (ROOB  **  4 - RI  **  4)  / 4.0 

ROVERI  - MAX  (ROIB  / MIIB,  ROOB  / MI OB) 

C OBTAIN  STRESS  CONCENTRATION  FACTORS  AND  RADII  APPROPRIATE  TO  LOCATION 


KT1  - K( 1, 1) 
KT2  = K( 2 , 1 ) 


IF  (IOUT  .EQ.  25]  THEN 
WRITE (8 
WRITE (8 
WRI 
WRI 
ENDIF 


(8,*) 

'AREA  = ' AREA.  'ROVERI  * 

(8r*) 

'MIIB  * ',  MIIB.  ' 

HI  OB  * 

(8**> 

'K( 1 , 1 ) = ',  K ( 1 , 1 

),  ' KTl 

8,* 

'K(2, 1 ) - ',  K(2, 1 

),  ' KT2 

, ROVERI 
MIOB 
',  KTl 
',  KT2 


C CALCULATE  STRESS  INCREASE  DUE  TO  TORUS  EFFECT 


S1PHI  = SIN  (ANGLE) 
C1PHI  = COS  (ANGLE) 
QT  = 1.0  - (WD  / RM] 
B * 1.0  + QT  * <<2.0 
& / <2.0 


* RB  + RM  * SlPHI] 

* (RB  + RM  * SlPHI))  - 1.0) 


IF  (IOUT  .EQ.  25)  THEN 

WRITE ( 8 , * ) 'RB  = ',  RB,  ' WD  — ' , WD 
WRITE ( 8 , * ) 'QT  = ' , QT,  ' B = ' , B 
ENDIF 


C CALCULATE  STRESS  INCREASE  DUE  TO  OVALITY  EFFECT 

L = TM  * RB  / ((RM  **  2)  * SQRT  (1.0  - NU2 ) ) 

PSI  - PSUBI  * RB  **  2 / (EM  * RM  * TM) 


IF  (L  .LT.  0.16) 

& WRITE ( 8 , * ) 'WARNING: 


LAMBDA  < . 16  DURING  OVALITY  CALCULATIONS ' 


L2  - L **  2 

XI  - 5.0  + 6.0  * L2  + 24.0  * PSI 
X2  - 17.0  + 600.0  * L2  + 480.0  * PSI 
X3  = XI  * X2  - 6.25 
X4  = (1.0  - NU2)  * (X3  - 4.5  * X2) 

ARGTM3  - 1.5  * X2  - 18.75 
ARGNB  - L / X4 
ARGNB2  = 9.0  * X2 


& 


GTMI  = SlPHI  + (ARGTM3  * SIN  (3.0  * 
+ 11.25  * SIN  (5.0  * ANGLE)) 
GTMO  = C1PHI  + (ARGTM3  * COS  (3.0  * 
+ 11.25  * COS  (5.0  * ANGLE)) 


ANGLE) 
/ X4 
ANGLE) 
/ X4 


7-107 


ooooo 


GNBI  » ARGNB  * (ARGNB2  * COS  (2.0  * ANGLE) 

£ + 225.0  * COS  (4.0  * ANGLE)) 

GNBO  - ARGNB  * (ARGNB2  * SIN  (2.0  * ANGLE) 

& + 225.0  * SIN  (4.0  * ANGLE)) 


QO  ■ 1.0  - WD  / (4.0  * RM) 

trr.7  m OVAL  * (SlPHI  + QO  * (CLZ  * (GTMI  + NU  * GNBI) 

GCZ  ■ OVAL  * QO  * CCZ  • (NU  * GTMI  + GNBI) 

GLY  * OVAL  * (C1PHI  + QO  * (CLY  * (GTMO  + NU  * GNBO) 

GCY  - OVAL  * QO  * CCY  * (NU  * GTMO  + GNBO) 


SlPHI)) 
C1PHI) ) 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE (8,*) 
WRITE I 8 , * ) 
WRITE j 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
END  IF 


25)  THEN 

' PSUBI  * ',  PSUBI,  * EM  - EM 
'L  » L,  ' PSI  - PSI 
'L2  - ' , L2 

'XI  ■ XI,  ' X2  - ' , X2 

'X3  ■ X3f  ' X4  ■ ',  X4 

' ARGTM3  « ',  ARGTM3 

'ARGNB  - ARGNB,  ' ARGNB2  - ARGNB 2 
'GTMI  - ',  GTMI,  ' GTMO  - ' , GTMO 
' GNBI  - ' , GNBI , ' GNBO  - ' , GNBO 
'QO  - ',  QO,  ' OVAL  - ',  OVAL 
'GLZ  - ',  GLZ,  ' GCZ  - ',  GCZ 

'GLY  - ',  GLY,  ' GCY  - GCY 


C CALL  CALCS  to  CALCulate  the  Stresses 


CALL  CALCS  (PSTAT,  MSTAT,  TSTAT,  VS TAT.  NLOAD,  P,  M,  T,  V, 

& PSUBI,  RI,  AREA,  RO,  R,  KT1,  KT2,  ROVERI,  KOFF,  B, 

£ GLZ,  GLY,  GCZ,  GCY,  ANGLE,  STATIC,  STRAMP) 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


25)  THEN 

'RI  ■ ’,  RI,  ' AREA  - AREA 

'RO  - RO,  ' R ■ ',  R 

' KTl  - ’,  KT1 , ' KT2  - ',  KT2 

'ROVERI  * ',  ROVERI,  ' KOFF  - ' , KOFF 

'B  * ',  B,  ' GLZ,  - ',  GLZ,  ' GLY  « ',  GLY 

' GCZ,  « ',  GCZ,  ' GCY  - ' , GCY 


RETURN 

END 


C 


C SUBROUTINE  M2L2  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  FIND  THE  STRESS 
C FOR  MODE  2,  LOCATION  2 (WELD  NEAR  AN  ELBOW,  INTERIOR  WALL  OF  THE  PIPE) 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  8JAN91 

C VERSION:  PIPE  V8.3 


SUBROUTINE 

& 

& 

6 


M2L2  (PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M, 
PSUBI,  TIB,  TOB,  DI,  EM,  WOFF,  LAMW,  RB, 
CCY,  CCZ,  CLY,  CLZ,  OVAL,  FK,  RT,  ANGLE, 
STRAMP) 


i;  w6p 

STATIC, 


INPUTS: 


OUTPUTS: 

SUBPROGRAMS: 


PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V,  PSUBI, 
TIB,  TOB,  DI,  WOFF,  EM,  LAMW,  RB,  K,  WD,  CCY,  CCZ,  CLY, 
CLZ,  OVAL,  FK,  RT,  ANGLE 
STATIC,  STRAMP 
CALCS 


C IMPLICIT  NONE 

COMMON  IOUT 

INTEGER  IOUT,  J,  MAXLD,  NLCAD 
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REAL  NU,  PI 

PARAMETER  (MAXLD  * 16,  NU  - 0.30,  PI  - 3.1415926536) 


ANGLE,  AREA,  ARGNB,  ARGNB2,  ARGTM3,  B,  Cl  PH  I,  CCY,  CCZ, 


LAMW,  M(2,  MAXLD),  MI,  MfiTAT(2),  NU2,  OVAL,  P (MAXLD ) , 
PSI,  PSTAT,  PSUBI,  QO,  QT,  R,  RB,  RI,  RM,  feO,  ROIB, 
Rook,  ROT,  RT(10),  SlPHI,  STATICM),  STRAMP(4,  MAXLD), 
T(MAXLD),  TIB,  TM,  TOB.  TSTAT,  V(2,  MAXLD),  VSTAT(2), 
WD,  WOFF,  XI,  X2,  X3,  X4 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LIST  OF  VARIABLES 


ANGLE  ANGLE  PHI  MEASURED  COUNTER-CLOCKWISE  FROM  Z -DIRECTION  — 

GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS  FOR  CALCULATIONS 
AREA  CROSS  SECTION  AREA  OF  PIPE  WALL 

ARGNB,  CALCULATION  VARIABLES  USED  IN  OVALITY  EFFECT 

CALCULATIONS 
B TORUS  EFFECT 

C1PHI  EQUAL  TO  COS(l*PHI) 

CCY,  CCZ,  CLY,  CLZ 

STRESS  CARRY  OVER  FACTORS 
DI  INTERIOR  DIAMETER 

EM  ELASTIC  MODULUS 

FK<  ) 1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 

CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
GCY,  GCZ , GLY,  GLZ 

OVALITY  EFFECT  COEFFICIENTS 

GNBI,  GNBO,  GTMI , GTMO  

COEFFICIENTS  USED  IN  OVALITY  EFFECT  CALCULATIONS 
JFK  INTERPOLATED  VALUE  OF  Fk  CORRESPONDING  TO  PARTICULAR  VALUE 

OF  r/t 

I OUT  OUTPUT  DUMP  CONTROLLER 

J CONTROLS  DUE  LOOP  FOR  EACH  POINT  IN  RT(  ) AND  FK< ) DURING 

INTERPOLATION  „ , 

KM  FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  PIPE 

EXTERIOR  FOR  AXIAL  DIRECTION?  K(2,l)  IS  FOR  PIPE  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR  PIPE  INTERIOR  FOR  AXIAL 


MAXLD 

MI 

MSTAT() 

NLOAD 

NU 

NU2 

OVAL 

IP 

PSI 

PSTAT 

PSUBI 

00 

QT 

R 


STRESS  CONCENTRATION  FACTOR  DUE  TO  ECCENTRICITY  OF  WELD 
STRESS  CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 
STRESS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 
OVALITY  EFFECT  VARIABLE 
EQUAL  TO  L **  2 

ACCURACY  FACTOR  OF  Fk  - r/t  CURVE 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(l,*) 

ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 
MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 
MOMENT  OF  INERTIA  , „ __ 

1-D  ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — M(l)  IS  THE 
M2  LOAD;  M( 2 ) IS  THE  M3  LOAD 
NUMBER  OF  TIME-VARYING  LOADS 
POISSON'S  RATIO 
EQUAL  TO  NU  **  2 

OVALITY  ANALYSIS  ACCURACY  FACTOR 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 

SELF  EXPLANATORY  CONSTANT 

OVALITY  EFFECT  VARIABLE 

STATIC  AXIAL  LOAD 

INTERNAL  PRESSURE 

OVALITY  EFFECT  STRESS  DECAY  FACTOR 

TORUS  EFFECT  STRESS  DECAY  FACTOR  . ^Jllul  n T n 

RADIUS  OF  INTEREST  — RO  FOR  EXTERIOR  ANALYSIS;  RI  FOR  INTERIOR 
ANALYSIS 

BEND  RADIUS  MEASURED  FROM  CENTER  OF  PIPE 
INTERIOR  RADIUS 
MEAN  RADIUS 
OUTER  RADIUS 

OUTER  RADIUS  AT  THE  MAXIMUM  HALL  THICKNESS  (INNER  BEND) 
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C ROOB 
C ROT 
C RT() 
C 


OUTER  RADIUS  AT  THE  MINIMUM  WALL  THICKNESS  (OUTER  BEND) 
EQUAL  TO  r / t (R  Over  T) 

1— D ARRAY  CONTAINING  VALUES  OF  r/t  USED  JO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 


S1PHI 
STATIC ( ) 


STRAMP() 


TM 

TOB 

TSTAT 

V() 

VSTAT ( ) 

HD 
HOFF 
XI,  X2, 


EQUAL  TO  SIN(1*PHI)  

1—  D ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — STATIC(l) 
IS  THE  AXIAL  STRESS;  STATIC(2)  IS  THE  HOW  STRESS;  STATIC(3) 
IS  THE  RADIAL  STRESS;  STATIC (4)  IS  THE  SHEAR  STRESS 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-  VARYING  STRESSES  — 
STRAMP ( 1 , * ) ARE  THE  AXIAL  STRESSES;  STRAMP(2  *)  ARE  THE  HOOP 
STRESSES;  STRAMP ( 3 , * ) ARE  THE  RADIAL  STRESSES;  STRAMP ( 4 , * ) 
ARE  THE  SHEAR  STRESSES 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 

HALL  THICKNESS  AT  INNER  BEND 

MEAN  HALL  THICKNESS 

HALL  THICKNESS  AT  PIPE  OUTER  BEND 

STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V(l,*) 

ARE  THE  V2  LOADS;  V(2, *)  ARE  THE  V3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — V(l)  IS  THE 
V2  LOAD;  V(2 ) IS  THE  V3  LOAD 

HELD  DISTANCE  FROM  ELBOW  TANGENCY 

WELD  OFFSET 
X3 , X4 

OVALITY  EFFECT  VARIABLES 


C CALCULATE  KOFF,  THE  STRESS  CONCENTRATION  FACTOR  DUE  TO 

C ECCENTRICITY  OF  THE  WELD 


NU2  « NU  **  2 
RI  - DI  / 2.0 
ROIB  « RI  + TIB 
ROOB  - RI  + TOB 
RO  ■ ROIB 

TM  - (TOB  + TIB)  / 2.0 
RM  - RI  + TM 
R - RI 

ROT  - MAX  (ROIB  / TIB,  ROOB  / TOB) 


DO  100  J - 2,  10 

INTERPOLATE  TO  FIND  FACTOR  Fk  CORRESPONDING  TO  VALUE  OF  r/t 


IF  ((ROT  .LE. 
IFK  - (FK( J) 


ENDIF 
100  CONTINUE 


RT(J)J  .AND. 

^ . - FK(  J-l) ) * (1 
(aT(J)  - RT(J-l))  + FK(J-l) 


(ROT  .GE.  RT(J-l)))  THEN 
ROT  - RT(J-l) ) 


KOFF  - LAMW  * (1.0  + 3.0  * IFK  * WOFF) 


IF  (IOUT 

.EQ.  25)  THEN 

WRITE  < 

8,*] 

'TIB  « ' , 

WRITE  i 

8,* 

'DI  * ' , 

WRITE  i 

8,* 

' RM  » ' , 

WRITE  i 

8,*] 

'RO  « ' , 

WRITEj 

8,* 

'ROIB  * ' 

WRITE! 

8,* 

'NU2  « ' , 

WRITE! 

[ 8,  *| 

'IFK  * ' , 

WRITE! 

ENDIF 

B,* 

'LAMW  - ' 

TIB,  ' TOB  - '.  TOB 
DI,  ' RI  = ' , RI 
RM,  ' TM  - ' , TM 
RO,  ' R “ ' , R 
, ROIB,  ' ROOB  - ROOB 
NU2,  ' ROT  - ' , ROT 
IFK,  ' WOFF  - ',  WOFF 
, LAMW,  ' KOFF  - ',  KOFF 


C CALCULATE  THE  CROSS-SECTIONAL  AREA  AND  MOMENT  OF  INERTIA 


AREA  * PI  * (ROOB  **  2 - RI  **  2) 

MI  - PI  * (ROOB  **  4 - RI  **  4)  / 4.0 

C OBTAIN  STRESS  CONCENTRATION  FACTORS  AND  RADII  APPROPRIATE  TO  LOCATION 


KT1  - K(l,2) 

KT2  - K(2,2) 

IF  (IOUT  .EQ.  25)  THEN 

WRITE ( 8 , * ) 'AREA  * ',  AREA,  ' MI  - ' , MI 
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WRITE 
WRITE 
ENDIF 

C CALCULATE  STRESS  INCREASE  DUE  TO  TORUS  EFFECT 


( 8 , * ) rK( 1,2 ) 
<8,^S  'K(2,2 ) 


K(1,Z), 

K(2,2i, 


KTl 

KT2 


, Ml. 

, KT2 


SlPHI  - 
ClPHI  - 


QT  - 
B = 


1.0 

1.0 


SIN  (ANGLE) 
COS  (ANGLE) 

- (WD  / RM) 
+ QT  * ((2.0 
/ 2.0 


* RB  + RM  * SlPHI) 

* (RB  + RM  * SlPHI))  - 1.0) 


IF  ( IOUT  .EQ.  25)  THEN 

WRITE ( 8 , * ) 'RB  “ RB,  ' WD  - ' , WD 

WRITE ( 8 , * ) 'QT  - QT,  ' B ■ ',  B 

ENDIF 


C CALCULATE  STRESS  INCREASE  DUE  TO  OVALITY  EFFECT 

L = TM  * RB  / ( (RM  **  2 ) * SQRT  (1.0  - NU2 ) ) 

PSI  = PSUBI  * RB  **  2 / (EM  * RM  * TM) 


IF  (L  .LT.  0.16) 

& WRITE (8,*)  'WARNING:  LAMBDA  < .16  DURING  OVALITY  CALCULATIONS' 

L2  = L **  2 

XI  - 5.0  + 6.0  * L2  + 24.0  * PSI 
X2  » 17.0  + 600.0  * L2  + 480.0  * PSI 
X3  = Xl  * X2  - 6.25 
X4  * (1.0  - NU2)  * (X3  - 4.5  * X2) 

ARGTM3  « 1.5  * X2  - 18.75 
ARGNB  = L / X4 
ARGNB2  = 9.0  * X2 

GTMI  - SlPHI  + (ARGTM3  * SIN  (3.0  * ANGLE) 

& + 11.25  * SIN  (5.0  * ANGLE))  / X4 

GTMO  = ClPHI  + (ARGTM3  * COS  (3.0  * ANGLE) 

& + 11.25  * COS  (5.0  * ANGLE))  / X4 

GNBI  * ARGNB  * (ARGNB2  * COS  (2.0  * ANGLE) 
i + 225.0  * COS  (4.0  * ANGLE)) 

GNBO  - ARGNB  * (ARGNB 2 * SIN  (2.0  * ANGLE) 
fc  + 225.0  * SIN  (4.0  * ANGLE)) 

QO  = 1.0  - WD  / (4.0  * RM) 

GLZ  * OVAL  * (SlPHI  + QO  * (CLZ  * (GTMI  - NU  * GNBI)  - SlPHI)) 

GCZ  = OVAL  * QO  * CCZ  * (NU  * GTMI  - GNBI) 

GLY  - OVAL  * (ClPHI  + QO  * (CLY  * (GTMO  - NU  * GNBO)  - ClPHI)) 

GCY  * OVAL  * QO  * CCY  * (NU  * GTMO  - GNBO) 


IF  (IOUT  .EQ. 
WRITE (8,*) 
WRITE (8,*) 
WRITE (8,*) 
WRITE (8,*) 
WRITE (8,*) 
WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


25)  THEN 

'PSUBI  = ',  PSUBI,  ' EM  = ' , EM 
'L  = ' , L,  ' PSI  = ' , PSI 
' L2  = ' , L2 

'XI  = ',  Xl,  ' X2  = ',  X2 
'X3  = ',  X3,  ' X4  * ',  X4 
'ARGTM3  = ',  ARGTM3 

'ARGNB  = ',  ARGNB,  ' ARGNB 2 = ',  ARGNB2 
'GTMI  = ',  GTMI,  ' GTMO  * ' , GTMO 
'GNBI  * ',  GNBI,  ' GNBO  ■ ' , GNBO 
'QO  ■ ' , QO,  ' OVAL  - ',  OVAL 
'GLZ  ■ ',  GLZ,  ' GCZ  **  ',  GCZ 
'GLY  - ',  GLY,  ' GCY  - ',  GCY 


C CALL  CALCS  to  CALCulate  the  Stresses 


CALL  CALCS  (PSTAT,  MSTAT,  TSTAT, 
& PSUBI,  RI,  AREA,  RO, 

& GLZ,  GLY,  GCZ,  GCY, 


VSTAT.  NLOAD,  P,  M,  T,  V, 

R,  KTl,  KT2,  R/MI,  KOFF,  B, 
ANGLE,  STATIC,  S TRAMP) 


IF  (IOUT  .EQ.  25)  THEN 
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GLY 


WRITE* 

8,* 

WRITE* 

8,  * 

WRITE* 

8,  * 

WRITE* 

8,* 

WRITE* 

8,* 

WRITE* 

[8,* 

ENDIF 


'RI  - ', 

RI,  ' 

AREA  - ',  AREA 

'RO  - ' , 

RO,  ' 
, KTl, 

R ■ ',  R 

'KTl  » ' 

' KT2  - ',  KT2 

'MI  - ', 

MI,  ' 

KOFF  - ' , KOFF 

rB  - ',  B,  ' GLZ,  - ',  GLZ,  ' GLY 
' GCZ,  ■ ',  GCZ , ' GCY  * ' , GCY 


RETURN 

END 


C 


C SUBROUTINE  CALCS  USES  THE  LOADS,  STRESS  CONCENTRATION  FACTORS,  AND 
C GEOMETRIC  INFORMATION  TO  CALCULATE  THE  STRESS  COMPONENTS 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  26APR90 

C VERSION:  PIPE  V8,  V8.1,  V8.2,  V8.3 


SUBROUTINE  CALCS  (PSTAT, 

& PSUBI , 

& B , GLZ , 


MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V, 
RI,  AREA,  RO,  R,  KTl,  KT2,  ROVERI,  KOFF, 
GLY,  GCZ,  GCY,  ANGLE,  STATIC,  STRAMP) 


C INPUTS : 

C 

C 

C OUTPUTS: 


PSTAT,  MSTAT,  TSTAT,  VSTAT,  NLOAD,  P,  M,  T,  V,  PSUBI,  RI, 
AREA,  RO,  R,  KT1,  KT2 , ROVERI,  KOFF,  B,  GLZ,  GLY,  GCZ,  GCY, 
ANGLE 

STATIC,  STRAMP 


C IMPLICIT  NONE 


COMMON  I OUT 

INTEGER  I,  I OUT,  MAXLD,  NLOAD 
REAL  PI 

PARAMETER  (MAXLD  * 16,  PI  - 3.1415926536) 

REAL  ANGLE,  AREA,  ARGA,  ARGB,  ARGl,  ARG2,  B,  GCY,  GCZ,  GLY, 

& GLZ,  KOFF,  KTl,  KT2,  M(2,  MAXLD),  MSTAT(2) , P ( MAXLD ) , 

& PSTAT,  PSUBI,  R,  RI,  RO,  R02,  ROVERI,  R 2,  STATIC(4), 

& STRAMP(4,  MAXLD),  T ( MAXLD ) , TSTAT,  V(2,  MAXLD),  VSTAT(2) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LIST  OF  VARIABLES 


ANGLE 

AREA 

ARGA 

ARGB 

ARGl 

ARG2 

B 

GCY,  GCZ, 
I 

IOUT 

KOFF 

KTl 

KT2 

M() 

MAXLD 
MSTAT () 

NLOAD 


PSTAT 


ANGLE  PHI  MEASURED  COUNTER-CLOCKWISE  FROM  Z-DIRECTION  — 

GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS  FOR  CALCULATIONS 
CROSS  SECTION  AREA  OF  PIPE  WALL 
INTERMEDIATE  CALCULATION  VARIABLE 
INTERMEDIATE  CALCULATION  VARIABLE 
INTERMEDIATE  CALCULATION  VARIABLE 
INTERMEDIATE  CALCULATION  VARIABLE 
TORUS  EFFECT 
GLY,  GLZ 

OVALITY  EFFECT  COEFFICIENTS 

CONTROLS  DO  LOOP  FOR  THE  TIME-VARYING  STRESSES 
OUTPUT  DUMP  CONTROLLER 

STRESS  CONCENTRATION  FACTOR  DUE  TO  ECCENTRICITY  OF  WELD 
STRESS  CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 
STRESS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(l,*) 
ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 
MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 

1-D  ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — M(l)  IS  THE  M2 
LOAD;  M(2 ) IS  THE  M3  LOAD 
NUMBER  OF  TIME-VARYING  LOADS 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 
SELF  EXPLANATORY  CONSTANT 
STATIC  AXIAL  LOAD 
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PSUBI 

R 


RI 

RO 

R02 

ROVERI 

R2 

STATIC ( ) 


S TRAMP ( ) 


tsIat 

V() 


VSTAT ( ) 


RO  FOR  EXTERIOR  ANALYSIS;  RI  FOR 


INTERNAL  PRESSURE 
RADIUS  OF  INTEREST 
INTERIOR  ANALYSIS 
INTERIOR  RADIUS 
OUTER  RADIUS 
EQUAL  TO  RO  **  2 
EQUAL  TO  THE  MAXIMUM  R / I 
EQUAL  TO  R **  2 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES 


STATIC(l) 


IS  THE 'AXIAL,"  STRESS ; STATIC  ^2^  IS  THE  HOOP  STRESS;  STATIC  ( J ) 


IS  THE  RADIAL  STRESS;  STATIC ( 
2-D  ARRAY  CONTAINING  VALUES  OF 


IS  THE  SHEAR  STRESS 
TIME-VARYING  STRESSES  — 


STRAMP/1,*)  ARE  THE  AXIAL  STRESSES;  STRAMP (2,*)  ARE  THE 
HOOP  STRESSES;  STRAMP ( 3 , * ) ARE  THE  RADIAL  STRESSES; 

STRAMP( 4, * ) ARE  THE  SHEAR  STRESSES 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V(l,*) 
ARE  THE  V2  LOADS;  V(2,«)  ARE  THE  V3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — V(l)  IS  THE  V2 
LOAD;  V(2)  IS  THE  V3  LOAD 


C PERFORM  INTERMEDIATE  CALCULATI ON S 

R2  = R **  2 
R02  = RO  **  2 

ARGl  = RI  **  2 / (R02  - RI  **  2) 
ARG2  = (R02  + R2)  / R2 

ARGA  = PSUBI  * ARGl 
ARGB  » ARG2  * ARGA 


& 


IF  (IOUT  .EQ.  25)  THEN 
WRITE ( 8 , * ) 'R  * ', 

' RO  * ' 
WRITE (8,*)  'RI  - ', 
WRITE ( 8 , * ) 'ARGl  = 
WRITE (8,*)  'ARGA  - 
ENDIF 


R,  ' R2  - ',  R2, 
, RO,  ' R02  = ', 
RI,  ' AREA  « ', 
',  ARGl,  ’ ARG2 
',  ARGA,  ' ARGB 


R02 

AREA 

- ',  ARG2 

- ',  ARGB 


C CALCULATE  STATIC  STRESS  COMPONENTS 


& 

& 


& 


STATIC ( 1 ) 

STATIC ( 2 ) 

STATIC ( 3 ) 
STATIC ( 4 ) 


KT1  * (PSTAT  / AREA  + (GLZ  * MSTAT(2) 

+ GLY  * MSTAT ( 1 ) ) * ROVERI  + ARGA)  * KOFF 
KT2  * (B  * ARGB  + (GCZ  * MSTAT ( 2 ) 

+ GCY  * MSTAT ( 1 ) ) * ROVERI) 

- ARGA  * (R02  - R2)  / R2 

(TSTAT  * ROVERI  / 2.0)  - 2.0  * (VSTAT(l) 

* COS  (ANGLE)  + VSTAT ( 2 ) * SIN  (ANGLE) ) / AREA 


C CALCULATE  TIME-VARYING  STRESS  COMPONENTS 


DO  100  I = 1,  NLQAD 


STRAMP (1,1) 

& 

STRAMP ( 2 , I ) 
STRAMP (3,1) 
STRAMP (4,1) 

& 


KTl  * <P(I)  / AREA  + (GLZ  * M(2,I) 

+ GLY  * M( 1 , I ) ) * ROVERI)  * KOFF 
KT2  * (GCZ  * M(2, I)  + GCY  * M(1,I))  * 
0.0 

(T( I)  * ROVERI  / 2.0)  - 2.0  * (V(1,I) 
* COS  (ANGLE)  + V(2,I)  * SIN  (AN GLE)) 


ROVERI 


/ AREA 


100  CONTINUE 


IF  (IOUT  .EQ. 
WRITE (8,* 


300 


CONTINUE 

ENDIF 


25)  THEN 

'I  AXIAL  HOOP  RADIAL  SHEAR' 
STATIC ( 1 ) , STATIC ( 2 ) , STATIC(3),  STATIC(4) 

1,  NLOAD 

WRITE ( 8 , * ) I,  STRAMP ( 1,1),  STRAMP(2,I),  STRAMP(3,I), 
STRAMP (4,1) 


WRITE (8 
DO  300  I 


■'A 
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RETURN 

END 


c 


C SUBROUTINE  NARBNl  CALCULATES  THE  FATIGUE  LIFE  WHEN  A RANDOMLY  DISTRIBUTED 
C LOAD  IS  PRESENT  USING  A SIMULATED  NARROW  BAND  STRESS-TIME  HISTORY 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  3MAY90 

C VERSION:  1.5  (PIPE  V8.1,  V8.2,  V8.3) 

SUBROUTINE  NARBNl  ( STRHIS , M,  PERIOD.  TRUNC,  STATIC,  STRAMP, 

& NLOAD,  FTY,  FTU,  KT,  MM,  LKA,  LPHIM,  KRATIO, 

6 LNZ,  SEND,  SZERO,  ZROREG,  NUMREG,  FATLIF) 

INPUTS:  STRHIS,  M,  PERIOD,  TRUNC,  STATIC,  STRAMP,  NLOAD,  FTY, 

FTU,  KT,  MM,  LNA,  LPHIM,  KRATIO,  LNZ,  SBND,  SZERO, 

ZROREG,  NUMREG 
OUTPUTS:  FATLIF 

SUBPROGRAMS : RAINF 1 


& 


& 

& 

6 


IMPLICIT  NONE 
COMMON  I OUT 

INTEGER  I,  I OUT,  J,  M,  MAXLD,  MAXM,  MAXREG,  NLOAD,  NUMREG, 
ZROREG 

PARAMETER  (MAXLD  - 16,  MAXM  * 24000,  MAXREG  - 3) 

REAL  FATLIF,  FTY,  FTU,  KRATIO,  KT,  LNA( 0: MAXREG ) , LNZ, 
LPHIM(0:  MAXREG  J,  MM(  0 : MAXREG) , PERIOD,  RAINFl, 

S(4,  MAXM),  SBND( 0 sMAXREG) , SEFF(MAXM) , STATIC(4), 
STRAMP  (4,  MAXLD),  STRHIS  (MAXLD,  MAXM),  SZERO,  TRUNC 


LIST  OF  VARIABLES 


FATLIF 

FTY 

FTU 

I 

I OUT 
J 

KRATIO 

KT 


LNA 

LNZ 

LPHIM  ( ) 


M 

MAXLD 

MAXM 

MAXREG 


NUMREG 

PERIOD 

RAINFl 


() 


SBND( ) 


C 

c 

c 

c 


STATIC ( ) 


VALUE  OF  FATIGUE  LIFE  CALCULATED 
YIELD  STRENGTH 
ULTIMATE  STRENGTH 

CONTROLS  DO  LOOP  FOR  RANDOM  AND  SUPERIMPOSED  SINE  LOADS 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  STRESS-TIME  HISTORY 
RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
STRESS  CONCENTRATION  FACTOR 

1— D ARRAY  CONTAINING  VALUES  OF  Ln(A)  - M Ln  K FOR  EACH  REGION 
NORMAL ( 0 , PVAR ) GENERATED  RANDOM  VARIATE 

1-D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
PHI  IS  A WE I BULL ( BETAO , ETAO)  GENERATED  RANDOM  VARIATE 
NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY 
MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1- D  ARRAY  CONTAINING  VALUES  FOR  m FOR  EACH  REGION 
NUMBER  OF  TIME-VARYING  LOADS 

NUMBER  OF  REGIONS  OF  INTEREST 

TIME  IN  SECONDS  FOR  ONE  PERIOD  OF  STRESS-TIME  HISTORY 
FUNCTION  WHICH  CALCULATES  THE  TIME  TO  FAILURE  FOR  A GIVEN 
UNI-AXIAL  STRESS-TIME  HISTORY 

2- D  ARRAY  CONTAINING  THE  TOTAL  COMPONENT  STRESS-TIME  HISTORIES 
1-D  ARRAY  CONTAINING  THE  EFFECTIVE  (OR  UNI-AXIAL)  STRESS-TIME 

HISTORY  RESULTING  FROM  THE  COMBINATION  OF  STATIC,  RANDOM,  AND 
SINUSOIDAL  LOADS  FOR  ALL  FOUR  COMPONENTS 
1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R - -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CORRECTED  FOR  PHI,  KRATIO,  AND  LNZ 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — STATIC(l) 
IS  THE  AXIAL  STRESS;  STATIC (2)  IS  THE  HOOP  STRESS;  STATIC (3) 
IS  THE  RADIAL  STRESS;  STATIC(4)  IS  THE  SHEAR  STRESS 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


S TRAMP ( ) 


STRHIS ( ) 

SZERO 

TRUNC 

ZROREG 


2-D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES — 
STRAMP ( 1 , * ) ARE  THE  AXIAL  STRESSES;  STRAMP (2, * ) ARE  THE 
HOOP  STRESSES;  STRAMP (3,*)  ARE  THE  RADIAL  STRESSES; 

STRAMP (4,*)  ARE  THE  SHEAR  STRESSES  1MVW 

2-D  ARRAY  CONTAINING  THE  AMPLITUDES  FOR  THE  TIME-VARYING 
STRESS-TIME  HISTORIES 

STRESS  TENSILE  POINT  (PSI)  

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
Zero  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


DO  50  J = 1,  M 


S| 

1,J) 

= 

STATIC 

i) 

S| 

2,  J) 

= 

STATIC 

V 

SI 

[3,  J) 

s 

STATIC 

3) 

Si 

4,  J) 

s 

STATIC  1 

4 

50  CONTINUE 


C 


DO  100  I = 1,  NLOAD 
DO  150  J - 1,  M 


S(l, J) 
S(2, J) 
S(3,J) 
S(4,J) 


S(1,J)  + STRHIS ( I , J) 
S (2 , J)  + STRHIS (I, J) 
S (3, J)  + STRHIS (I, J) 
S(4, J)  + STRHIS ( I ,J) 


* STRAMP (1,1) 

* STRAMP (2,1) 

* STRAMP (3, I) 

* STRAMP (4, I) 


150  CONTINUE 
100  CONTINUE 


DO  300  J = 1,  M 


SEFF(J)  = (S(1,J 
& (S(l  ” 

& + (S(2 

& / 2.0) 


,J)  / ABS  (S( 

:?  : Iil;S}} 


S(1,J)^)+*  |QRT_(( 

2 + jlio 


*★ 
★ ★ 


S(l,Jj '-  S(3,J) ) **  2 
S(4,^)  **  2)) 


300  CONTINUE 


IF  ( IOUT  .EQ.  25)  THEN 
DO  125  J = 1,  M 

WRITE ( 8 , * ) J,  'S:  ',  S(1,J),  S(2, J) 
WRITE ( 8 , * ) ' SEFF  = SEFF(J) 

125  CONTINUE 
ENDIF 


S(3,J),  S ( 4 , J) 


FATLIF  = RAINFl 

& 


(SEFF,  M,  TRUNC,  PERIOD,  KT,  FTU, 
LPHIM,  KRATIO,  LNZ,  SBND,  SZERO, 


FTY,  MM,  LNA, 
ZROREG,  NUMREG) 


IF  (IOUT  .EQ.  25)  WRITE(8,*)  'PERIOD  = PERIOD, 
t,  ' FATLIF  = FATLIF 


RETURN 

END 


C*************** ****************************** ***************************** 


C********* ****** ****** ****** ******** ************ *********************** 

FUNCTION  RAINFl  CALCULATES  THE  TIME  (in  seconds)  TO  FAILURE  FOR 
THE  GIVEN  UNI-AXIAL  (OR  EFFECTIVE)  STRESS-TIME  HISTORY 


PROGRAMMER:  L.  NEWLIN 

DATE:  23MAY89 

VERSION:  3.1+  (MATCHR  V8.3,  V8.4,  V8.5) 
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c 

c* 


xs  ac 


knovledged. 

**★***★*★★* 


FUNCTION  RAINFl  (SETT,  M, TRUNC,  PERIOD,  KT,  FTU,  FTC , MM ' , 
& LPHIM,  KRATIO,  LNZ,  SBND,  SZERO,  ZROREG,  NUMREG) 


C INPUTS: 

C 

C OUTPUTS: 


SEFF,  M,  TRUNC,  PERIOD,  KT,  FTU,  FTY,  MM,  LNA,  LPHIM, 

KRATlO,  LNZ,  SBND,  SZERO,  ZROREG,  NUMREG 

RAINFl 


C IMPLICIT  NONE 


COMMON  I OUT 

COMMON  / COUNT  / TOHIGH 


INTEGER  MAXREG,  MAXM 


PARAMETER  (MAXREG  * 3,  MAXM  « 24000) 


INTEGER  BIGl,  I,  INDEX ( MAXM ) , IOUT,  J,  JMAX,  K,  M,  N,  NEWTOT, 
6 NUMREG,  TOHIGH,  ZROREG 


REAL 

6 

& 

& 

& 

& 


S (MAXM) , SALTF(MAXM),  SBND ( 0 : MAXREG ) , SEFF (MAXM) , 
SEFFM<2,  MAXM),  SEFMAX,  SM,  SMEANF  (MAXM U SP(MAXM) , 
STR(MAXM),  SUMDAM,  SZERO,  TEST1 (MAXM) , TEST2 ( MAXM 


i: 


TRUNC 


C 

C 

C 

C 

C 

C 


RAINFl 


LIST  OF  VARIABLES 

CYCLES  TO  FAILURE  FOR  THE  GIVEN  STRESS  LEVELS 


input  variables: 


c 

SEFF(M) 

c 

M 

c 

TRUNC 

C 

PERIOD 

c 

KT 

c 

FTU 

c 

FTY 

C 

C 

c 


EFFECTIVE  STRESSES  BEFORE  FILTERING/ RAINFLOW 
TOTAL  NUMBER  OF  STRESS  DATA  POINTS  PER  PERIOD 
VALUE  USED  TO  FILTER  OUT  NOISE 
TIME  IN  SECONDS  FOR  ONE  PERIOD 
FATIGUE  CONCENTRATION  FACTOR 
ULTIMATE  TENSILE  STRENGTH  (PSI) 

YIELD  TENSILE  STRENGTH  (PSI) 


intermediate  variables: 


c 

c SEFMAX 
C JMAX 
C I,  J,K 
C SP(M+1 ) 

C S (NEWTOT) 

C NEWTOT 
C E ( ) 

C N 

C SEFFM( 2 ,N ) 
C 

c 

C SALTF(N) 

C SMEANF (N) 
C BIGl 
C SM 
C ARGM 
C STR(N) 

C LIFE fN) 

C INVLIF(N) 
C SUMDAM 
C 

C IOUT 
C KRATIO 
C LNA(  ) 

C LNZ 
C LPHIM ( ) 


LARGEST  EFFECTIVE  STRESS 

INDEX  (LOCATION)  OF  SEFMAX  IN  SEFF( ) 

COUNTERS  FOR  VARIOUS  DO  LOOPS 

RESEQUENCED  EFFECTIVE  STRESSES;  # OF  PTS  » M+l 

FILTERED  EFFECTIVE  STRESSES  

TOTAL  NUMBER  OF  EFFECTIVE  STRESS  VALUES  AFTER  FILTERING 
HOLDING  ARRAY  USED  TO  FIND  CYCLES  DURING  RAINFLOW  ANALYSIS 
NUMBER  OF  CYCLES  FOUND  DURING  RAINFLOW  ANALYSIS 
EFFECTIVE  STRESSES  AFTER  RESEQUENC ING / FILTERING / RAINFLOW 
SEFFM (1,1)  = sigma  max,eff,i 
SEFFM(2, I ) = sigma  min,eff,i 
SALTF( I)  * sigma  alternating, erf ,i 
SMEANF ( I ) * sigma  mean,eff,i 
VALUE  OF  i FOR  SEFMAX 
SM  * EQUIVALENT  MEAN  STRESS 

INTERMEDIATE  CALCULATION  VARIABLE  EQUAL  TO  KT/(1  - SM/FTU) 

STR(I)  - EQUIVALENT  (COMBINED)  STRESS, i 

LIFE(I)  « CALCULATED  LIFE  FOR  STRESS  LEVEL  STR(I) 

INVLIF(I)  * 1/LIFE(I);  DAMAGE  FRACTION 
SUM  OF  ALL  THE  DAMAGE  FRACTIONS 

OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

1— D ARRAY  CONTAINING  VALUES  OF  Ln(A)  « M Ln  K FOR  EACH  REGION 

NORMAL <0,PVAR)  GENERATED  RANDOM  VARIATE  

1— D ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 
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MAXREG 
MM(  ) 
NUMREG 
SBND( ) 


SZERO 

ZROREG 


PHI  IS  A WEIBULLf BETAo , ETAo)  GENERATED  RANDOM  VARIATE 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST  . „ 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R « - 1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) CORRECTED  BY  PHI,  KRATIO, 

AND  LNZ 

STRESS  TENSILE  POINT  (PSI)  ^ _ 

zero  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C 


dump  input  data 

if  (lout. eq. 20)  then 

write(8,*)'  rainfl  inputs'  . , . . 

write(8,*)'m  :',m,5  period: period 


write( 8, *)  'kt  :',kt,'  ftu  :',ftu,'  fty  :',fty 
write ( 8 , * j ' numreg  : ' ,numrea, 'zroreg  zroreg 

write(8,*) 'szero  : ' , szero, 'kratio  : ' (kratio, Tlnz,  :',lnz 
write ( 8 , * ) ' lna ( i ) , Jnn(i),  . lphim(i),  . sbnd(i)' 

write ( 8 , * ) (lna(i),  iran(i),  lphim(i),  sbnd(i),  i=zroreg, numreg) 
write ( 8 , * ) ' ' 
endif 


C INITIALIZE  ARRAYS 

DO  50  I - 1.  MAXM 
SP(I)  = 0.0 
S(I)  = 0.0 
E(I ) = 0.0 
SEFFM (1,1)  =0.0 
SEFFM (2,1)  =0.0 
SALTF  ( I ) =0.0 
SMEANF(I)  =0.0 
STR(I)  = 0.0 
LIFE(I)  = 0.0 
INVLIF(I)  = 0.0 
INDEX ( I ) = 0 
TESTl(I)  =0.0 
TEST2 ( I ) =0.0 
50  CONTINUE 

SM  = 0.0 

TOHIGH  = 0 


C********************  BEGIN  RESEQUENCE  ********************** 
C RESEQUENCE  effective  stresses  (needed  for  rainflow  analysis); 
c largest  effective  stress  is  placed  at  beginning  and  end  of  SP(M+1) 

C find  SEFMAX,  the  largest  sigma, eff,  and  JMAX,  its  location  within  SEFF(M) 
SEFMAX  = -1.0E+20 
DO  200  1=1, M 

IF  ( SEFF(I)  .GT.  SEFMAX  ) THEN 
SEFMAX  = SEFF(I) 

JMAX  = I 
ENDIF 
200  CONTINUE 

C assign  all  points  from  JMAX  out,  to  the  beginning  of  SP() 

DO  210  I = 1.  M-JMAX+1 
J = JMAX— 1 + I 
SP(I)  = SEFF(J) 

210  CONTINUE 

c assign  points  before  JMAX  to  the  end  of  SP() 

J = 0 

DO  220  I = M— JMAX+2 , M 
J = J + 1 
SP(I)  = SEFF(J) 

220  CONTINUE 

SP(M+1)  = SEFF(JMAX) 
if  (iout.eq.20)  then 
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vrite(8,  *)  'sefmaxs ' ,sefmaxf ' , jmax: ' , jmax 

write ( 8 , * ) 'sp(nH-l) ; ' , (sp(x) , x«l,nH-l) 
endif 


C*********************  END  RESQUENCE  ************************** 
C**********************  BEGIN  FILTER  *************************** 
c FILTER  the  resequenced  effective  stresses,  leaving  only  peaks  and  valleys 
C (excursions  larger  than  TRUNC  are  deleted  during  raintlow  counting)  in 
C S( NEWTOT) , where  NEWTOT  is  the  new  number  of  points 

C 


DO  300  1=2, 
TESTl(I)  ■ 
TEST2 ( I ) - 
300  CONTINUE 


M 

SP(I-l)  - SP(I) 

TESTl(I)  * (SP(I)  - SP(I+1)) 


C if  (iout  .eq.  20)  then 

C ao  305  i * 2.  n 

C write (8,*)  'testl 

C 305  continue 
C endif 


testl (i) , ' test2 


test2(i) 


K ■ 1 

INDEX ( 1 ) = 1 
DO  310  I = 2,  M 

IF  ( (TESTl ( I ) .NE.  0)  .AND.  (TEST2(I)  .LE.  0))  THEN 

INDEX(K)  = I 
ENDIF 
310  CONTINUE 


NEWTOT  = K + 1 
INDEX ( NEWTOT ) = M + 1 

DO  320  1=1,  NEWTOT 
K = INDEX ( I ) 

S(IJ  = SP(K) 

320  CONTINUE 

if  (iout. eq. 20)  then 

write(8,*) 'newtot: ',newtot 
write(8,*) 's(newtot) : ' , (s(i) ,i=l, newtot) 
endif 


C*************************  END  FILTER  *************************** 

C*********************  BEGIN  RAINFLOW  *********************** 

C RAINFLOW  ANALYSIS  to  identify  cycles  within  effective  stress  data, 
c s (NEWTOT);  places  each  cycle’s  max  and  min  values  into  SEFFM(2,N) 

C 

C counters:  I counts  f of  cycles  found,  J counts  how  many  S()'s  counted, 

C K accumulates  unmatched  points 

1 = 0 
J = 0 
K = 0 

400  CONTINUE 
J = J+l 
K * K+l 

C check  J to  avoid  reading  beyond  end  of  filtered  stress  data 
IF  { J .GT.  NEWTOT  ) GOTO  499 


C read  stress  point  into  a holding  array  to  be  checked  for  cycles 


4.0  SM  K SW. 


ABS ( E(K-l)  - E (K— 2 ) ) ) GOTO  400 

• ’ • — ' * check  for  truncation 


K .LT.  3 ) GOTO  400 

IF  ABS ( E(K)  - E(K-l)  ) .LT.  — --  . 

if  not,  then  a cycle  has  been  found,  but  we  need  to 
IF  (ABS  (E(K-l)  - E(K-2) ) .GT.  TRUNC)  THEN 
cycle  is  large  enough  to  save 
I = 1+1 

SEFFM( 1,1)  = AMAXl ( E(K-l),  E(K-2)  ) 

SEFFM(2, I)  = AMINl ( E(K-l),  E(K-2)  ) 

ENDIF 

discard  points  K-l  and  K-2,  and  decrement  the  counter  of  unmatched  points 
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E(K— 2)  - E(K) 

K * K— 2 

: return  for  more  counting 

GOTO  410 

499  CONTINUE  , 

: N equals  the  final  number  of  cycles  found 

N * I 

if  (iout.eq.20)  then 
write (8, *) 'N  :',n 
write (8,*) ' seffm(2/n) : ' 

° write(6,*)  seffm(l,i),  seffm(2,i) 

12  continue 

endif 

IF  (N  .EQ.  0)  THEN  , , 

: truncation  filter  value  too  large  — no  cycles  left 

SUMDAM  *=  1.0E-36 
GOTO  710 
ENDIF 


***  END 


RAINFLOW  ************************** 


c calculate  alternating  and  mean  effective  stresses 
C 

DO  500  1=1, N „ . „ . 

SALTF fl)  = ( SEFFM(l.I)  - SEFFM(2,I)  ) / 2.0 
SMEANF(t)  = ( SEFFM (1,1)  + SEFFM(2,I)  > / 2.0 
500  CONTINUE 

if  (iout.eq.20)  then 

write (8,*) 'saltf (n)  :', (saltf fi) ,i?l,n) 
write (8,*) 'smeanf (n) s', (smeanf (i) ,i=l,n) 
endif 


C*******  Determine  Equivalent  Mean  Stress,  SM(N),  (two  methods)  ********* 

c 

BIGl  = N 

SM  = PGETSM(  SALTF (BIGl ) , SMEANF ( BIGl ) , FTY , KT  ) 
if  (iout.eq.20)  write(8,*) 'sm  : ' , sm 


c*** ******************************************** ***************** 


C calculate  equivalent  stresses,  STR(N) 
C 


530 


ARGM  = KT  / (1.0  - SM  / FTU) 

DO  530  1=1, N 

STR(I)  = SALTF(I)  * ARGM 
IF  (STR(I)  .GE.  ITU)  TOHIGH  = 
CONTINUE 

if  (iout.eq.20)  write(8,*) 'str(n) 


TOHIGH  + 1 
s ' , (str(i) ,i=l,n) 


C calculate  lives  5md  damage  fractions:  LIFE ( N ) and  INVLIF(N) 

C 

°°  LIFE^I),=  GTLIFE  (STR(I),  MM,  LNA,  LPHIM,  KRATIO,  LNZ , SBND, 
4 ZROREG,  NUMREG,  SZERO) 


600  CONTINUE 

DO  650  1=1, N 

INVLIF(I)  = 1.0  / LIFE ( I ) 

650  CONTINUE 

if  (iout.eq.20)  then 

ao  14  i=l,n  . 

write ( o , * ) 'life(n) :',life(i),' 
14  continue 


invlif (n) s ' , invlif ( i ) 


7-119 


no  on 


endif 


Miner's  Rule  — sum  the  damage  fractions 

SUMDAM  - 0.0 
DO  700  1*1, N 

SUMDAM  * SUMDAM  + INVLIF  ( I ) 

700  CONTINUE 
710  CONTINUE 

if  (iout.eq*20)  write(8,*) 'sumdam: ' ,sumdam 
calculate  fatigue  life  (time  to  failure)  in  seconds 
RAINF1  - PERIOD  / SUMDAM 


if  (iout.eq*15)  then 
chkft-perioa/sumdam 
write(8,*)'  rainfl  life' 
write(8,*) 
endif 


,chkft 


RETURN 

END 


FUNCTION  PGETSM  (SALT,  SMEAN,  FTY,  KT) 

C SM  IS  THE  EQUIVALENT  MEAN  STRESS 
C IMPLICIT  NONE 

REAL  FTY,  KT,  PGETSM,  SALT,  SMEAN,  ST,  SX 

ST  * KT* ( SALT+SMEAN ) 

IF  (ST.GT.FTY)  THEN 
SX  * KT*SALT 
IF  (SX.GT.FTY)  THEN 
PGETSM* 0 . 0 
ELSE 

PGETSM* FTY -S X 
ENDIF 

ELSE 


PGETSM*  SMEAN 
ENDIF 


RETURN 

END 
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7.1.2  HEXHCF  Program 

7.1 .2.1  Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  HEXHCF  using  Uniform  variation  on  the  materials 
shape  parameter  m is  given  in  Figure  7-3,  while  the  tree  structure  for  the  truncated 
Normal  case  is  given  in  Figure  7-4.  In  both  trees,  those  subprograms  not  “shadow- 
boxed"  are  part  of  the  materials  characterization  model.  The  program,  subprogram, 
and  file  names  are  indicated  by  UPPERCASE  letters. 

7.1 .2.2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-3.  The  section  numbers 
where  the  subprograms  are  described  by  means  of  flowcharts  are  given  next  to  the 


names. 

Table  7-3  List  of  Subprograms  for  Program  HEXHCF 
(Footnotes  are  at  the  end  of  the  table) 

NAME 

SECTION 

PURPOSE 

ADDREG1 

4.1. 3.9 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  Uniform  distribution  case. 

ADDRGN1 

4.1.3.15 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  truncated  Normal  distribution  case. 

BETAGN2 

4.4.5 

Generates  Beta(a,  b,  p,  6)  random  variates. 

CONCAV3 

4.1.3.10 

Adjusts  the  upper  bound  of  the  posterior  ranges  on  m to  be  consis- 
tent with  concavity  constraints. 

CONVRT4 

4.1. 3.3 

Transforms  stress  data  to  equivalent  zero-mean  stresses  with  stress 
ratio  of  -1.0. 

EXPCTD5 

4.1.3.12 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
information  aggregation  calculations. 

FINDK 

4. 1.5.6 

Calculates  the  value  of  the  location  parameter  K (where  A = Km ) 
for  each  life  region  by  using  Equations  2-37  and  2-41. 

FINDM6 

4. 1.5.1 

Obtains  the  value  of  m for  each  life  region  by  adjusting  the  range 
(to  ensure  concavity)  and  then  sampling  from  the  Uniform  distribu- 
tion over  the  appropriate  m range. 

FINDMC 

4. 1.3.5 

Calculates  the  m range  for  each  life  region  implied  by  the  constraint 
on  the  coefficient  of  variation  of  fatigue  strength  C by  using  Equa- 
tions 2-28  through  2-32. 

FINDMN6 

4. 1.5.2 

Obtains  the  value  of  m for  each  life  region  by  sampling  from  the  ap- 
propriate truncated  Normal  distribution  on  m. 

FINDSB 

4.1. 5.7 

Calculates  the  life  region  “tie-points”  or  stress  values  which  cor- 
respond to  the  “life  boundaries"  conditional  on  the  randomly 
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Figure  7-3  T ree  Structure  for  Program  HEXHCF  for  the  Uniform 
Variation  in  Materials  Shape  Parameter  m 
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Figure  7-4  Tree  Structure  for  Program  HEXHCF  for  the 

Truncated  Normal  Variation  in  Materials  Shape 
Parameter  m 
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Table  7-3  List  of  Subprograms  for  Program  HEXHCF  (Cont’d) 


NAME 

SECTION 

PURPOSE 

selected  m for  each  region.  Also  calculates  K,  characterizing  the 
specific  material  S/N  data  set,  which  is  a function  of  /S0  and  k. 

FNDRNG7 

4. 1.3.8 

Combines  the  95%  confidence  interval,  Ja,  with  the  implicit  and 
explicit  constraints  on  m to  obtain  posterior  credibility  ranges  on  m 
for  each  life  region. 

GAM 

4.4.4 

Generates  Gamma(a,  1)  random  variates. 

GTUFE 

4.1.8 

Calculates  the  cycles  to  failure  for  a particular  stress  based  upon 
the  materials  characterization  model  S/N  curve  of  Equation  2-48. 

GTPVAR 

4. 1.3.7 

Calculates  o2,  Equation  2-49,  the  extent  of  departures  from  the  mul- 
tiple heat  median  S/N  curve  warranted  by  the  information  available. 

HEXHCF 

5.1.3.1 

The  main  routine  that  controls  the  logical  flow  of  the  high  cycle 
fatigue  plain  welded  duct  program  with  thermal  loads. 

INFAGG8 

4.1.3 

Controls  the  logical  flow  for  the  information  aggregation  portion  of 
the  materials  characterization  model. 

INIT 

4.1.3.1 

Initializes  the  entries  of  the  arrays  used  in  the  information  aggrega- 
tion subroutine,  INFAGG,  to  zero. 

INSORT 

5.B 

Performs  an  insertion  sort  for  the  lowest  fifty  percent  of  the  lives 
calculated. 

INTRVL 

4.1. 3.6 

Calculates  the  95%  confidence  intervals  l0  for  C,  and  J0  for  m,  for 
each  region  by  using  Equations  2-24  and  2-26. 

KBETA 

4. 1.5.5 

Calculates  k and  P0  from  the  sample  mean  and  variance  of  Z,  where 
Z is  a function  of  stress,  life,  the  life  region  boundaries,  and  the  m's 
by  using  Equation  2-42. 

KOMO9 

4.1.6 

Calculates  K0  and  m0  for  the  zero  region,  the  no  data  region  to  the 
left  of  the  first  data  region.  Extends  the  S/N  curve  consistent  with 
the  tensile  point  at  SQ.  Disabled  for  this  application. 

M4L1 

5. 1.3.3 

Performs  the  driver  transformation.  Equations  2-68  through  2-73,  for 
location  1 , the  exterior  surface  of  the  duct 

M4L2 

5. 1.3.3 

Performs  the  driver  transformation.  Equations  2-68  through  2-73,  for 
location  2,  the  interior  surface  of  the  duct. 

MEDIAN 

4.1.3.11 

Calculates  the  median  values  of  m based  on  the  posterior  credibility 
ranges  of  m by  using  Equation  2-34. 

MUSIG10 

4.1.3.13 

Calculates  the  posterior  Normal  distribution  parameters:  mean  m, 
and  standard  deviation  o,,  for  each  life  region  of  the  S/N  curve. 

NARBN2 

5.1. 3.4 

Calculates  the  composite  stress-time  history  by  using  Equations 
2-82  and  2-84  and  then  calls  RAINF2  to  calculate  the  fatigue  life. 
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Table  7-3  List  of  Subprograms  for  Program  HEXHCF  (Cont’d) 


NAME 

NEUBER 

SECTION 
5. 1.3.6 

PURPOSE 

Calculates  the  equivalent  mean  stress  from  the  maximum  stress 
based  on  Neuber’s  rule  by  using  Equations  2-88  and  2-89. 

NORMGN11 

4.4.3 

Generates  Normal (u,  a 2)  random  variates. 

NORRNG7 

4.1.3.14 

Combines  the  implicit  and  explicit  constraints  on  m to  obtain  the 
posterior  credibility  ranges  of  m for  each  life  region. 

PAREST12 

4.1.5 

Controls  the  logical  flow  for  the  parameter  estimation  model 
portion  of  the  materials  characterization  model. 

PRYRV13 

7.6.6 

Generates  the  Uniform(a,  b)  and  Unfform(c,  d)  pair  of  independent 
random  variates. 

RAINF214 

5.1. 3.5 

Performs  rainflow  cycle  counting,  Miner’s  rule  damage  accumula- 
tion, and  calls  GTUFE  to  calculate  the  fatigue  life. 

RANDOM13 

4.4.2 

Uses  a Linear  Congruentia!  random  number  Generator  (LCG)  to 
generate  Uniform(0, 1)  random  variates. 

RCE 

4.1. 3.2 

Reads  the  data  from  HEXHCD  and  RELATD;  calls  CONVRT  to  trans- 
form the  stress  data  to  a stress  ratio  of  —1.0;  and  echoes  the  data 
to  HEXHCO  and  RELATO.  RCE  also  breaks  S/N  data  sets  into 
regions  as  specified  by  the  user. 

SMNVAR 

4. 1.5.4 

Calculates  the  sample  mean  and  variance  of  Z,  where  Z is  a func- 
tion of  stress,  life,  the  life  region  boundaries,  and  the  m’s  by  using 
Equation  2-42. 

SORTM15 

4.1.10 

Sorts  the  m values  in  increasing  order  for  each  life  region  for  the 
truncated  Normal  distribution  case. 

SW2SU2 

4. 1.3.4 

Calculates  the  residual  variances  from  the  Y on  X and  X on  Y regres- 
sions for  each  life  region  where  Y = In  (Endurance  cycles ) and 
X = In(Sfress)  by  using  Equations  2-20  and  2-21 ; to  be  used  in  the 
credibility  range  calculations. 

THWELD 

5.1. 3.2 

Controls  the  logical  flow  for  the  driver  transformation  and  fatigue  life 
calculations. 

TRMNAT 

4.1.11 

Performs  premature  program  termination,  when  required. 

TRNSFM16 

4.1. 5.3 

Performs  the  calculations  necessary  to  transform  the  specific 
material  S/N  data  into  the  variable  Z,  where  Z is  a function  of  stress, 
life,  the  life  region  boundaries,  and  the  m’s. 

WEIBGN 

4.4.6 

Generates  Weibull(/S,  ij(p))  random  variates. 

1 No  data  regions  to  the  right  are  discussed  on  Page  2-17. 

2 The  Beta  distribution  is  discussed  on  Page  2-25. 

2 Concavity  constraints  are  discussed  on  Pages  2-13  through  2-14. 
4 The  stress  transformation  is  discussed  on  Page  2-7. 
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5 The  median  S/N  curve  parameter  estimation  calculations  are  described  on  Pages  2-15  through  2-18. 

6 Selection  of  the  {ntj}  parameters  is  discussed  on  Page  2-15. 

7 Combining  information  to  obtain  the  posterior  credibility  ranges  on  tn  is  discussed  on  Page  2-13. 

8 The  information  aggregation  calculations  are  discussed  on  Pages  2-6  through  2-14. 

9 Extension  of  the  S/N  curve  to  the  left  is  discussed  oa  Page  2-17. 

10  Calculation  of  the  truncated  Normal  distribution  parameters  is  discussed  on  Page  2-14. 

1 1 The  Normal  distribution  is  discussed  on  Page  2-23. 

12  The  parameter  estimation  calculations  are  discussed  on  Pages  2-15  through  2-18. 

13  The  Uniform  distribution  is  discussed  on  Page  2-23. 

14  Rainflow  cycle  counting  is  discussed  on  Page  2-51  and  va  Appendix  2A. 

15  The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

16  The  S/N  data  transformation  is  discussed  on  Page  2-16. 
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7.1 .2.3  Description  of  Variables 

A list  of  variables  used  in  the  plain  welded  duct  HCF  code,  HEXHCF,  is  given  in 
Table  7-4.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the 
variable  “type"  can  be  interpreted  as  follows:  CH6  is  a character  variable,  six 
characters  long;  INT  is  a standard  integer  variable;  LOG  is  a standard  logical  variable; 
RE  is  a standard  real  variable;  and  DRE  is  a double  precision  variable.  The  various 
array  dimensions  are  defined  by  using  the  following  parameters:  MAXBLF , MAXDAT, 
MAXLD,  MAXLIF,  MAXM,  MAXMM,  MAX  REG,  and  MAXSEG. 


Table  7-4  List  of  Variables  for  Program  HEXHCF 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

AERD 

RE 

XDaero  in  Equation  2-81,  the  randomly  selected 
load  scale  factor  for  the  AERodynamic  Dynamic 
load  components. 

AERDA 

RE 

Dynamic  aerodynamic  load  scale  factor  Uniform 
distribution  lower  bound. 

AERDB 

RE 

Dynamic  aerodynamic  load  scale  factor  Uniform 
distribution  upper  bound. 

AERS 

RE 

Xstaero  in  Equation  2-81,  the  randomly  selected 
load  scale  factor  for  the  AERodynamic  Static  load 
components. 

AERSA 

RE 

Static  aerodynamic  load  scale  factor  Uniform 
distribution  lower  bound. 

AERSB 

RE 

Static  aerodynamic  load  scale  factor  Uniform 
distribution  upper  bound. 

ALLM(MAXMM,  MAXREG) 

RE 

2-D  array  containing  the  materials  model  shape 
parameters  (m's)  for  each  life  region  to  be  used  in 
the  truncated  Normal  median  S/N  curve  calculation. 

ALPHA 

RE 

a ( / °R)  in  Equation  2-70,  the  coefficient  of  thermal 
expansion,  (see  COEXP  in  HEXHCF) 

ANGLE 

RE 

<p  (rad)  in  Equation  2-68,  the  angle  measured 
counterclockwise  from  Z-direction  to  the  critical 
circumferential  location. 

AREA 

RE 

A (in.2)  in  Equation  2-68,  the  cross-sectional  area 
of  the  duct  wall. 

ASTR 

RE 

lAEROstr in  Equation  2-81,  the  randomly  selected 

aerodynamic  stress  analysis  accuracy  factor. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE  DESCRIPTION 

ASTRA 

RE 

Aerodynamic  stress  analysis  accuracy  factor 
Uniform  distribution  lower  bound. 

ASTRB 

RE 

Aerodynamic  stress  analysis  accuracy  factor 
Uniform  distribution  upper  bound. 

BIGK(0:MAXREG) 

RE 

1 -D  array  containing  values  of  the  materials  model 
location  parameter  K,  Equation  2-12,  where 
A - Km. 

BIGK1 

RE 

Dummy  variable  used  during  calls  to  subroutine 
EXPCTD,  equal  to  BIGK(1). 

BLFPER  (M  AXBLF) 

RE 

1 -D  array  containing  user-specified  B-lives  which 
are  obtained  from  the  simulated  failure  distribution. 
A B-life  is  the  value  of  accumulated  operating  time 
to  failure  at  a failure  probability  specified  as  a per- 
cent: e.g.,  B.l  is  the  failure  time  at  a probability  of 
0.001  or  0.1%. 

BLFPOS(MAXBLF) 

INT 

1 -D  array  containing  the  indices  for  the  array  vari- 
able UFE( ) corresponding  to  the  user-requested 
simulated  failure  distribution  B-lives  contained  in 
variable  BLFPER( ) . 

BZERO 

RE 

Estimate  of  Weibull  distribution  shape  parameter 
P0,  Equation  2-11,  which  characterizes  the  intrinsic 
variation  of  the  S/N  data  set. 

COEXP 

RE 

a (/  °R)  in  Equation  2-70,  the  Coefficient  of  thermal 
EXPansion.  (see  ALPHA  in  THWELD) 

Dl 

RE 

Dj  (in.),  the  randomly  selected  duct  inner  diameter 
at  the  weld  used  to  calculate  Rj  in  Equation  2-68. 

DIA 

RE 

Dj  lower  bound  of  Beta  distribution. 

DIB 

RE 

Dj  upper  bound  of  Beta  distribution. 

DIR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  p for  Dj. 

DIR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  of  Dj. 

DIR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  of  Dj. 

DIT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  D(. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 
VARIABLE  NAME  TYPE  DESCRIPTION 


Dm 

RE 

DIT2 

RE 

DLTAT 

RE 

DPCMU 

RE 

DPCSIG 

RE 

DSTR 

RE 

DSTRA 

RE 

DSTRB 

RE 

DTI  MU 

RE 

DTISIG 

RE 

DTOMU 

RE 

DTOSIG 

RE 

DUM 

RE 

E(MAXSEG) 

RE 

EM 

RE 

FATLIF 

RE 

FIFTY 

RE 

FILNUM(MAXLD) 

INT 

FK(10) 

RE 

FTEST 

LOG 

FTU 

RE 

FTY 

RE 

6 Uniform  distribution  lower  bound  of  Beta 
distribution  of  D/. 

9 Uniform  distribution  upper  bound  of  Beta 
distribution  of  Dj. 

DeLTA  T.  AT  (°R)  in  Equation  2-70,  the  temperature 
difference  across  the  wall  of  the  duct. 

Value  of  (PCMUB  - PCMUA). 

Value  of  (PCSIGB  - PCSIGA). 

XDYNstr  in  Equation  2-81,  the  randomly  selected 
dynamic  stress  analysis  accuracy  factor. 

Dynamic  stress  analysis  accuracy  factor  Uniform 
distribution  lower  bound. 

Dynamic  stress  analysis  accuracy  factor  Uniform 
distribution  upper  bound. 

Value  of  (TIMUB  - TIMUA). 

Value  of  (TISIGB  - TISIGA). 

Value  of  (TOMUB  - TOMUA). 

Value  of  (TOSIGB  - TOSIGA). 

Dummy  variable 

1 -D  array  containing  the  strain  c values  for  the 
stress/strain  versus  strain  curve.2 

E (psi)  in  Equation  2-70,  Young’s  modulus  of 
elasticity  for  the  material. 

Value  of  FATigue  UFe  calculated  (sec). 

Variable  used  to  access  the  fifty-percent  point  in 
the  UFE( ) array. 

1 -D  array  containing  the  file  unit  numbers  for  the 
reference  time  history  files. 

1 -D  array  containing  values  of  F^,  Equation  2-73, 
used  to  find  stress  concentration  due  to  weld 
eccentricity,  koff- 

File  TEST.  Used  to  test  for  the  existence  of  a refer- 
ence time  history  file  before  attempting  to  open  it 

Material  ultimate  strength  (psi). 

Material  yield  strength  (psi). 
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Table  7-4 


List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME  TYPE  DESCRIPTION 


GAM 

RE 

Aftem in  Equation  2-91,  the  randomly  selected 
damage  accumulation  model  accuracy  factor. 

See  Section  2.2. 1.4  for  a discussion  of  the  damage 
calculations. 

GAMA 

RE 

Damage  accumulation  model  accuracy  factor 
Uniform  distribution  lower  bound. 

GAMB 

RE 

Damage  accumulation  model  accuracy  factor 
Uniform  distribution  upper  bound. 

1 

INT 

Controls  inner  DO  loop. 

II 

INT 

Controls  DO  loop  for  narrow-band  random,  super- 
imposed sinusoidal,  and  dynamic  aerodynamic 
loads. 

IOUT 

INT 

Output  dump  controller. 

J 

INT 

Controls  DO  loop  for  each  B-life.3 

K 

INT 

Controls  outer  DO  loop. 

K(2,  2) 

RE 

2-D  array  containing  the  fatigue  stress  concentra- 
tion factors  required  for  the  stress  analysis.  K(1,*) 
is  Kri  in  Equation  2-68  and  K(2,*)  is  Kn  in  Equa- 
tion 2-69.  K(1,1)  is  the  outer  diameter  axial  stress 
concentration  factor,  the  value  of  KGOD  * KWOD; 
K(1,2)  is  the  inner  diameter  axial  stress  concentra- 
tion factor,  the  value  of  KGID  * KWID;  K(2,1)  is  the 
outer  diameter  hoop  stress  concentration  factor; 
and  K(2,2)  is  the  inner  diameter  hoop  stress  con- 
centration factor,  (see  KT(2,2)  in  HEXHCF) 

KGID 

RE 

Axial  stress  concentration  factor  due  to  geometry 
for  the  duct  inner  diameter  used  to  calculate  Kri  in 
Equation  2-68. 

KGOD 

RE 

Axial  stress  concentration  factor  due  to  geometry 
for  the  duct  outer  diameter  used  to  calculate  Kri  in 
Equation  2-68. 

KOFF 

RE 

in  Equation  2-73,  the  stress  concentration  fac- 
tor due  to  eccentricity  of  the  weld. 

KRATIO 

RE 

Ratio  of  MEDKVMEDK  in  Equation  2-48.  KRATIO 
is  constant  over  life  regions  for  the  materials  model. 

KT(2,  2) 

RE 

2-D  array  containing  the  fatigue  stress  concentra- 
tion factors  required  for  the  stress  analysis. 
KT(1,*)  is  KT1  in  Equation  2-68  and  KT(2,*)  is 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 

VARIABLE  NAME  TYPE  DESCRIPTION 

in  Equation  2-69.  KT(1,1)  is  the  outer  diameter 
axial  stress  concentration  factor,  the  value  of 
KGOD  * KWOD;  KT(1,2)  is  the  inner  diameter  axial 
stress  concentration  factor,  the  value  of  KGID  * 
KWID;  KT(2,1)  is  the  outer  diameter  hoop  stress 
concentration  factor,  and  KT(2,2)  is  the  inner 
diameter  hoop  stress  concentration  factor,  (see 
K(2,2)  inTHWELD) 


KWID 

RE 

Randomly  selected  axial  stress  concentration 
factor  due  to  the  weld  for  the  duct  inner  diameter 
used  to  calculate  Kri  in  Equation  2-68. 

KWIDA 

RE 

Inner  diameter  weld  axial  stress  concentration 
factor  lower  bound  of  Beta  distribution. 

KWIDB 

RE 

Inner  diameter  weld  axial  stress  concentration 
factor  upper  bound  of  Beta  distribution. 

KWIDR 

RE 

Randomly  selected  Beta  distribution  location  p for 
the  inner  diameter  wekJ  axial  stress  concentration 
factor. 

KWIDR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDT1 

RE 

6 Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWIDT2 

RE 

6 Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  inner  diameter  weld  axial  stress 
concentration  factor. 

KWOD 

RE 

Randomly  selected  axial  stress  concentration 
factor  due  to  the  weld  for  the  duct  outer  diameter 
used  to  calculate  Kri  in  Equation  2-68. 

KWODA 

RE 

Outer  diameter  weld  axial  stress  concentration 
factor  lower  bound  of  Beta  distribution. 

KWODB 

RE 

Outer  diameter  weld  axial  stress  concentration 
factor  upper  bound  of  Beta  distribution. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

KWODR 

RE 

Randomly  selected  Beta  distribution  location 
parameter p for  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KW0DR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  outer  diameter  weid  axial  stress 
concentration  factor. 

KWODT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  8 of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODT1 

RE 

6 Uniform  distribution  lower  bound  of  Beta 
distribution  of  the  outer  diameter  weld  axial  stress 
concentration  factor. 

KWODT2 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  of  the  outer  diameter  weid  axial  stress 
concentration  factor. 

L 

INT 

Controls  DO  loop  for  each  life  region  of  the  S/N 
curve. 

LAMN 

RE 

X Drandom  in  Equation  2-81,  the  randomly  selected 
load  scale  factor  for  the  narrow-band  random 
loads.  See  Section  2. 1.3.2  for  a description  of  the 
parameters  k,  coefficient  of  variation  C,  and  strain 
gage  factor  d. 

LAMNA 

RE 

Lower  bound  of  the  Uniform  distribution  of  k for  the 
narrow-band  random  load  scale  factor. 

LAMNB 

RE 

Upper  bound  of  the  Uniform  distribution  of  k for  the 
narrow-band  random  load  scale  factor. 

LAMNC 

RE 

Coefficient  of  variation  C for  the  narrow-band 
random  load  scale  factor. 

LAM  NO 

RE 

Strain  gage  correction  factor  d for  the  narrow-band 
random  load  scale  factor. 

LAMNK 

RE 

Randomly  selected  k for  the  narrow-band  random 
load  scale  factor. 

LAMNMU 

RE 

The  resulting  mean  p of  the  Normal  distribution  for 
the  narrow-band  random  load  scale  factor,  where 
p = cf/(  1 + kC). 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

LAMNSG 

RE 

The  resulting  standard  deviation  a of  the  Normal 
distribution  for  the  narrow-band  random  load  scale 
factor,  where  a - C/(1  + kC). 

LAMS 

RE 

Xd sinusoidal  in  Equation  2-81,  the  randomly 
selected  load  scale  factor  for  the  superimposed 
sinusoidal  loads.  See  Section  2. 1.3.2  for  a descrip- 
tion of  the  parameters  k\  coefficient  of  variation  C; 
and  strain  gage  factor  d. 

LAMSA 

RE 

Lower  bound  of  the  Uniform  distribution  of  k for  the 
superimposed  sinusoidal  load  scale  factor. 

LAMSB 

RE 

Upper  bound  of  the  Uniform  distribution  of  k for  the 
superimposed  sinusoidal  load  scale  factor. 

LAMSC 

RE 

Coefficient  of  variation  C for  the  superimposed 
sinusoidal  load  scale  factor. 

LAMSD 

RE 

Strain  gage  correction  factor  d for  the  superim- 
posed sinusoidal  load  scale  factor. 

LAMSK 

RE 

Randomly  selected  k for  the  superimposed 
sinusoidal  load  scale  factor. 

LAMSMU 

RE 

The  resulting  mean  ft  of  the  Normal  distribution  for 
the  superimposed  sinusoidal  load  scale  factor, 
where  y.  = d/{  1 + kC). 

LAMSSG 

RE 

The  resulting  standard  deviation  o of  the  Normal 
distribution  for  the  superimposed  sinusoidal  load 
scale  factor,  where  a = C/(1  + kC). 

LAMW 

RE 

LAMbda  Weld  offset,  the  randomly  selected  X^ 
in  Equation  2-73,  the  accuracy  factor  for  the  weld 
offset  eccentricity  stress  concentration  factor,  Kgpp 

LAMWA 

RE 

X^  Uniform  distribution  lower  bound. 

LAMWB 

RE 

X^  Uniform  distribution  upper  bound. 

LDNAME(MAXLO) 

CH6 

1 -D  array  containing  LoaD  NAMES  for  the  dynamic 
or  time-varying  loads.  These  are  the  names  of  the 
reference  time  history  files. 

UFE(MAXUF) 

RE 

1 -D  array  containing  values  of  the  lives  generated 
by  program  HEXHCF.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  failure  distribution. 

LNA(0:MAXREG) 

RE 

1 -D  array  containing  values  of  ln(A)  = In(BIGK)  * 
MM  for  each  life  region  of  the  S/N  curve. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME  TYPE 

LNZ  RE 

LOCAT  I NT 

LPHIM(0:MAXREG)  RE 

M(2,  MAXLD)  RE 

MAXBLF  I NT 

MAXDAT  I NT 

MAXLD  I NT 

MAXUF  I NT 

MAXM  I NT 

MAXMM  I NT 

MAXREG  INT 

MAXSEG  INT 

MCOUNT  INT 


DESCRIPTION 

ln(Z)  in  Equation  2-48,  the  Normal  (0,  PVAR) 
random  variate  for  the  materials  process  variation 
aspect  of  the  materials  model. 

Critical  location  of  interest  on  the  duct  wall  where 
1 is  the  exterior  surface  of  the  duct,  and  2 is  the 
interior  surface  of  the  duct. 

1 -D  array  containing  values  of  ln(PHI)  * MM  for 
each  life  region  of  the  S/N  curve. 

2-D  array  containing  the  dynamic  or  time-varying 
moment  load  components.  M(1,*)  is  My  (in. -lb)  in 
Equation  2-68,  the  moment  load  components  about 
the  y axis;  and  M(2,*)  is  Mz  (in. -lbs)  in  Equation  2-68, 
the  moment  load  components  about  the  z axis. 

Maximum  number  of  B -lives  to  be  obtained  from 
the  simulated  falure  distribution.  The  maximum 
number  of  B -lives  allowed  is  10.3 

Maximum  number  of  points  per  data  set  per  region 
allowed  for  S/N  curve.  The  maximum  number  of 
data  points  per  set  allowed  is  50. 

Maximum  number  of  dynamic  or  time-varying  loads 
allowed.  The  maximum  number  of  loads  is  16. 

Maximum  number  of  fatigue  lives  allowed  for  the 
simulated  falure  distribution.  The  maximum  num- 
ber of  fatigue  lives  to  be  saved  is  1 0,000. 

Maximum  number  of  points  allowed  in  the  time 
history  arrays.  The  maximum  number  of  points  is 
24,000. 

Maximum  number  of  m’s  to  be  saved  and  sorted 
for  the  truncated  Normal  median  S/N  curve.1  The 
maximum  number  of  m’s  is  20,000. 

Maximum  number  of  life  regions  allowed  for  the 
S/N  curve.  The  maximum  number  of  regions  is  3. 

Maximum  number  of  segments  allowed  in  the 
stress/strain  versus  strain  curve.  The  maximum 
number  of  segments  is  10.2 

Counts  number  of  m’s  to  be  used  to  calculate 
median  S/N  curve  for  the  truncated  Normal 
distribution  case.1 
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Table  7-4 

VARIABLE  NAME 
MEDM(MAXMM) 

Ml 

MID 

MLAM(2,  MAXLD) 

MM(0:MAXREG) 

MPROC 

MS  LAM  (2) 

MSTAT(2) 

MU(MAXREG) 

NBUFE 


List  of  Variables  for  Program  HEXHCF  (Cont'd) 

TYPE  DESCRIPTION 

RE  1 -D  array  containing  the  empirical  median  m for 
each  life  region  of  the  S/N  curve.4 

RE  / (in.4)  in  Equation  2-68,  the  cross-sectional 
Moment  of  Inertia. 

INT  Pointer  to  the  median  m values  in  array  SORTM( ) 
for  the  truncated  Normal  median  S/N  curve.  Value 
of  half  of  MCOUNT. 

RE  2-D  array  containing  the  dynamic  or  time-varying 
moment  load  components  scaled  by  DSTR  or 
ASTR  and  LAMS,  LAMN,  or  AERD,  as 
appropriate,  according  to  variable  TYPE( ). 
MLAM(V)  is  My  (in. -lbs)  in  Equation  2-68,  the 
moment  load  components  about  the  y axis;  and 
MLAM(2,*)  is  Mz  (in.-ibs)  in  Equation  2-68,  the 
moment  load  components  about  the  z axis. 

RE  my  in  Equation  2- 12,  the  1 -D  array  containing  ran- 
domly selected  values  of  the  materials  model  shape 
parameter  m for  each  life  region  of  the  S/N  curve. 

INT  Materials  PROCess  variation.  Controls  materials 

process  variation.  A value  of  0 indicates  no  materials 
process  variation,  whie  a value  of  1 indicates  that 
materials  process  variation  should  be  included. 

RE  1 -D  array  containing  the  static  moment  load  com- 
ponents scaled  by  ASTR  and  AERS.  MSLAM(I)  is 
My  (in. -lbs)  in  Equation  2-68,  the  moment  load 
component  about  the  y axis;  and  MSLAM(2)  is  Mz 
(in.-lbs)  in  Equation  2-68,  the  moment  load  com- 
ponent about  the  z axis. 

RE  1 -D  array  containing  the  static  moment  load  com- 
ponents. MSTAT(I)  is  My  (in. -lbs)  in  Equation  2-68, 
the  moment  load  component  about  the  y axis;  and 
MSTAT(2)  is  Mz  (in.-lbs)  in  Equation  2-68,  the 
moment  load  component  about  the  z axis. 

RE  1-D  array  containing  the  posterior  Normal  distribu- 
tion mean®  of  the  materials  shape  parameter  m for 
each  life  region  of  the  truncated  Normal  S/N  curve. 

INT  Number  of  B-lives  to  be  obtained  from  the  simu- 
lated failure  distribution.3 
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Table  7-4  Ust  of  Variables  for  Program  HEXHCF  (Corn’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

NBND(0:MAXREG) 

RE 

Nj*l+ 1 in  Equation  2-35,  the  1-D  array  containing 
upper  bounds  for  the  NUMREG  life  regions  of 
interest  for  the  specific  material  S/N  data  set 

NEUB 

RE 

Xneu  in  Equation  2-89,  the  randomly  selected 
Neuber’s  rule  model  accuracy  factor. 

NEUBA 

RE 

Neuber’s  rule  model  accuracy  factor  Uniform 
distribution  lower  bound. 

NEUBB 

RE 

Neuber’s  rule  model  accuracy  factor  Uniform 
distribution  upper  bound. 

NEWUF 

RE 

Fatigue  life  value  (sec)  returned  from  call  to 
function  THWELD. 

NF(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  values  from  the  array 
RAWNF( ) for  the  specific  material  S/N  data  set 
partitioned  into  life  regions. 

NHYPER 

INT 

The  outer  loop  size. 

NUFE 

INT 

The  inner  loop  size. 

NUFET 

INT 

Total  number  of  lives  calculated  by  program 
HEXHCF.  Value  of  NHYPER  * NUFE. 

NLOAD 

INT 

NLOAD  in  Equation  2-81,  the  number  of  dynamic 
or  time-varying  loads. 

NMED 

INT 

Controls  S/N  curve  median  calculation  for  the 
truncated  Normal  distribution  case.  A value  of  0 
indicates  that  the  user  does  not  desire  a median 
calculation  or  that  the  Uniform  distribution  case  is 
being  used;  whle  a value  of  1 indicates  that  the 
user  wishes  the  median  calculation  to  be  performed. 

NORM 

RE 

The  variable  NORM  functions  in  two  capacities.  In 
the  outer  loop  of  HEXHCF,  NORM  is  a Uniformly 
distributed  random  variate  used  to  select  the 
Normal  distribution  parameters  n and  a for  the  flow 
condition  drivers  Th  T0,  and  Pj.  In  the  inner  loop, 
NORM  is  a Normally  distributed  random  variate 
used  to  select  the  actual  values  of  the  flow 
conditions  to  be  used  in  the  driver  transformation. 

NPTS  (MAXREG) 

INT 

1 -D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

NRAN 

INT 

Number  of  RANdom  points.  Number  of  points  in 
the  reference  time  history. 

NU 

RE 

v in  Equation  2-70,  the  materials  Poisson’s  ratio. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

NUMREG 

INT 

R in  Equation  2-11,  the  number  of  life  regions  of 
interest  in  the  S/N  curve. 

NUMSEG 

INT 

Number  of  segments  of  interest  in  stress/strain 
versus  strain  curve.2 

P(MAXLO) 

RE 

1-D  array  containing  P (lbs)  In  Equation  2-68,  the 
dynamic  or  time-varying  axial  load  components. 

PC 

RE 

Pj  (psi)  in  Equation  2-68,  the  randomly  selected 
internal  pressure. 

PCMU 

RE 

Randomly  selected  Normal  distribution  parameter 
p for  the  internal  pressure  Pj. 

PCMUA 

RE 

r Uniform  distribution  lower  bound  of  Normal 
distribution  of  the  internal  pressure  py. 

PCMUB 

RE 

r Uniform  distribution  upper  bound  of  Normal 
distribution  of  the  internal  pressure  py. 

PCO 

RE 

p0  (psi)  in  Equation  2-68,  the  external  pressure. 

PCSIG 

RE 

Randomly  selected  Normal  distribution  parameter 
o for  the  internal  pressure  py. 

PCSIGA 

RE 

<7  Uniform  distribution  tower  bound  of  Normal 
distribution  of  the  internal  pressure  py. 

PCSIGB 

RE 

a Uniform  distribution  upper  bound  of  Normal 
distribution  of  the  internal  pressure  pr-. 

PERIOD 

RE 

T (sec)  in  Equation  2-91,  the  length  of  time  In 
seconds  of  the  reference  time  history. 

PHI 

RE 

<p  in  Equation  2-11,  the  materials  intrinsic  variation, 
or  scatter,  given  by  a Weibull(£0,  ijq(j 30))  random 
variate. 

PI 

RE 

n,  constant  equal  to  3.1415926536. 

PLAM(MAXLD) 

RE 

1 -D  array  containing  P (lbs)  in  Equation  2-68,  the 
dynamic  or  time-varying  axial  load  components 
scaled  by  DSTR  or  ASTR  and  LAMN,  LAMS,  or 
AERD,  as  appropriate,  according  to  variable 
TYPE( ). 

PSIG 

RE 

o in  Equation  2-48,  the  value  of  SORT (PVAR). 

PSLAM 

RE 

P (lbs)  in  Equation  2-68,  the  static  axial  load  com- 
ponent scaled  by  ASTR  and  AERS. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont'd) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

PSTAT 

RE 

P (lbs)  in  Equation  2-68,  the  static  axial  load 
component. 

PVAR 

RE 

a 2 in  Equation  2-48,  characterizes  the  extent  of 
departure  from  the  multiple  heat  median  S/N  curve 
warranted  by  the  available  information. 

RAINF2 

RE 

Real  function  which  performs  rainflow  cycle  count- 
ing, Miner’s  Rule  damage  accumulation,  and  calls 
GTLJFE  to  calculate  the  fatigue  life. 

RAND 

DRE 

Random  number  seed. 

RANGEM(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  posterior 
credibility  ranges  on  the  materials  model  shape 
parameter  m for  each  life  region  in  the  S/N  curve. 
RANGEM(1,L)  is  the  lower  bound  and 
RANGEM(2,L)  is  the  upper  bound.7 

Rl 

RE 

Rj  (in.)  in  Equation  2-68,  the  duct  inner  radius. 

RO 

RE 

R0  (in.)  in  Equation  2-68,  the  duct  outer  radius. 

ROT 

RE 

R Over  7,  the  value  of  the  ratio  R/t. 

RT(10) 

RE 

1 -D  array  containing  values  of  R/t  used  in 
conjunction  with  Fk,  Equation  2-73,  to  find  stress 
concentration  due  to  weld  eccentricity, 

S(4,  MAXM) 

RE 

2-D  array  containing  the  total  component  stress- 
time histories  o^t)  (psi),  Equation  2-82,  resulting 
from  the  combination  of  static,  narrow-band  ran- 
dom, sinusoidal,  and  aerodynamic  loads.  S(1,*)  is 
the  axial  stress-time  history  a^(t)\  S(2,«)  is  the 
hoop  stress-time  history  <72(0;  S(3,*)  is  the  radial 
stress-time  history  03(f);  and  S(4,«)  is  the  shear 
stress-time  history  o4(f). 

SBND(0:MAXREG) 

RE 

1 -D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1.0,  corresponding  to  the  “life 
boundary”  values  for  each  life  region  of  the  S/N 
curve  contained  in  array  NBND( ). 

SE(MAXSEG) 

RE 

1 -D  array  containing  values  of  the  product  of  stress 

and  strain  at  for  each  segment  of  the  stress/strain 
versus  strain  curve.2 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

SEFF(MAXM) 

RE 

1 -D  array  containing  the  EFFective  or  uni-axial 
stress-time  history  a(t)  (psl),  Equation  2-84,  result- 
ing from  the  combination  of  static,  narrow-band 
random,  sinusoidal,  and  aerodynamic  loads  for  all 
four  stress  components. 

SIG(MAXREG) 

RE 

1-D  array  containing  the  posterior  Normal 
distribution  standard  deviation8  of  the  materials 
mode)  shape  parameter  m,  for  each  life  region  of 
the  truncated  Normal  S/N  curve. 

SKT1 

RE 

Kri  in  Equation  2-68,  the  stress  concentration 
factor  for  the  axial  stress. 

SKT2 

RE 

Kj2  in  Equation  2-69,  the  stress  concentration 
factor  for  the  hoop  stress. 

STATIC  (4) 

RE 

1 -D  array  containing  values  of  the  static  stresses 
oSTk  (psi),  Equation  2-82.  STATIC(I)  is  the  axial 
stress  oS71 ; STATIC  (2)  is  the  hoop  stress  aS72; 
STATIC (3)  is  the  radial  stress  oS73;  and  STATIC(4) 
is  the  shear  stress  oST4. 

STR(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  stress  points  with  stress  ratio 
= -i.o,  for  the  specific  material  S/N  data  set 
partitioned  into  life  regions. 

STRAMP(4,  MAXLD) 

RE 

2-D  array  containing  values  of  the  amplitudes  of 
the  dynamic  or  time-varying  stresses  (psi), 

Equation  2-82.  STRAMP(1,I)  is  o^j,  the 
amplitude  of  the  / th  axial  stress;  STRAMP(2,I)  is 
cfa,  the  amplitude  of  the  / th  hoop  stress; 
STRAMP(3,I)  is  the  amplitude  of  the  / th 

radial  stress;  and  STRAMP(4,I)  is  o^,  the 
amplitude  of  the  / th  shear  stress. 

STRHIS(MAXLD,  MAXM) 

RE 

2-D  array  containing  otit).  Equation  2-82,  the 
reference  time  histories  for  the  dynamic  or  time- 
varying  load  components. 

SZERO 

RE 

Stress  tensile  test  point,  SQ  (psi).9 

T(MAXLO) 

RE 

1-D  array  containing  Mx  (in. -lbs)  in  Equation  2-72, 
the  dynamic  or  time-varying  torsional  load 
components. 

TEST 

RE 

Uniform(0, 1)  random  variate  used  to  determine 

Beta  distribution  for  W^p. 
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Table  7-4  List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

THIC 

RE 

t (in.)  the  randomly  selected  wall  thickness  at  the 
weld  used  to  calculate  the  area  A and  outer  radius 
R0  in  Equation  2-68. 

THICA 

RE 

t lower  bound  of  Beta  distribution. 

THICB 

RE 

t upper  bound  of  Beta  distribution. 

THICR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  p for  the  wall  thickness  t. 

THICR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  of  t. 

THICR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  of  t. 

THICT 

RE 

Randomly  selected  Beta  distribution  location 
parameter  8 for  the  wall  thickness  t. 

THICT1 

RE 

8 Uniform  distribution  lower  bound  of  Beta 
distribution  of  t. 

THICT2 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  of  t. 

THWELO 

RE 

Real  function  that  controls  the  logical  flow  for  the 
driver  transformation  and  fatigue  life  calculations  of 
a duct  at  a weld  subjected  to  thermal  loads,  and 
then  returns  the  fatigue  life  (sec). 

TIN 

RE 

Tf  (°R)  the  randomly  selected  inner  wall  surface 
temperature,  used  to  calculate  A T (°R),  in  Equation 
2-70,  the  temperature  difference  across  the  wall  of 
the  duct. 

TIMU 

RE 

Randomly  selected  Normal  distribution  parameter 
p for  the  inner  wall  surface  temperature  Tj. 

TIMUA 

RE 

p Uniform  distribution  lower  bound  of  Normal 
distribution  of  the  inner  wall  surface  temperature  Tj. 

TIMUB 

RE 

p Uniform  distribution  upper  bound  of  Normal 
distribution  of  the  inner  wall  surface  temperature  7). 

TISIG 

RE 

Randomly  selected  Normal  distribution  parameter 
a for  the  inner  wall  surface  temperature  Tj. 

TISIGA 

RE 

o Uniform  distribution  lower  bound  of  Normal 
distribution  erf  the  inner  wall  surface  temperature  Tj. 

TISIGB 

RE 

o Uniform  distribution  upper  bound  of  Normal 
distribution  of  the  inner  wall  surface  temperature  Tt. 
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List  of  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

TLAM(MAXLD) 

RE 

1 -D  array  containing  Mx  (ln.-lbs)  in  Equation  2-72, 
the  dynamic  or  time-varying  torsional  load  com- 
ponents scaled  by  DSTR  or  ASTR  and  LAMN, 
LAMS  or  AERD,  as  appropriate,  according  to 
variable  TYPE( ). 

TOUT 

RE 

T0  (°R)  the  randomly  selected  outer  wall  surface 
temperature,  used  to  calculate  A T (°R),  in  Equation 
2-70,  the  temperature  difference  across  the  wall  of 
the  duct. 

TOMU 

RE 

Randomly  selected  Normal  distribution  parameter 
H for  the  outer  wall  surface  temperature  T0. 

TOMUA 

RE 

H Uniform  distribution  lower  bound  of  Normal  dis- 
tribution of  the  outer  wall  surface  temperature  T0. 

TOMUB 

RE 

H Uniform  distribution  upper  bound  of  Normal  dis- 
tribution of  the  outer  wall  surface  temperature  T0. 

TOSIG 

RE 

Randomly  selected  Normal  distribution  parameter 
o for  the  outer  wall  surface  temperature  T0. 

TOSIGA 

RE 

o Uniform  distribution  lower  bound  of  Normal  dis- 
tribution of  the  outer  wall  surface  temperature  T0. 

TOSIGB 

RE 

o Uniform  distribution  upper  bound  of  Normal  dis- 
tribution of  the  outer  wall  surface  temperature  T0. 

TRSBND(0:MAXREG) 

RE 

1-D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1.0,  conesponding  to  the  “life 
boundary”  values  for  each  region  of  the  S/N  curve 
contained  in  array  NBND( ) for  each  PHI  draw 
consistent  with  the  tensile  point  SQ. 

TRUNC 

RE 

Value  used  to  filter  out  noise  in  the  composite 
stress-time  history  during  rainflow  cycle  counting. 
See  Section  2.2. 1.4  for  a discussion  of  rainflow 
cycle  counting. 

TSLAM 

RE 

Mx  (in.-ibs)  in  Equation  2-72,  the  static  torsional 
load  component  scaled  by  ASTR  and  AERS. 

TSTAT 

RE 

Mx  (in.-ibs)  in  Equation  2-72,  the  static  torsional 

load  component. 
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List  erf  Variables  for  Program  HEXHCF  (Cont’d) 


VARIABLE  NAME 


TYPE  DESCRIPTION 


TYPE(MAXLD) 


V(2,  MAXLD) 


VARY 


VLAM(2,  MAXLD) 


VSLAM(2) 


I NT  1-D  array  containing  the  type  of  dynamic  or  tima^ary- 
ing  load,  used  to  assign  the  appropriate  load  scale 
factors.  TYPE(*)  = 1,  use  the  narrow-band  random 
load  scale  factor;  TYPE(*)  = 2,  use  the  superim- 
posed sinusoidal  load  scale  factor;  and  TYPE(*)  = 

3,  use  the  dynamic  aerodynamic  load  factor. 

RE  2-D  array  containing  the  dynamic  or  time-varying 
shear  load  components.  V(1,*)  is  Vy  (lbs)  in 
Equation  2-72,  the  shear  load  components  along 
the  y axis;  and  V(2,*)  Is  Vz  (lbs)  in  Equation  2-72, 
the  shear  load  components  along  the  z axis. 

I NT  Controls  type  of  S/N  curve  variation  desired.  A 
value  of  0 indicates  that  no  variation  is  required;  a 
value  of  1 means  that  intrinsic  materials  variation 
only;  a value  of  2 indicates  that  the  user  desires  a 
Uniform  distribution  on  m;  while  a value  of  3 indi- 
cates that  a truncated  Normal  distribution  is  desired. 

RE  2-D  array  containing  the  dynamic  or  time-varying 
shear  load  components  scaled  by  DSTR  or  ASTR 
and  LAMN,  LAMS,  or  AERD,  as  appropriate,  ac- 
cording to  variable  TYPE( ).  VLAM(1,*)  is  Vy  (lbs) 
in  Equation  2-72,  the  shear  load  components  along 
the  y axis;  and  VLAM(2,*)  is  Vz  (lbs)  in  Equation 
2-72,  the  shear  load  components  along  the  z axis. 

RE  1 -D  array  containing  the  static  shear  load  com- 

ponents scaled  by  ASTR  and  AERS.  VSLAM(I)  is 
Vy  (lbs)  in  Equation  2-72,  the  shear  load  com- 
ponent along  the  y axis;  and  VSLAM(2)  is  V2  (lbs) 
in  Equation  2-72,  the  shear  load  component  along 
the  z axis. 


VSTAT(2)  RE 

WOFF  RE 

WOFFA  RE 

WOFFB  RE 

WOFFC  RE 


1 -D  array  containing  the  static  shear  load  com- 
ponents. VSTAT(I)  is  Vy  (lbs)  in  Equation  2-72,  the 
shear  load  component  along  the  y axis;  and 
VSTAT(2)  is  Vz  (lbs)  in  Equation  2-72,  the  shear 
load  component  along  the  z axis. 

Wqff  in  Equation  2-73,  the  randomly  selected 
WekJ  OFFset  (%). 

Wqff  lower  bound  of  Beta  distribution  1 . 

Wqff  upper  bound  of  Beta  distribution  1. 

Wqff  lower  bound  of  Beta  distribution  2. 
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VARIABLE  NAME 

TYPE 

DESCRIPTION 

WOFFD 

RE 

Wqpp  upper  bound  of  Beta  distribution  2. 

WOFFE 

RE 

Decimal  equivalent  percentage  weight  occurring  in 
Beta  distribution  1 of  the  weld  offset  W^. 

WOFFHI 

RE 

Upper  bound  of  the  randomly  selected  Beta 
distribution  for  the  weld  offset  l 

WOFFLO 

RE 

Lower  bound  of  the  randomly  selected  Beta 
distribution  for  the  weld  offset  WqpF. 

WOFFR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  p for  the  weld  offset  WqpF. 

WOFFR1 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  1 of  Wqff- 

WOFFR2 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  1 of 

WOFFR3 

RE 

p Uniform  distribution  lower  bound  of  Beta 
distribution  2 of  Wqpp- 

WOFFR4 

RE 

p Uniform  distribution  upper  bound  of  Beta 
distribution  2 of  Wopp- 

WOFFT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  8 for  the  weld  offset  WqpF- 

WOFFT1 

RE 

8 Uniform  distribution  lower  bound  of  Beta 
distribution  1 of  WqpF. 

WOFFT2 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  1 of  WqpF. 

WOFFT3 

RE 

8 Uniform  distribution  lower  bound  of  Beta 
distribution  2 of  WqpF. 

WOFFT4 

RE 

8 Uniform  distribution  upper  bound  of  Beta 
distribution  2 of  WqpF. 

Z 

RE 

Z in  Equation  2-48,  the  randomly  selected  process 
variation  shift  factor  given  by  a Lognormal  (O.PVAR) 
random  variate. 

ZROREG 

INT 

ZeRO  REGion,  the  variable  permits  the  inclusion  of 
the  tensile  point  SQ.  The  value  of  0 implies  a DO 
loop  from  zero  to  NUMREG,  while  a value  of  1 
causes  the  DO  loop  to  be  executed  from  one  to 
NUMREG.9 
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1 The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

2 Neuber’s  rule  and  the  stress/strain  curve  are  discussed  on  Pages  2-53  through  2-54. 

3 See  variable  BLFPER( ) for  a description  of  B-life. 

4 The  median  S/N  curve  for  the  truncated  Normal  case  is  discussed  on  Page  2-15. 

5 See  Section  2. 1.Z3  for  a discussion  on  process  variation  in  materials. 

6 of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

7 The  posterior  credibility  ranges  Ji(m)  are  discussed  on  Page  2-13. 

8 o9  of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

9 Extension  of  the  S/N  curve  to  the  left  using  the  tensile  point  is  discussed  on  Page  2-17. 
Disabled  for  this  application. 
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7.1 .2.4  Program  HEXHCF  Listing 


Routine Pa9e 

Program  HEXHCF  Listing  Temporal  Order,  Uniform  Distribution 7-147 

Program  HEXHCF  Listing  Temporal  Order,  Truncated  Normal  Distribution 7-1 49 

HEXHCF 7-151 

INSORT 7-165 

PRYRV 7-166 

BETAGN 7-167 

GAM 7-167 

INFAGG  7-168 

TRMNAT 7-173 

INIT  7-173 

RCE 7-175 

CONVRT 7-181 

SW2SU2  7-182 

INTRVL 7-185 

FINDMC 7-188 

GTPVAR 7-190 

FNDRNG 7-191 

ADDREG 7-195 

CONCAV 7-196 

MEDIAN 7-197 

EXPCTD 7-199 

MUSIG  7-201 

NORRNG 7-202 

ADDRGN 7-205 

PAREST  7-206 

FINDM 7-208 

RANDOM 7-210 

FINDMN 7-211 

NORMGN  7-212 

TRNSFM  7-213 

SMNVAR 7-214 

KBETA 7-215 

FINDK 7-216 

FINDSB 7-217 

WEIBGN  7-219 

KOMO 7-219 

GTUFE 7-220 

SORTM  7-222 

THWELD 7-223 

M4L1  7-225 

M4L2  7-228 

NARBN2  7-232 

RAINF2  7-234 
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Routine 


Page 


NEUBER 7-239 

HEXHCF  Version  4.2 
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Program  HEXHCF  Usting  Temporal  Order,  Uniform  Distribution 


Routine 


Page 


HEXHCF 7-151 

INFAGG  7-168 

INIT  7-173 

RCE 7-175 

CONVRT 7-181 

SW2SU2  7-182 

FINDMC 7-188 

INTRVL 7-185 

GTPVAR 7-190 

FNDRNG 7-191 

ADDREG 7-195 

CONCAV 7-196 

MEDIAN 7-197 

EXPCTD 7-199 

TRNSFM  7-213 

SMNVAR 7-214 

KBETA 7-215 

FINDK  7-216 

FINDSB 7-217 

KOMO 7-219 

RANDOM 7-210 

PRYRV  7-166 

RANDOM 7-210 

PAREST  7-206 

FINDM 7-208 

RANDOM 7-210 

TRNSFM  7-213 

SMNVAR 7-214 

KBETA 7-215 

FINDK 7-216 

FINDSB 7-217 

NORMGN  7-212 

RANDOM 7-210 

BETAGN 7-167 

GAM 7-167 

RANDOM 7-210 

NORMGN  7-212 

RANDOM 7-210 

PRYRV  7-166 

RANDOM 7-210 

WEIBGN  7-219 

RANDOM 7-210 

THWELD 7-223 

M4L1  7-225 


7-147 


Routine 


Page 


M4L2 7-228 

NARBN2 7-232 

RAINF2 7-234 

NEUBER 7-239 

GTUFE 7-220 

INSORT 7-165 
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Program  HEXHCF  Usting  Temporal  Order,  Truncated  Normal  Distribution 


Routine **a9e 

HEXHCF ?-151 

INFAGG  ?-168 

INIT  7-173 

RCE ?-175 

CONVRT 7-181 

SW2SU2  7-182 

FINDMC 7-188 

MUSIG  7-201 

GTPVAR ?-190 

NORRNG ?-202 

ADDRGN 7-205 

CONCAV 7-196 

RANDOM 7-210 

PRYRV  7-166 

RANDOM 7-210 

PAREST  7-206 

FINDMN 7-211 

NORMGN  7*212 

RANDOM 7-210 

TRNSFM  7-213 

SMNVAR 7-214 

KBETA 7-215 

FINDK 7-216 

FINDSB 7-217 

NORMGN  7-212 

RANDOM 7-210 

BETAGN 7-167 

GAM 7-167 

RANDOM 7-210 

NORMGN  7-212 

RANDOM 7-210 

PRYRV 7-166 

RANDOM 7-210 

WEIBGN  7-219 

RANDOM 7-210 

THWELD 7-223 

M4L1  7-225 

M4L2 7-228 

NARBN2  7-232 

RAINF2  7-234 

NEUBER  7-239 

GTUFE 7-220 

INSORT 7-165 

SORTM  7-222 

EXPCTD 7-199 
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Routine 


Page 


TRNSFM 7-213 

SMNVAR  7-214 

KBETA 7-215 

RNDK 7-216 

FINDSB  7-217 

KOMO  7-219 
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nnnnnono  ooooooooooo 


*********************************** 

PROGRAM  HEXHCF  CONTROLS  THE  FLOW  OF  LOGIC  OF  THE  HIGH  CYCLE 
FATIGUE  PLAIN  WELDED  DUCT  PROBLEM  UNDER  THERMAL  LOADS 
PROGRAMMER:  L.  NEWLIN 

DATE * 6 SEP 9 1 

VERSION:  4.2  — (MATCHR  V8.5,  THDUCT  V4.1,  INSORT  V2. 1) 

Copyright  (C)  1990,  California  institute  of  Technology. 
u.S.  Government  Sponsorship  under  NASA  Contract  NAS 7— 9 1 8 


PROGRAM  HEXHCF 

SUBPROGRAMS:  INFAGG,  PAREST,  NORMGN,  PRYRV,  BETAGN,  WEIBGN,  THWELD, 

TRMNAT,  INSORT,  SORTM,  EXPCTD 

FILES:  1 : HEXHCD-OLD ; 3 : HEXHCO-NEW : 5 :RELATD— OLD;  6 : RELATO-NEW ; 
7 : DUMP-NEW;  8 : IOUTPR-NEW;  9 :LOWLIF-NEW; 

11-26 :user  named-OLD 

NOTE:  5 & 6 ARE  OPENED  IN  'INFAGG' 

C IMPLICIT  NONE 

INTEGER  MAXBLF,  MAXDAT,  MAXLD,  MAXLIF,  MAXM,  MAXMM,  MAXREG, 

& MAXSEG 


REAL  PI 

PARAMETER  (MAXBLF  = 10.  MAXDAT  = 50.  MAXLD  = 16,  MAXLIF  = 10000, 
& MAXM  = 24000,  MAXMM  = 20001,  MAXREG  = 3,  MAXSEG  = 10, 
& PI  “ 3. 141592654) 


COMMON 


I OUT 


INTEGER  BLFPOS ( MAXBLF ) , FILNUM (MAXLD),  I,  II,  I OUT,  J,  K,  L, 

& LOCAT,  MCOUNT,  MID,  MPROC,  NBLIFE,  N HYPER,  NLIFE, 

& NLIFET,  NLOAD,  NMED,  NPTS (MAXREG) , NRAN,  NUMREG,  NUMSEG, 

& TYPE (MAXLD),  VARY,  ZROREG 

DOUBLE  PRECISION  RAND 

REAL  AERD,  AERDA,  AERDB,  AERS,  AERSA,  AERSB, 

ALLM( MAXMM,  MAXREG),  ANGLE,  ASTR,  ASTRA,  ASTRB, 

BIGK( 0: MAXREG) , BIGK1 , BLFPER ( MAXBLF ) , BZERO,  COEXP, 

DI,  DIA,  DIB,  DIR,  DIRl,  DIR2,  DIT,  DITl,  DIT2,  DLTAT , 
DPCMU,  DPCSIG,  DSTR,  DSTRA,  DSTRB,  DTIMU,  DTISIG,  DTOMU, 
DTOSIG,  DUM,  E ( MAXSEG ) , EM,  FIFTY,  FK(10),  FTU,  FTY , 

GAM,  GAMA,  GAMB,  KGID,  KGOD,  KRATIO,  KT(2,  2),  KWID, 
KWIDA,  KWIDB,  KWIDR,  KWIDR1,  KWIDR2 , KWIDT,  KWIDTl, 
KWIDT2 , KWOD,  KWODA,  KWODB,  KWODR,  KWODRl,  KWODR2, 

KWODT,  KWODT1 , KWODT2,  LAMN,  LAMNA,  LAMNB,  LAMNC,  LAMND, 

LAMNK,  LAMN MU,  LAMNSG,  LAMS,  LAMS A,  LAMSB,  LAMSC,  LAMSD, 

LAMSK,  LAMS MU,  LAMSSG,  LAMW,  LAMWA,  LAMWB,  LIFE (MAXLIF) , 

LNA( 0 :MAXREG) , LNZ,  LPHIM ( 0 : MAXREG ) 

REAL  M(2,  MAXLD),  MEDM ( MAXREG ) , MLAM(2 , MAXLD),  MM(0:MAXREG) , 

MSLAM ( 2 ) , MSTAT ( 2 ) , MU ( MAXREG ),  NBND(0: MAXREG),  NEUB, 
NEUBA,  NEUBB,  NEWLIF,  NF( MAXDAT,  MAXREG),  NORM,  NU, 
P(MAXLD) , PC,  PCMU,  PCMUA,  PCMUB,  PCO,  PCSIG,  PCSIGA, 
PCSIGB,  PERIOD,  PHI,  FLAM (MAXLD) , PSIG.  PSLAM,  PSTAT, 
PVAR,  RANGEM ( 2 , MAXREG),  RT(10),  SBND ( 0 sMAXREG) , 

SE ( MAXSEG ) , SIG (MAXREG) , STR( MAXDAT,  MAXREG), 

STRHIS( MAXLD,  MAXM).  SZERO,  T(MAXLD) , TEST,  THIC,  THICA, 
THICB,  THICR,  THICRl,  THICR2,  THICT,  THICTl,  THICT2, 
THWELD,  TIN,  TIMU,  TIMUA,  TIMUB,  TISIG,  TISIGA,  TISIGB, 
TLAM( MAXLD) , TOUT,  TOMU,  TOMUA,  TOMUB,  TOSIG,  TOSIGA, 
TOSIGB,  TRSBND ( 0 : MAXREG) . TRUNC,  TSLAM,  TSTAT, 

V(2 , MAXLD) , VLAM(2,  MAXLD),  VSLAM(2),  VSTAT(S),  WOFF, 
WOFFA,  WOFFB,  WOFFC,  WOFFD,  WOFFE,  WOFFHI,  WOFFLO, 

WOFFR.  WOFFRl.  WOFFR2 , WOFFR3,  WOFTR4,  WOFFT,  WOFFT1, 
WOFFT2,  WOFFT3,  WOFFT4 , Z 

CHARACTER*  6 LDNAME ( MAXLD ) 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 
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LOGICAL  FTEST 


DATA 

& 

& 


21,  22,  23, 


I « 1,  MAXLD)  / 

14,  15,  16,  17,  18, 
24;  25  26  / 


19,  20, 


c **  SEE  BOTTOM  OF  PROGRAM  FOR  LIST  OF  VARIABLES 


OPEN  (1,  FILE  - 
OPEN  <3,  FILE  - 
OPEN  (7,  FILE  « 
OPEN  (8,  FILE  - 
OPEN  (9,  FILE  ■ 


' HEXHCD ' , STATUS  - 'OLD') 
' HEXHCO ' , STATUS  ■ 'NEW') 
'DUMP',  STATUS  - 'NEW') 
' IOUTPR’ , STATUS  - 'NEW') 
'LOWLIF',  STATUS  > 'NEW') 


C INITIALIZE  LOAD  ARRAYS 

PSTAT  * 0.0 
PSLAM  >0.0 
TSTAT  >0.0 
TSLAM  ■ 0.0 
MSTAT(l)  ■ 0.0 
MSTAT < 2 ) - 0.0 
MSLAM(l)  * 0.0 
MSLAM(2 ) = 0.0 
VSTAT(l)  > 0.0 
VSTAT ( 2 ) = 0.0 
VSLAM(l)  >0.0 
VSLAM ( 2 ) >0.0 


DO  5 I > 1 

I ilkil) 


6.o 


/ 

. 


MAXLD 

0.0 

0.0 
- 0.0 
* 0.0 
- 0.0 
I)  - 0.0 
I)  - 0.0 
0.0 
0.0 
* 0.0 
- 0.0 


READ(1.*)  RAND 
WRITEJ8,*) ' 


READ(1 

WRITE 


1.*)  I OUT 

(Mr: 


IOUT  (MATCHR 
READ( 1 . *)  NLIFE 
WRITE(8,*) ' 

READ(1.*)  N HYPER 
WRITE ( 8 , * ) ' 

READ( 1,  * ) VARY 
WRITE ( 8, * ) ' 

READ( I#*)  NMED 
WRITE ( 8 , * ) ' 

READ( 1 *)  MPROC 
WRITE (8,*) ' 

WRITE(8,*) ' 


RANDOM  NUMBER  SEED 
10,  HEXHCF  * 15,  THWELD  « 25) 
INNER  LOOP  SIZE 
OUTER  LOOP  SIZE 
TYPE  OF  S/N  VARIATION  DESIRED 
NORMAL  MEDIAN  CURVE  (0  - NO,  1 - YES) 


MATERIALS  PROCESS  VARIATION  DESIRED' 
(0  - NO,  1 - YES) 


RAND 
' , IOUT 
NLIFE 
' ,NHYPER 
',  VARY 
',  NMED 

' , MPROC 


IF  ((VARY  .LT.  0)  .OR.  (VARY  .GT.  3))  THEN 

WRITE (8,*)  'ERROR:  INVALID  TYPE  OF  S/N  VARIATION  DESIRED' 

CALL  TRMNAT 

END  IF  

IF  ((NMED  .NE.  0)  .AND.  (NMED  .NE.  1))  THEN 

WHITE ( 8 , * ) 'ERROR:  INVALID  RESPONSE  TO  NORMAL  MEDIAN  ', 

& ' CURVE  QUESTION ' 

CALL  TRMNAT 
END  IF 


IF  ((MPROC  .LT.  0)  .OR.  (MPROC  .GT.  1))  THEN 
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WRITE (8,*)  'ERROR;  INVALID  TYPE  OF  MATERIALS  PROCESS  ' , 
& 'VARIATION  DESIRED' 

CALL  TRMNAT 
ENDIF 


READ ( 1 . * ) NBLIFE 

IF  (NBLIFE  .GT.  0)  READ( 1, *)  (BLFPER(J),  J 


1,  NBLIFE) 


C **  READ  DATA  FROM  HEXHCD 


READ(1,*)  WOFFA, 
& WOFFC, 
& WOFFE, 
& KWODA, 
& KWIDA, 
& DIA, 

6 THICA, 
& LAMNA, 
& LAMSA, 
& TIMUA, 
t TOMUA, 
& PC  MU  A, 
& AERDA, 
& DSTRA, 
& LAMWA, 


WOFFB,  WOFFR1,  WOFFR2,  WOFFTl,  WOFFT2 , 
WOFFD,  WOFFR3,  WOFFR4 , WOFFT3,  WOFFT4 , 

KWODB,  KWODRl,  KWODR2 , KWODT1,  KWODT2 , 
KWIDB,  KWIDRl , KWIDR2 , KWIDTl,  KWIDT2, 
DIB,  DIRl,  DIR2,  DIT1,  DIT2, 
THICB,  THICRl , THICR2,  THICTl,  THICT2, 
LAMNB,  LAMNC,  LAMND, 

LAMSB,  LAMSC,  LAMSD, 

TIMUB,  TISIGA,  TISIGB, 

TOMUB , TOSIGA,  TOSIGB, 

PCMUB,  PCSIGA,  PCSIGB , 

AERDB,  AERSA,  AERSB, 

DSTRB,  ASTRA,  ASTRB, 

LAMWB,  NEUBA,  NEUBB,  GAMA,  GAMB 


READ(1,*)  NLOAD,  PSTAT 
& VSTAT ( 2 ) 

DO  15  I = 1,  NLOAD 

READ( 1, * ) LDNAME(I) 

& v(i,i),  y 

IF  ( (TYPE (I ) .LT.  1 
WRITE ( 8, *)  'ERRO 
CALL  TRMNAT 
ENDIF 
15  CONTINUE 


, TSTAT,  MSTAT(l),  MSTAT(2 ) , VSTAT(l) 

, TYPE ( I ) , P(I),  T(I) , M( 1,1) , M(2,I) 
(2,1) 

) .OR.  (TYPE (I)  .GT.  3))  THEN 
R:  LOAD  INCORRECTLY  TYPED' 


t 


t 


READ(1,*)  KGOD,  KGID,  KT(2,1),  KT(2,2),  PCO,  LOCAT,  ANGLE, 
& PERIOD,  TRUNC,  NRAN 


C **  ECHO  DATA  TO  HEXHCO 


WRITE(3,900) 

WRITE(3,901)  WOFFA,  WOFFB, 
& WOFFC,  WOFFD, 

& WOFFE 

WRITE( 3, 902 ) KWODA,  KWODB, 
WRITE(3, 903)  KWIDA,  KWIDB, 
WRITE(3, 904)  DIA,  DIB, 
WRITE (3, 905)  THICA,  THICB, 
WRITE(3,906)  LAMNA,  LAMNB, 
WRITE(3,907)  LAMSA,  LAMSB, 
WRITE (3, 908)  TIMUA,  TIMUB, 
& TOMUA,  TOMUB, 

& PCMUA,  PCMUB, 

WRITE ( 3,909)  AERDA,  AERDB, 
& DSTRA,  DSTRB, 

& LAMWA,  LAMWB, 

WRITE( 3, 920)  PSTAT,  TSTAT, 
DO  20  I = 1,  NLOAD 

WRITE(3,921)  LDNAME(I), 
& V(2, I) 

20  CONTINUE 


WOFFR1,  WOFFR2,  WOFFTl,  WOFFT2, 

WOFFR3,  WOFFR4,  WOFFT3,  WOFFT4, 

KWODRl,  KWODR2,  KWODT1,  KWODT2 
KWIDRl,  KWIDR2,  KWIDTl,  KWIDT2 
DIRl,  DIR2,  DIT1,  DIT2 
THICRl,  THICR2,  THICTl,  THICT2 
LAMNC,  LAMND 
LAMSC,  LAMSD 
TISIGA,  TISIGB, 

TOSIGA,  TOSIGB, 

PCSIGA,  PCSIGB 
AERSA  g AERSB  f 
ASTRA,  ASTRB, 

NEUBA,  NEUBB,  EXP  (GAMA)  , EXP  (GAMB) 
MSTAT(l),  MST AT ( 2 ) , VSTAT(l),  VSTAT(2) 

P(I),  T( I ) , M( 1 , I) , M(2, I) , V(1,I), 


WRITE(3,925)  KGOD,  KGID,  KT(2,1),  KT(2,2),  PCO,  MCAT,  ANGLE, 
i PERIOD,  TRUNC,  NLOAD,  NRAN 

C CONVERT  ANGLE  TO  RADIANS  FOR  CALCULATIONS 
ANGLE  = ANGLE/ 180. 00000  * PI 

WRITE ( 3,926)  ANGLE 
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no 


IF  (NRAN  .GT.  MAXM)  THEN 

WRITE (8,*)  'ERROR:  STRESS-TIME  HISTORY  TOO  LARGE' 

CALL  TRMNAT 
END  IF 

DO  25  I - 1,  NLOAD 

INQUIRE  (FILE  - LDNAME(I) , EXIST  - FTEST) 

IF  (FTEST  .EQV.  .TRUE.)  THEN 

OPEN  ( FILNUM  ( I^^FILE  - LDNAME  ( I ) , STATUS  - 'OLD') 

READ (FILNUM( I ) , * ) STRHIS(I,J) 

26  CONTINUE 

CLOSE  (FILNUM(I) ) 

ELSE 

WRITE ( 8 , * ) 'ERROR:  CANNOT  OPEN  FILE,  ',  LDNAME ( I ) , 

t.  ' DOES  NOT  EXIST' 

CALL  TRMNAT 
ENDIF 
25  CONTINUE 


C INITIALIZE  THE  STRESS-STRAIN  ARRAYS 

DO  30  J = 1.  MAXSEG 
SE(J)  * 0 . 00 
E ( J)  - 0.00 
30  CONTINUE 


READ( 1, *)  EM,  COEXP.  NU 

READ( 1, *)  (FK(I),  RT( I) , I - 1,  10) 

READ( 1,  *)  NUMSEG 

WRITE (3, 927)  EM,  COEXP,  NU 
WRITE (3, 930)  NUMSEG 

C READ  IN  THE  STRESS-STRAIN  VALUES 


DO  35  J * 1 
READ( 1 , * 
WRITE ( 3, 
35  CONTINUE 


, NUMSEG 


, E( J) 
(J),  E( J) 


**  CALL  INFAGG  TO  PERFORM  THE  INFORMATION  AGGREGATION  MODEL  ASPECT 
OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  INFAGG  (RANGEM,  MU,  SIG,  NF,  NPTS,  SZERO,  ZROREG,  NUMREG, 
& NBND,  STR,  FTU,  FTY,  VARY,  MPROC,  KRATIO,  PVAR) 


ZROREG  “ 1 
SZERO  ■ 0.0 

IF  (MPROC  .EQ.  1)  PSIG  - SQRT  (PVAR) 
MCOUNT  * 0 

C **  INITIALIZE  VARIABLES 

DO  40  K - 1,  MAXLIF 
LIFE (K)  - 1.0E+36 
40  CONTINUE 

DO  45  J - 1,  MAXBLF 
BLFPOS(J)  - 0 
45  CONTINUE 

NLIFET  - NHYPER  * NLIFE 

DTIMU  ■ TIMUB  - TIMUA 
DTI SIG  - TISIGB  - TISIGA 
DTOMU  - TOMUB  - TOMUA 
DTOSIG  - TOSIGB  - TOSIGA 
DPCMU  - PCMUB  - PCMUA 
DPCSIG  - PCSIGB  - PCS IGA 
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IF  (IOUT  .EQ.  15)  THEN 
WRITE(8,*)  'DTI MU  * 
WRITE (8,*)  ' DTOMU  * 

WRITE (8,*)  ' DPCMU  - 

ENDIF 


DTIMU,  ' DTISIG 
DTOMU,  ' DTOSIG 
DPCMU,  ' DPCSIG 


DTISIG 

DTOSIG 

DPCSIG 


C **  OUTER  LOOP  — THIS  LOOP  SAMPLES  HYPER  PARAMETER  SETS 


DO  150  K ■ 1,  NHYPER 

C **  CALL  PRYRV  TO  OBTAIN  RHO,  THETA  PAIRS  FOR  INNER  IXX3P  CALCULATIONS 
CALL  RANDOM  (TEST,  RAND) 

IF  (TEST  .LE.  WOFFE)  THEN  ..  

CALL  PRYRV  (RAND,  WOFFRl,  WOFFR2,  WOFFTl,  WOFFT2 , WOFFR, 

& WOFFT) 

WOFFLO  - WOFFA 
WOFFHI  - WOFFB 

else  

CALL  PRYRV  (RAND,  WOFFR3,  WOFFR4,  WOFFT3,  WOFFT4,  WOFFR, 

& WOFFT) 

WOFFLO  « WOFFC 
WOFFHI  ■ WOFFD 
ENDIF 

IF  (IOUT  .EQ.  15)  THEN  

WRITE ( 8 , * ) 'TEST  =',  TEST,  ' WOFFE  «' , WOFFE 
WRITE ( 8 , * ) 'WOFFLO  =' , WOFFLO,  ' WOFFHI  , WOFFHI 
ENDIF 

CALL  PRYRV  (RAND,  KWIDRl,  KWIDR2,  KWIDTl,  KWIDT2,  KWIDR,  KWIDT) 

CALL  PRYRV  (RAND,  KWODRl,  KWODR2,  KWODT1,  KWODT2,  KWODR,  KWODT) 

CALL  PRYRV  (RAND,  DIR1.  DIR2,  DITl.  DIT2.  DIR,  DIT) 

CALL  PRYRV  ( RAND , THICR1 , THICR2,  THICT1,  THICT2 , THICR,  THICT) 

CALL  PRYRV  (RAND,  LAMNA,  LAMNB,  LAMS A,  LAMSB,  LAMNK,  LAMSK) 


& 

& 


LAMNMU  = LAMND 
LAMNSG  = LAMNC 
LAMSMU  - LAMSD 
LAMSSG  » LAMSC 


(1.0  + ' LAMNK  * LAMNC 
(1.0  + LAMNK  * LAMNC 
(1.0  +-  LAMSK  * LAMSC 
(1.0  + LAMSK  * LAMSC 


IF  (IOUT  .EQ.  15)  THEN 
WRITE ( 8, *)  'LAMNK  - 
' LAMNSG  > 
WRITE ( 8 , * ) 'LAMSK  * 

' LAMSSG  » 

ENDIF 


' , LAMNK,  ' 
',  LAMNSG 
',  LAMSK.  ' 
',  LAMSSG 


LAMNMU 

LAMSMU 


LAMNMU, 

LAMSMU, 


CALL  RANDOM  (NORM,  RAND) 

TIMU  = TIMUA  + NORM  * DTIMU 
TISIG  * TISIGA  + NORM  * DTISIG 
TOMU  * TOMUA  + NORM  * DTOMU 
TOSIG  = TOSIGA  + NORM  * DTOSIG 
PCMU  = PCMUA  + NORM  * DPCMU 
PCSIG  * PCSIGA  + NORM  * DPCSIG 


ENDIF 


.EQ. 

|§::j 

15J 

'N< 

r 

I THEN 

)RM  = ' , NORM 
TIMU  = ' , TIMU, 

' TISIG  “ 

TISIG 

(8,*) 

f 

TOMU  “ ' , TOMU, 

' TOSIG  - 

TOSIG 

(8,  *) 

r 

PCMU  = ',  PCMU, 

' PCSIG  * 

PCSIG 

C **  CALL  PAREST  TO  PERFORM  THE  PARAMETER  ESTIMATION  ASPECT  OF  THE 

^ - — ft  /vnTtr> t rr  khit/vm  uAr\T7T  PAT/'TTT  A*TTAIJC 


HJ  ||  I riU\Cai91  IV  f btu  ViV’t  — 

MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  PAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG, 
S,  RAND,  NBND,  STR,  BIGK,  BZERO,  MM,  SBND) 

CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ ) 


IF  (MPROC  .EQ.  1)  THEN 
Z - EXP  (LNZ) 

ELSE 

KRATIO  « 1.0 
Z = 1.0 
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LNZ  - 0.0 
ENDIF 

MCOUNT  » MCOUNT  + 1 
DO  175  L - 1,  NUMREG 

ALLM(  MCOUNT,  L)  - MM(L) 

175  CONTINUE 

C **  INNER  LOOP  — THIS  LOOP  GENERATES  FATIGUE  LIVES 

DO  200  I - 1,  NLIFE 

C **  INITILIZE  S/N  CURVE  PARAMETERS 

DO  225  L ■ 0.  MAXREG 
LNA(L)  « 0.0 
LPHIM(L)  - 0.0 
TRSBND(L)  - 0.0 
225  CONTINUE 

C **  SELECT  DRIVERS  FOR  CALCULATING  LIFE 


CALL  BETAGN  (RAND,  WOFFR,  WOFFT,  WOFFLO,  WOFFHI , WOFF) 

CALL  BETAGN  (RAND,  KHIDR,  KWIDT,  KWIDA,  RHIDB,  KWID) 

CALL  BETAGN  (RAND,  KWODR,  KWODT,  KHODA,  KWODB, 

CALL  BETAGN  (RAND,  DIR,  DIT,  DIA,  DIB, 

CALL  BETAGN  (RAND,  THICR,  THICT,  THICA,  THICB, 

CALL  NORMGN  (RAND,  LAMNMU,  LAMNSG,  LAMN) 

CALL  NORMGN  (RAND,  LAMS MU,  LAMSSG,  LAMS) 

CALL  NORMGN  (RAND,  TIMU,  TISIG,  TIN^ 


KWOO) 

DI) 

THIC) 


CALL  NORMGN  (RAND,  TOMU, 
DLTAT  - TIN  - TOUT 


TOSIG, 


m.T.  NORMGN  (RAND,  PCMU,  x v. , 

CALL  PRYRV  (RAND,  AERDA,  AERDB,  AERSA,  AERSB,  AERD,  AERS) 


PCSIG,  PC) 

EISA,  AERSB,  AERD,  AERS) 

CALL  PRYRV  (RAND,  DSTRA,  DSTRB,  ASTRA,  ASTRB,  DSTR,  ASTR) 

CALL  PRYRV  (RAND,  LAMHA,  LAMWB,  NEUBA,  NEUBB,  LAMH,  NEUB) 

CALL  PRYRV  (RAND,  GAMA,  GAMB,  GAMA,  GAMB,  GAM,  DIM) 

GAM  - EXP (GAM) 

CALL  WEIBGN  (BZERO,  RAND,  PHI) 

IF  (VARY  .EQ.  0)  PHI  -1.0 


IF  ( I OUT 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
ENDIF 


.EQ. 
!'*( 
8,  * j 
*#* 
8#* 
8,* 


15)  THEN 

'LAMN  — ' , LAMN,  ' LAMS  — ' ,LAMS 

'THIC  -',  THIC,'  AERD  — ' , AERD, ' AERS  - ' , AERS 

'DSTR  - ',  DSTR,  ' ASTR  - ',  ASTR 

'LAMW  — ' , LAMW, ' NEUB  -' ,NEUB, ' GAM  -' , GAM 

'PHI  — ' , PHI, ' DI  -',  DI,'  PC  -'.PC 

'TIN  — ' , TIN, ' TOUT  -' ,TOUT, ' DLTAT  -', DLTAT 


C **  SCALE  AERO  STATIC  LOADS 


PSLAM  - AERS  * ASTR  * PSTAT 
TSLAM  - AERS  * ASTR  * TSTAT 


MSLAM< 

i1] 

| « AERS  * ASTR  * MSTAT< 

[ 11 

MSLAM j 

2 

| - AERS  * ASTR  * MSTATl 

2 

VSLAM( 

I1] 

( « AERS  * ASTR  * VSTATl 

; i) 

VSLAM< 

2 

| - AERS  * ASTR  * VS TAT I 

2 

C **  SCALE  TIME-VARYING  LOADS 

DO  230  II  - 1,  NLOAD 

IF  (TYPE(II)  .EQ.  1)  THEN 

PLAM(II)  - LAMN  * DSTR  * P(H) 
TLAM(lI)  - LAMN  * DSTR  * Till) 
MLAM( 1,11)  - LAMN  * DSTR  * M(1,II) 
MLAM( 2,11)  - LAMN  * DSTR  * M(2,Il) 
VLAM(1,II)  - LAMN  * DSTR  * V(l,IlJ 
VLAM( 2,11)  - LAMN  * DSTR  » V(2,II) 
ELSE  IF  (TYPE (II)  .EQ.  2)  THEN 
PLAM(II)  - LAMS  * DSTR  * P(II) 
TLAM(ll)  - LAMS  * DSTR  * T(ll) 
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s 

LAMS 

* 

DSTR 

* 

Ml 

l,n 

m 

LAMS 

* 

DSTR 

* 

M< 

2,n 

m 

LAMS 

★ 

DSTR 

* 

v| 

1,11 

* 

LAMS 

* 

DSTR 

* 

V| 

>2,11 

AERD  * 

ASTR  * 

p(ii) 

AERD  * 

ASTR  * 

T(II 

m 

AERD 

★ 

ASTR 

★ 

H| 

[1,H 

zs 

AERD 

* 

ASTR 

* 

M| 

2,11 

B 

AERD 

* 

ASTR 

* 

V| 

1,11 

S 

AERD 

* 

ASTR 

* 

VI 

2,11 

230 


& 

& 


& 

& 


240 


MLAM(1,II 
MLAMi 2 , II 
VLAM( 1,11 
VLAM(2 , II) 
ELSE 

PLAM(II)  - 
TLAM(II)  - 
MLAM( 1,11) 
MLAM(2 , II “ 
VLAM( 1,11 
VLAM(2 , II 
ENDIF 
CONTINUE 


IF  ( IOUT  .EQ.  15)  THEN 

WRITE ( 8 , * ) 'AERO  STATIC  LOADS' 
WRITE( 8 , * ) 'P  * PS LAM,  ' T ■ 

' M2  « ',  MSLAM( 1) , 4 
' V2  * VSLAMjl),  4 
WRITE (8,*)  'TIME- VARYING  LOADS' 

DO  240  II  « 1,  NLOAD 

WRITE ( 8 , II,  ' P * ' ,PLAM( II )j 
' M2  * ' ,MLAM(1,II),  ' M3 
' V2  = ' , VLAM( 1,11),  ' V3 

CONTINUE 

ENDIF 


mS 

V3 


TSLAM, 

MSLAM(2 


§ ru^nn  i «•  ) j 

, VSLAM(2 ) 


T » ',TLAM(II), 
' ,MLAM(2,II)  , 

' , VLAM(2, II) 


C **  CALCULATE  AXIAL  Kt'S 


KGOD 

KGID 


KWOD 

KWID 


KT (1,1) 

KT( If  2 ) 

IF  (IOUT  .EQ.  15) 

& WRITE (8,*)  ' KT ( 1 , 1 ) = ',  KT( 1,1),  ' KT(1,2)  = 

C **  CALCULATE  REGION  DEPENDENT  S/N  CURVE  PARAMETERS 


KT(1,2) 


250 


DO  250  L « ZROREG,  NUMREG 

LNA(L)  - MM(L)  * ALOG(BIGKIL) ) 

LPHIM(L)  - MM(L)  * ALOG(PHI) 

TRSBND(L)  * SBND(L)  * PHI  * KRATIO  * Z 
IF  (IOUT  .EQ.  15)  THEN 

WRITE ( 8 , * ) 'L  =',  L,  ' MM  =',  MM(L) , ' BIGK  ,BIGK(L) 

WRITE ( 8 , * ) 'LNA  =' , LNA(L),  ' PHI  = ' , PHI 
WRITE ( 8 , * ) 'LPHIM  =' , LPHIM (L ) , ' SBND  *' , SBND(L) 
WRITE ( 8,  * ) 'KRATIO  = KRATIO,  ' Z - ' 

WRITE ( 8 , * ) ' TRSBND  =',  TRSBND(L) 

ENDIF 
CONTINUE 


£ 


C **  r&T.T.  THWELD  OF  THDUCT  V4.1  TO  CALCULATE  FATIGUE  LIFE 


NEWLIF  = GAM  * THWELD  (COEXP,  ANGLE,  DLTAT,  E,  EM,  FTU, 

& FTY,  DI,  KT,  KRATIO,  LAMW,  FK,  RT,  LNA,  LNZ, 

& LOCAT,  LPHIM,  MLAM,  MM,  MS  LAM,  NEUB, NLOAD,  NRAN, 

& NU,  NUMREG,  NUMSEG,  PLAM,  PC,  PCO, PERIOD,  PS LAM, 

& TRSBND,  SE,  STRHIS,  SZERO,  TLAM,  THIC,  TRUNC, 

& TSLAM,  VLAM,  VSLAM,  WOFF,  ZROREG) 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'NEWLIF  - ',  NEWLIF 

IF  (NLIFET  .GE.  100)  CALL  INSORT  (NEWLIF,  LIFE,  NLIFET) 

200  CONTINUE 

150  CONTINUE 

IF  (NLIFET  .GE.  100)  THEN 

C **  PRINT  SORTED  LIVES 

DO  300  J = 1,  (NLIFET  / 100) 

WRITE ( 9 , * ) J,  FLOAT(J) /FLOAT (NLIFET) , LIFE(J) 

300  CONTINUE 
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C **  PRINT  EMPIRICAL  BLIVES 


FIFTY  » 0.50E0 
WRITE ( 3,935) 

DO  350  J » 1,  NBLIFE  

BLFPOS(J)  - NINT  ( BLFPER ( J)  * FLOAT  (NLIFET) ) 

WRITE (3, 936)  BLFPER( J) , LIFE ( BLFPOS ( J ) ) 

350  CONTINUE 

WRITE(3,936)  FIFTY,  LIFE(NLIFET/2) 

END  IF 

C **  CALCULATE  NORMAL  MEDIAN  CURVE  IF  DESIRED 

IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  THEN 

CALL  SORTM  (ALLM,  NUMREG,  MCOUNT) 

MID  - MCOUNT  / 2 
DO  400  L - 1,  NUMREG 

MEDM(L)  - ALLM (MID,  L) 

400  CONTINUE 

CALL  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGK1,  BZERO) 


END  IF 


C **  FORMAT  STATEMENTS  TO  ECHO  INPUT  DATA  TO  HEXHCO 


900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ', 

t 'Technology.  U.S.  Government ' ,/,2X, 'Sponsorship  under  ', 

t 'NASA  Contract  NAS7-918  is  acknowledged.', 

& ////.33X, 'INPUT  DATA' , 

& ///, 14X, 'DRIVERS' ,25X, 'PARAMETER  DISTRIBUTIONS', 

& //,48X, 'RHO',16X, 'THETA' ) 


,2X, 'WELD  OFFSET  (%) ' ,3X, 'Be( ' ,F4.2, ' 
6if',F7.5,',',F8.5,'j',4X.'U(>,fr4.1,'f 
/,20X,  'Be( ' ,F4.2. ' , ' ,F5.2, ' ) ,,6Xi'U( ' 
4X, 'U( ' ,F4.1, ' , ' ,F5.1, ' ) ' ,/,20X, 'TEST 


901  FORMAT(/,2X, 'WELD  OFFSET  (% 
& - - - - - 
& / 

& 


)',6X, 

,F8.5, 


902  FORMAT(/,2X, 
& 'U(', 


'K  WELD  (OD)' 
F7.5, ', ',F8.5 


t 

t 


#F5.2, ' ) ' 

',',f5.1. 


903  FORMAT ( / , 2X , 
& 'U(', 


'K  WELD  (ID) ' 
F7 .5, ' , ' ,F8 .5 


9 


7X, 'Be( ' ,F4 .2, ' . ' 
')',4X,'U(',F4.i, 


5F'*F§'1' 

9 9 * 3 * * 9 


904  FORMAT(/,2X, 'INNER  DIAMETER' ,4X. 'Be( ' ,F6. 4, 
& 'U(',F7.5, ', ',F8.5,')',4X, 'U(',F4.1, 


r 

t 


F7.4 

F5.1 


' ) ' ,2X, 
')') 


905  FORMAT(/,2X, 'WALL  THICKNESS ', 4X, ' Be (' ,F6 . 4, 
& 'U( ' ,F7.5, ' , ' ,F8.5, ’ ) ',4X, 'U( ' ,F4.1, 


,F7.4, 

,F5.1, 


,2X, 

) 


906  FORMAT (//. 2 X, 'LAMBDA  RANDOM' ,5X, 'k:  U( ' ,F7 .5, ' , ' ,F8.5, ' ) ' , 
& /, 2 OX, 'COEFFICIENT  OF  VARIATION!  ',F5.3, 

& /, 2 OX, 'STRAIN  GAGE  FACTOR:  ',F9.7) 


907  FORMAT(/,2X, 'LAMBDA  SINE', 7X, 'k:  U( ' ,F7.5, ' , ' .F8.5, ' ) ' , 
& /, 2 OX, 'COEFFICIENT  OF  VARIATION:  ',F5.3, 

& /,20X, 'STRAIN  GAGE  FACTOR:  ',F9.7) 


908  FORMAT(//,40X, 'MU', 15X, 'SIGMA', 

& //,2X, 'INNER  TEMPERATURE ',4X, 'NORMAL:  U(', 

& F6 . 1, ’ , ' ,F7 . 1, ' ) U(',F5.1, ', *,F6.1,')', 

& //,2X, 'OUTER  TEMPERATORE',4X, 'NORMAL:  U( ' , 

& F6 . 1, ' , ' ,F7. 1, ' ) U(',F5.1, ', ',F6.1,')', 

& //,2X, 'INNER  PRESSURE' ,7X, 'NORMAL:  U( ' , 

& F6 . 1, ' , ' ,F7. 1, ' ) U(',F5.1,', *,F6.1,)') 
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909  FORMAT (//,2X, ' DYNAMIC  AERO  LOAD  FACTOR', 

& //,2xJ 'STATIC *a£r6  ,6X,  'U(  * »K8.5,  ' , • \ K ' 

4 //,2X, 'DYNAMIC  STRESS  ANALYSIS', 6X,'Ui',F8. 5,',', F9. 5,  ) , 

4 //, 2X, 'AERO  STRESS  ANALYSIS' , 9X, 'U< ' ,F8. 5,' ,' ,F9. 5,  ) , 

4 //,2X, 'LAMBDA  KOFF' , 18X, 'U( ' ,F8.5, ' , ' ,F9.5, ' ) , 

4 //,2X, 'NEUBERS  RULE'17X, 'U(',F8.5.',',F9.5,')', 

& //,2X, 'DAMAGE  MODEL  ACCURACY' ,8X, 'U(in' ,F8. 5, ' , ln',F8.5,  ) ) 

920  FORMAT(////,28Xf 'LOADS  INPUT' 

4 '///,§X,'f>  LOADS', 5X,'T  LOADS' , 5X, 'M2  LOADS', 

4 4X,'M3  LOADS ', 4X, 'V2  LOADS' ,4X, 'V3  LOADS', 

^ t m aatakMk  « r «»  • / r rm  \ t 4 V f / TV  T DC  \ t 


& 

& 

& 


4X,  'M3  LOADS',  4X,  fvz  LOADS ' , 4X,  ' v j , 

/,$X, ' (LBS) ' . 5X,  ' (IN. -LBS) '.4X, ' (IN.-LBS) ' , 

3k, ' irt.-L&s)  six; ' (LBS) ' , 6k, ' (iis) ' , 

/ / 9Y  ^ <?TATTC  AFRO' 

/,5x,£9.6,3X,F9.6,3i,F9.6,3X,F9.6,3X,F9.6,3X,F9.6) 


921  FORMAT (2X,A6, /,2X,F9 .6 , 3X,F9 .6 ,3X,F9 .6,3X,F9 .6,3X,F9 .6,3X,F9 .6 ) 
925  FORMAT (////, 2 OX, 'GEOMETRIC  AND  OTHER  INPUT', 

- ' / / y itt  /’'wau  t r\T\  v t A 1 V 'EM  O 


(////.  ZUA,  r AWLT  V1HUS 

///,2x, 'K  GEOM  (OD) ' ,41X,F4.2, 

/ /, 2X, ' K GEOM  (ID) ' ,41X,F4.2, 

/ /, 2X, 'K  HOOP  (OD)',41X,F4.2, 

//,2X,'K  HOOP  (ID|' ,41X,F4.2, 

//,2X, 'EXTERNAL  PRESSURE,  PSI',26X,  F6.0, 

//,2X, 'ANALYSIS  LOCATION' ,35X, I 1 
//,2X, 'ANGLE  THETA  (DEGREES ) ' , 2 8X, F6 . 1 , 

//,2X, 'STRESS-TIME  HISTORY  PERIOD,  SEC' ,20X,F5.2, 

//,2X, 'STRESS-TIME  HISTORY  NOISE  FILTER,  PSI ' , 11X,F7 . 1, 
//,2X, 'NUMBER  OF  TIME-VARYING  LOADS ', 23X, 12 , 

//'2X, 'NUMBER  OF  POINTS  IN  HISTORIES' , 19X, 15) 


926  FORMAT  (/,2X, 'ANGLE  THETA  (RADIANS) ' ,29X,F6. 2) 

927  FORMAT  (/, 2X, 'ELASTIC  MODULUS,  PSI ' , 27X,E9 .3. 

4 //,2X, 'COEFF  OF  THERMAL  EXPANSION' ,21X,E14 . 8, 

4 //,2X, 'POISSONS  RATIO' ,33X,F5. 3) 

930  FORMAT  (III. 2 5X, 'STRESS-STRAIN  CURVE  INPUT', 

4 //, 2 X, 'MAXIMUM  NUMBER  OF  SEGMENTS  ',25X,I1, 

4 // , 2X, ' STRESS-STRAIN  PRODUCT ' , 5X, ' STRAIN  VALUES ' , / ) 

931  FORMAT (13X,F8. 2, 10X,F7.5/) 

935  FORMAT (////, 2X, ' B LIVES: 

936  FORMAT (2X,F7 . 5,5X,E13.6) 


EMPIRICAL' ,/) 


STOP 

END 


C* ****** ******************** ****** 

C SAMPLE  ' HEXHCD ' INPUT  FILE 

c************************************************************************ 

c 625 RANDOM  NUMBER  SEED 

CO  OUTPUT  DUMP  CONTROLLER 

C 100  III INNER  LOOP  SIZE 

c 200 OUTER  LOOP  SIZE 

C 2 S/N  VARIATION  — UNIFORM  REQUIRED 

CO NORMAL  MEDIAN  NOT  REQUIRED 

C o MATERIALS  PROCESS  VARIATION  NOT  REQUIRED 

C 3 * ' ’ ' ’ NUMBER  OF  BLIVES  TO  BE  PROVIDED 

c oloooil II.... h.01  1I.FE 

C 0.001 B;1  LOT 

C 0.01. . . 

C 0.10 
C 0.00 
C 1.00... 

C 0.88 
C 1.26 
C 0.1885 
C 0.0113 


0,10 

0,00 

0.50 

0.00 

0.50 

0.00 

5.0 

0.0 

5 WELD  OFFSET 

0.0 

.WELD  OFFSET  TEST  ] 

i . 32 

6.30 

6.70 

6.5 

10 K WELD  (OD) 

1.74 

0.30 

0.70 

0.5 

10 K WELD  (ID) 

0.1915  0.50 

0.75 

0.5 

20.. .INNER  DIAM 

6.0137  0.50 

0.75 

0.5 

20... WALL  THICK 

(A,B)  (Rl, 

> (C,D)  (R3, 
>R  HYPER-DI 


R1,R2)  (T1,T2) 
“3,R4|  (T3,T4 ) 
DISTRIBUTION  1 


(A,B)  (Rl,R2)  (Tl,T2) 
Ja»B)  (Tl,T2) 
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c 

c 

1.50 

3.00 

0.15 

0.90.. 

c 

c 

2.00 

3.00 

0.20 

0.90.. 

c 

MEAN 

BOUNDS 

SIGMA 

BOUNDS 

c 

486. 

666. 

29. 

56.5. 

c 

799. 

908. 

49.5 

48... 

c 

3808. 

4177. 

69. 

69... 

c 

0.50 

1 

. 50 ....  . 

c 

0.80 

1 

.20. . . . . 

C 0.80  1.20... 

C 0.90  1.10... 

C 0.80  1.20... 

C 0.60  1.40. . . 

C -1.38629  0.95166 

C 

C 16 

C 


LAMBDA  NARROW-BAND  RANDOM:  k:  U (A, B ) , 
COEFF.  OF  VAR..  STRAIN  GAGE  FACTOR 
LAMBDA  SUPERIMPOSED  SINE:  k:  U(A,B) , 

COEFF.  OF  VAR.,  STRAIN  GAGE  FACTOR 
NORMAL  DISTRIBUTION  PARAMETERS 
INNER  NALL  TEMPERATURE,  DEGREES  R 
OUTER  HALL  TEMPERATURE,  DEGREES  R 
INTERNAL  PRESSURE,  PSI 
LAMBDA  DYNAMIC  AERO  U(A,B) 

LAMBDA  STATIC  AERO  U(A,B) 

DYNAMIC  STRESS  ANALYSIS  ACCURACY  U(A,B) 
AERO  STRESS  ANALYSIS  ACCURACY  U(A,B) 
LAMBDA  K HELD  OFFSET  ACCURACY  FACTOR 
NEUBER'S  RULE  MODEL  ACCURACY  FACTOR 
DAMAGE  MODEL  ACCURACY  U(lnA,lnB) 

.NUMBER  OF  TIME-VARYING  LOADS 


C PSTAT  TSTAT  MSTAT(l)  MSTAT ( 2 ) VSTAT(l)  VST  AT  ( 2 ) 


C 

C 

0.00 

0.00 

•0.07214 

o 

o 

o 

0.00 

» 

. 

o 

o 

. 

o 

C 

c 

FILE  TYPE  P() 

T() 

M(  1,  ) 

M(2 , ) 

V(l,  ) 

V<2,  ) 

LOADS 

c 

c 

'NBP' 

1 

0.050464 

0.00 

0.00 

0.00 

0.00 

0.00..... 

•RANDOM 

P 

c 

'NBT' 

1 

0.00 

0.018395 

0.00 

0.00 

0.00 

0.00 

.RANDOM 

T 

c 

' NBM2 ' ‘ 

1 

0.00 

0.00 

0.89901 

0.00 

0.00 

0.00 

.RANDOM 

M2 

c 

'NBM3 ' 

1 

0.00 

0.00 

0.00 

0.064034 

0.00 

0.00 

.RANDOM 

M3 

c 

'NBV2 ' 

1 

0.00 

0.00 

0.00 

0.00 

0.031219 

0.00 

.RANDOM 

V2 

c 

'NBV3 ' 

1 

0.00 

0.00 

0.00 

0.00 

0.00 

0.385245. 

.RANDOM 

V3 

c 

' SIN1 ' 

2 

0.001150 

0.001927 

0.051544 

0.000312 

0.000596 

0.022412. 

.SINE  1 

c 

' SIN2 ' 

2 

0.002284 

0.001917 

0.050250 

0.000457 

0.000295 

0.021862. 

.SINE  2 

c 

'SIN3 ' 

2 

0.008944 

0.003591 

0.043037 

0.002533 

0.001717 

0.026548. 

.SINE  3 

c 

' SIN4 ' 

2 

0.023373 

0.004778 

0.427142 

0.006577 

0.004080 

0.179889. 

.SINE  4 

c 

' SINS ' 

2 

0.012763 

0.000495 

0.102889 

0.007273 

0.005673 

0.051970. 

.SINE  5 

c 

' SIN6 ' 

2 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

.SINE  6 

c 

' AEROl ' 

3 

0.00 

0.00 

0.00 

0.07179 

0.00 

0.00 

.AERO  1 

c 

' AERO 2 ' 

3 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

.AERO  2 

c 

' AERO 3 ' 

3 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

.AERO  3 

C 

C 1.0  1.0  1.0  1.0 K GEOM  (OD, ID)  ;K  HOOP  (OD,ID)  : KT(2,1)  KT(2,2) 

C 0.10 Weld  OFFaet 

C 3640 EXTERNAL  (OUTER)  PRESSURE  (PCO,  PSI) 

C 2 SURFACE  LOCATION  (1-OUTER,  2— INNER) 

C 270 ANGLE  (DEGREES) 

C 1.0 STRESS-TIME  HISTORY  PERIOD  (SEC) 

C 500 STRESS-TIME  HISTORY  NOISE  FILTER  (PSI) 

C 1000 NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY 

C 29000000.  8.8E-06  0.30 YOUNG'S  MODULUS,  COEFF  OF  THERMAL  EXPANSION, 

C POISSON'S  RATIO 
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5000 S(5 

6000 S 6 

23000 sn 

66000 S<8 

72000 Sl9 

190000 S(1 

789000 S(1 

1070000 S(1 

1450000 S(1 


DATA 

POINTS 

FOR 

THE 

SPECIFIC 

MATERIAL 


NO  VALUE  OF  So  SUPPLIED 

NUMBER  OF  REGIONS:  W/DATA,  W/O  DATA 

LIFE  BOUNDRIES  REGION  1 

CONSTRAINT  ON  COEFF.  OF  VARIATION 

0.000 2 PTS  IN  RANGE,  LOWER  BOUND,  UPPER  BOUND 

0.0 NORMAL  DISTRIBUTION  PRIORS:  DELTA,  Mo,  SIGMA2 


LIST  OF  VARIABLES 

»*** *** ****** ********************************************** 

SELECTED  AERO  DYNAMIC  LOAD  SCALE  FACTOR 
AERO  DYNAMIC  LOAD  SCALE  FACTOR  LOWER  BOUND 
AERO  DYNAMIC  LOAD  SCALE  FACTOR  UPPER  BOUND 
SELECTED  AERO  STATIC  LOAD  SCALE  FACTOR 
AERO  STATIC  LOAD  SCALE  FACTOR  LOWER  BOUND 
AERO  STATIC  LOAD  SCALE  FACTOR  UPPER  BOUND 

2-D  ARRAY  CONTAINING  M VALUES  TO  BE  SORTED  FOR  EACH  REGION 
ANGLE  THETA  MEASURED  COUNTER-CLOCKWISE  FROM  THE  X2— DIRECTION 
GIVEN  IN  DEGREES,  TRANSFORMED  TO  RADIANS  FOR  CALCULATIONS 
SELECTED  AERO  STRESS  ANALYSIS  ACCURACY  FACTOR 
AERO  STRESS  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 
AERO  STRESS  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 
1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K **  M FOR 
EACH  REGION 

EQUAL  TO  BIGK(l)  — DUMMY  PARAMETER  FOR  CALLS  TO  SUBROUTINE 
EXPCTD 

1— D ARRAY  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  PROVIDED 
1-D  ARRAY  CONTAINING  POSITIONS  IN  LIFEQ  OF  EMPIRICAL  BLIVES 
VALUE  OF  BETAO  RANDOMLY  SELECTED  FROM  BETA(  ) INTERVAL 
COEFFICIENT  OF  THERMAL  EXPANSION 
SELECTED  WELD  INTERIOR  DIAMETER 
WELD  INTERIOR  DIAMETER  LOWER  BOUND 

WELD  INTERIOR  DIAMETER  UPPER  BOUND  

SELECTED  RHO  FOR  WELD  INTERIOR  DIAMETER 
WELD  INTERIOR  DIAMETER  - RHO  LOWER  BOUND 
WELD  INTERIOR  DIAMETER  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  WELD  INTERIOR  DIAMETER 
WELD  INTERIOR  DIAMETER  - THETA  LOWER  BOUND 

WELD  INTERIOR  DIAMETER  - THETA  UPPER  BOUND 

SELECTED  TEMPERATURE  DIFFERENCE  BETWEEN  INNER  AND  OUTER 
SURFACES  — DeLTA  T 
EQUAL  TO  PCMUB  - PCMUA 

EQUAL  TO  PCSIGB  - PCS IGA  

SELECTED  DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR 

DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR  LOWER  BOUND 

DYNAMIC  STRESS  ANALYSIS  ACCURACY  FACTOR  UPPER  BOUND 

EQUAL  TO  TIMUB  - TIMUA 

EQUAL  TO  TISIGB  - TISIGA 

EQUAL  TO  TOMUB  - TOMUA 

EQUAL  TO  TOSIGB  - TOSIGA 

DUMMY  VARIABLE  „ 

1-D  ARRAY  WHICH  CONTAINS  THE  STRAIN  VALUES 
ELASTIC  MODULUS 

EQUAL  TO  .5  — USED  TO  ACCESS  50%  POINT  ^ LIFEf ) 

1-D  ARRAY  CONTAINING  UNIT  NUMBER  FOR  STRESS-TIME  HISTORIES 
FILES 

1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
File  TEST  — USED  TO  TEST  EXISTENCE  OF  FILE 
MATERIAL  ULTIMATE  STRENGTH 

MATERIAL  YIELD  STRENGTH  . 

SELECTED  DAMAGE  ACCUMULATION  MODEL  ACCURACY  FACTOR,  LAMBDAdam 
GAM  LOWER  BOUND 
GAM  UPPER  BOUND 
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C I 
C II 
C I OUT 
C J 
C K 
C KGID 
C KGOD 
C KRATIO 
C KT(  ) 

C 

C 

C KWID 
C KWIDA 
C KWIDB 
C KWIDR 
C KWIDRl 
C KWIDR2 
C KWIDT 
C KWIDT I 
C KWIDT 2 
C KWOD 
C KWODA 
C KWODB 
C KWODR 
C KWODR  1 
C KWODR2 
C KWODT 
C KWODT 1 
C KWODT2 
C L 
C LAMN 
C LAMNA 
C LAMNB 
C liAMNC 
C LAMND 
C LAMNK 
C 

C LAMNMU 
C 

C LAMNSG 
C 

C LAMS 
C LAMSA 
C LAMSB 
C LAMSC 
C LAMSD 
C LAMSK 
C 

C LAMS  MU 
C 

C IAMSSG 
C 

C IAMW 
C 

C LAMWA 
C IAMWB 
C LDNAME ( ) 
C LIFE() 

C 

C LNA( ) 

C LNZ 
C LOCAT 
C 

C LPHIM< ) 

C M() 

C 

C MAXBLF 
C MAXDAT 
0 MAXLD 
C MAXLIF 
C 

C MAXM 
C MAXMM 
C MAXREG 
C MAXSEG 


CONTROLS  DO  LOOP  FOR  EACH  LIFE  CALCULATION 

CONTROLS  DO  LOOP  FOR  LOtpS  

CONTROLS  DUMP  TO  SCREEN /PRINTER 

CONTROLS  DO  LOOP  FOR  EACH  BLIFE  

CONTROLS  DO  LOOP  FOR  EACH  HYPER  PARAMETER  SET 
K GEOM  (ID) 

SELECTED  K GEOM  (OD) 

RATIO  OF  K*/K,  CONSTi! 


(«  KGOD  * KWOD)?  KT( 1. 2 ) — aw  m 
KT(2,1)  - Kt  h60P  (OD) ; KT(2,2) 


„ , tant  over  regions  and  components 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — KT(1,1)  - Kt  AXIAL 

Rt  (ID»  telD  * KWID) ; 

Kt  HOOP  (ID) 

SELECTED' K WELD  (ID) 

K WELD  (ID)  LOWER  BOUND 
K WELD  (ID)  UPPER  BOUND 
SELECTED  RHO  FOR  K WELD  (ID) 

- RHO  LOWER  BOUND 


(OD) 


K WELD  (ID)  - 
K WELD  (ID)  - 


RHO  UPPER  BOUND 


SELECTED  THETA  FOR  K WELD  (ID) 

K WELD  (ID)  - THETA  LOWER  BOUND 
K WELD  (ID)  - THETA  UPPER  BOUND 
SELECTED  K WELD  (OD) 

K WELD  (OD)  LOWER  BOUND 
K WELD  (OD)  UPPER  BOUND 
SELECTED  RHO  FOR  K WELD  (OD) 

K WELD  (OD)  - RHO  LOWER  BOUND 
K WELD  (OD)  - RHO  UPPER  BOUND 
SELECTED  THETA  FOR  K WELD  (OD) 

K WELD  (OD)  - THETA  LOWER  BOUND 
K WELD  (OD)  - THETA  UPPER  BOUND 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

SELECTED  LAMBDA  FOR  ONE  SIGMA  NARROW-BAND  RANDOM  LOADS 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  — LOWER  BOUND  OF  k 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  — UPPER  BOUND  OF  k 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  COEFFICIENT  OF  VARIATION 
NARROW-BAND  RANDOM  LOADS  STRAIN  GAGE  ACCURACY  FACTOR 
LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  k — INDICATES  VARIATION 
DUE  TO  SAMPLE  SIZE 

MEAN  OF  LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS  (MU,  NORMAL 
DISTRIBUTION) 

STANDARD  DEVIATION  OF  LAMBDA  FOR  NARROW-BAND  RANDOM  LOADS 
(SIGMA,  NORMAL  DISTRIBUTION) 

SELECTED  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  — LOWER  BOUND  OF  k 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  — UPPER  BOUND  OF  k 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  COEFFICIENT  OF  VARIATION 
SUPERIMPOSED  SINE  LOADS  STRAIN  GAGE  ACCURACY  FACTOR 
LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  k — INDICATES  VARIATION 
DUE  TO  SAMPLE  SIZE 

MEAN  OF  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS  (MU,  NORMAL 
DISTRIBUTION! 

STANDARD  DEVIATION  OF  LAMBDA  FOR  SUPERIMPOSED  SINE  LOADS 
(SIGMA,  NORMAL  DISTRIBUTION) 

SELECTED  ACCURACY  FACTOR  FOR  WELD  ECCENTRICITY  STRESS 
CONCENTRATION  FACTOR,  Koff 
LAMW  LOWER  BOUND 
TAMM  UPPER  BOUND 

1— D ARRAY  CONTAINING  LoaD  NAMES  FOR  THE  TIME-VARYING  LOADS 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  LIVES  GENERATED  BY  THE  PFM 
— SORTED  VALUES  OF  THE  LEFT-HAND  TAIL 
1-D  ARRAY  CONTAINING  Ln( A)  - Ln(BIGK)*MM  FOR  EACH  REGION 
NORMAL ( 0 , PVAR ) GENERATED  RANDOM  VARIATE 

LOCATION  OF  INTEREST  WHERE  1 IS  THE  EXTERIOR  SURFACE  OF  THE 
DUCT,  AND  2 IS  THE  INTERIOR  SURFACE  OF  THE  DUCT 

1- D  ARRAY  CONTAINING  Ln(PHI)*MM  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M( 1, *) 
ARE  THE  M2  LOADS;  M(2, *)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  BLIVES  TO  BE  CALCULATED 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  SET  PER  REGION  ALLOWED 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED  

MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA, 

ALPHA  CALCULATION 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 
MAXIMUM  NUMBER  OF  M'B  TO  BE  SORTED  FOR  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGION  ALLOWED  (S/N  CURVE) 

MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED  (STRESS-STRAIN  CURVE) 
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ooooonoooooooo  onoooonooooooooooooonooonoooooooooooooonooonoooooooooooooooo 


MCOUNT 
MEDM( ) 
HID 
MLAM{ ) 


MM( ) 
MPROC 

MS  LAM  ( ) 

MSTAT() 

MU() 

NBLIFE 
NBND  ( ) 


NEUB 

NEUBA 

NEUBB 

NEWLIF 

NF() 

NHYPER 

NLIFE 

NLIFET 

NLOAD 

NMED 

NORM 

NPTS ( ) 

NRAN 

NU 

NUMREG 

NUMSEG 

PC  MU 

PCMUA 

PCMUB 

PCO 

PCSIG 

PCSIGA 

PCSIGB 

PERIOD 

PHI 

PI 

PLAM() 

PSIG 
PS  LAM 
PSTAT 
PVAR 


NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  MEDIAN  S/N  CURVE 

1—  D ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION  

POINTER  TO  THE  MEDIAN  M VALUES  — EQUAL  TO  HALF  OF  MCOUNT 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  SCALED 

BY  LAMS.  LAMN,  OR  AERD  AS  APPROPRIATE  (INDICATED  BY  TYPE  () ) 

MLAM(  1 , * ) ARE  THE  M2  LOADS;  MLAM ( 2 , * ) ARE  THE  M3  LOADS 

1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION  

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - INCLUDE  VARIATION 
1-D  ARRAY  CONTAINING  THE  STATIC  LOADS  SCALED  BY  AERS  — 

MSLAM(l)  IS  THE  M2  LOAD;  MS LAM ( 2 ) IS  THE  M3  LOAD 
1-D  ARRAY  CONTAINING  THE  STATIC  LOADS  — MSTAT ( 1 ) IS  THE  M2 
LOAD;  MSTAT/ 2)  IS  THE  M3  LOAD 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
NUMBER  OF  BLIVES  TO  BE  CALCULATED 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  FOR  THE  NUMREG  LIFE 
REGIONS  OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE) 

MATERIAL  S/N  DATA  SET 

SELECTED  NEUBER'S  RULE  MODEL  ACCURACY  FACTOR 
NEUBER'S  RULE  MODEL  ACCURACY  FACTOR  LOWER  BOUND 
NEUBER'S  RULE  MODEL  ACCURACY  FACTOR  UPPER  BOUND 
LIFE  VALUE  RETURNED  FROM  CALL  TO  THWELD 

2- D  ARRAY  CONTAINING  RAWNF( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 

SIZE  OF  OUTER  LOOP 
SIZE  OF  INNER  LOOP 

TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 
NUMBER  OF  TIME-VARYING  LOADS 

CONTROLS  MEDIAN  CALCULATION  FOR  THE  NORMAL  DISTRIBUTION  CASE 

0 - NO  MEDIAN  CALCULATION;  1 - MEDIAN  CALCULATION  DESIRED 

RANDOM  VARIABLE  (SOMETIMES  UNIFORM,  SOMETIMES  NORMAL)  USED 
TO  OBTAIN  SELECTED  TEMPERATURES  AND  PRESSURE 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  LIFE  REGION 
FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 
NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY  (Number  of  RANdom 

?oints ) 

SSON'S  RATIO 

NUMBER  OF  REGIONS  OF  INTEREST 

NUMBER  OF  SEGMENTS  OF  INTEREST  IN  STRESS-STRAIN  CURVE 
1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 
SELECTED  INTERNAL  PRESSURE,  PSI 

SELECTED  MEAN  OF  INTERNAL  PRESSURE,  PSI  (MU,  NORMAL 


DISTRIBUTION) 

MEAN  OF  INTERNAL  PRESSURE  LOWER  BOUND 
MEAN  OF  INTERNAL  PRESSURE  UPPER  BOUND 

EXTERNAL  PRESSURE,  PSI  _ 

SELECTED  STANDARD  DEVIATION  OF  INTERNAL  PRESSURE,  PSI  ( SIGMA, 
NORMAL  DISTRIBUTION) 

STANDARD  DEVIATION  OF  INTERNAL  PRESSURE  LOWER  BOUND 
STANDARD  DEVIATION  OF  INTERNAL  PRESSURE  UPPER  BOUND 
LENGTH  OF  TIME  IN  SECONDS  OF  RANDOM  STRESS-TIME  HISTORY 
WEIBULL (BETAo,  ETAo)  GENERATED  RANDOM  VARIATE 
CONSTANT  FOR  THE  VALUE  3.1415926536 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS  SCALED 

BY  LAMS,  LAMN,  OR  AERD  AS  APPROPRIATE  (INDICATED  BY  TYPE/)) 
EQUAL  TO  SQRT(PVAR)  — MATERIALS  PROCESS  STANDARD  DEVIATION 
STATIC  AXIAL  LOAD  SCALED  BY  AERS 
STATIC  AXIAL  LOAD 
MATERIALS  PROCESS  VARIATION 


RAND 

RANGEM() 

RT<) 
SBND( ) 

SE(  ) 

SIG(  ) 
STR() 


RANDOM  NUMBER  SEED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM/1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  VALUES  OF  Rt  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R * -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 

REGION  CONTAINED  IN  NBND/ ) 

1-D  ARRAY  OF  PRODUCT  OF  STRESS  AND  STRAIN  FOR  EACH  SEGMENT  OF 
THE  STRESS-STRAIN  VS  STRAIN  CURVE  

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  STRESS  POINTS  (STRESS  RATIO  ■ -1.0) 
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c 

c 

C STRHIS ( ) 
C 

C SZERO 
C T( ) 

C TEST 
C 

C THIC 
C THICA 
C THICB 
C THICR 
C THICRl 
C THICR2 
C THICT 
C THICT 1 
C THICT2 
C THWELD 
C 

C TIN 
C TIMU 
C 

C TIMUA 
C TIMUB 
C TISIG 
C 

C TISIGA 
C TISIGB 
C TLAM() 

C 

C TOUT 
C TOMU 
C 

C TOMUA 
C TOMUB 
C TOSIG 
C 

C TOSIGA 
C TOSIGB 
C TRSBND() 
C 

C TRUNC 
C TSLAM 
C TSTAT 
C TYPE ( ) 

C 

c 

c 

C V<) 

c 

C VARY 

C 

C 

C VLAM(  ) 

C 

c 

C VSLkAM(  ) 

C 

C VSTAT ( ) 

C 

C WOFF 
C WOFFA 
C WOFFB 
C WOFFC 
C WOFFD 
C WOFFE 
C WOFFHI 
C WOFFLO 
C WOFFR 
C WOFFR  1 
C WOFFR2 
C WOFFR3 
C WOFFR4 
C WOFFT 
C WOFFT  1 


FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO 
LIFE  REGIONS 

2-D  ARRAY  CONTAINING  THE  AMPLITUDES  FOR  THE  TIME-VARYING 
STRESS-TIME  HISTORIES 
STRESS  TENSILE  TEST  POINT,  So 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
UNIFORM*  0, 1)  RANDOM  VARIATE  USED  TO  DETERMINE 
HYPER-DISTRIBUTION  TO  SELECT  FROM 
SELECTED  WALL  THICKNESS  AT  BEND  (ID)  AT  WELD,  IN 
WALL  THICKNESS  AT  BEND  (ID)  LOWER  BOUND 
WALL  THICKNESS  AT  BEND  (ID)  UPPER  BOUND 
SELECTED  RHO  FOR  WALL  THICKNESS  AT  BEND  (ID) 

BOUND 


>!  - 


- RHO  LONER 

RHO  UPPER  BOUND 
ID 


NALL  THICKNESS  AT  BEND  (ID) 

NALL  THICKNESS  AT  BEND  (ID) 

SELECTED  THETA  FOR  NALL  THICKNESS  AT  BEND 
NALL  THICKNESS  AT  BEND  (ID)  - THETA  LONER 
HALL  THICKNESS  AT  BEND  (ID)  - THETA  UPPER  BOUND 
REAL  FUNCTION  WHICH  CALCULATES  THE  DUCT  LIFE  (IN  SECONDS) 

AT  A PLAIN  WELD  UNDERGOING  THERMAL  LOADING 
SELECTED  INNER  NALL  SURFACE  TEMPERATURE  (RANKINE) 

SELECTED  MEAN  OF  INNER  WALL  TEMPERATURE,  (MU,  NORMAL 
DISTRIBUTION) 

MEAN  OF  INNER  HALL  TEMPERATURE  LONER  BOUND 
MEAN  OF  INNER  HALL  TEMPERATURE  UPPER  BOUND 

SELECTED  STANDARD  DEVIATION  OF  INNER  HALL  TEMPERATURE,  (SIGMA, 
NORMAL  DISTRIBUTION) 

STANDARD  DEVIATION  OF  INNER  HALL  TEMPERATURE  LONER  BOUND 
STANDARD  DEVIATION  OF  INNER  HALL  TEMPERATURE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS  SCALED 
BY  LAMS,  LAMN,  OR  AERD  AS  APPROPRIATE  (INDICATED  BY  TYPE ( ) ) 
SELECTED  OUTER  NALL  SURFACE  TEMPERATURE  (RANKINE) 

SELECTED  MEAN  OF  OUTER  NALL  TEMPERATURE  (MU,  NORMAL 
DISTRIBUTION) 

MEAN  OF  OUTER  HALL  TEMPERATURE  LONER  BOUND 
MEAN  OF  OUTER  HALL  TEMPERATURE  UPPER  BOUND 

SELECTED  STANDARD  DEVIATION  OF  OUTER  HALL  TEMPERATURE,  (SIGMA, 
NORMAL  DISTRIBUTION) 

STANDARD  DEVIATION  OF  OUTER  NALL  TEMPERATURE  LOWER  BOUND 
STANDARD  DEVIATION  OF  OUTER  NALL  TEMPERATURE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  VALUES  OF  SKID  * PHI  * KRATIO  * Z FOR 
EACH  REGION  AND  TRIAL 

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
STATIC  AXIAL  LOAD  SCALED  BY  AERS 
STATIC  TORQUE  LOAD 

1- D  ARRAY  CONTAINING  THE  TYPE  OF  TIME-VARYING  LOAD,  USED  FOR 
LOAD  FACTORS  — TYPE ( * ) - 1 INDICATES  NARROW-BAND  RANDOM; 
TYPE ( * ) = 2 INDICATES  SUPERIMPOSED  SINUSOID;  TYPE ( * ) ■ 3 
INDICATES  DYNAMIC  AERO 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  --  V(l,*) 
ARE  THE  V2  LOADS;  V(2,*}  ARE  THE  V3  LOADS 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATION; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION;  3 - 
TRUNCATED  NORMAL  VARIATION 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  SCALED 

BY  LAMS,  LAMN,  OR  AERD  AS  APPROPRIATE  (INDICATED  BY  TYPE ( ) ) 

— VLAM(  1, *)  ARE  THE  V2  LOADS;  VLAM(2,*)  ARE  THE  V3  LOADS 
1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  SCALED  BY  AERS 

— VSLAM(l)  IS  THE  V2  LOAD;  VSLAM(2)  IS  THE  V3  LOAD 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — VSTAT(l)  IS 
THE  V2  LOAD;  VSTAT(2)  IS  THE  V3  LOAD 
SELECTED  HELD  OFFSET  (fe) 

HELD  OFFSET  LOWER  BOUND  - HYPER-DISTRIBUTION  1 
HELD  OFFSET  UPPER  BOUND  - HYPER-DISTRIBUTION  1 
HELD  OFFSET  LOWER  BOUND  - HYPER-DISTRIBUTION  2 
WELD  OFFSET  UPPER  BOUND  - HYPER-DISTRIBUTION  2 
PERCENTAGE  OCCURRING  IN  HYPER-DISTRIBUTION  1 
SELECTED  HELD  OFFSET  UPPER  BOUND 
SELECTED  HELD  OFFSET  LOWER  BOUND 
SELECTED  RHO  FOR  WELD  OFFSET 


HELD  OFFSET  - RHO  LOWER  BOUND  - 
WELD  OFFSET  - RHO  UPPER  BOUND  - 
HELD  OFFSET  - RHO  LOWER  BOUND  - 
HELD  OFFSET  - RHO  UPPER  BOUND  - 
SELECTED  THETA  FOR  WELD  OFFSET 

HELD  OFFSET  - THETA  LOWER  BOUND  - HYPER-DISTRIBUTION 


HYPER-DISTRIBUTION 

HYPER-DISTRIBUTION 

HYPER-DISTRIBUTION 

HYPER-DISTRIBUTION 
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C WOFFT2 
C WOFFT3 
C WOFFT4 
C Z 

C ZROREG 
C 


C************************************************************************** 


SUBROUTINE  INSORT  PERFORMS  AN  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  20JUN90 

VERSION:  2.1 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

INPUTS:  NEWLIF,  LIFE,  NLIFET 

OUTPUTS : LIFE 

IMPLICIT  NONE 

INTEGER  MAXLIF 

PARAMETER  (MAXLIF  *=  10000) 

COMMON  I OUT 

INTEGER  I,  I OUT,  NLIFET,  NUM,  PLACE 
REAL  LIFE ( MAXLIF ) , NEWLIF,  TEMP ( MAXLIF ) 


LIST  OF  VARIABLES 

I CONTROLS  DO  LOOP  FOR  INSERTION 

I OUT  OUTPUT  DUMP  CONTROLLER 

LIFEM  1-D  ARRAY  CONTAINING  TAIL  VALUES  OF  THE  LIVES  GENERATED  BY  THE 

PFM  TO  BE  SORTED  

MAXLIF  MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA,  ALPHA, 
CALCULATION 

NEWLIF  LIFE  VALUE  TO  BE  INSERTED  INTO  LIFEM 
NLIFET  TOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 
NUM  NUMBER  OF  LIFE  VALUES  IN  LIFEM 

PLACE  POSITION  WHERE  NEWLIF  IS  TO  BE  INSERTED  INTO  LIFEM 

TEMPO  1-D  ARRAY  CONTAINING  VALUES  OF  LIFE(  ) TO  BE  SHIFTED  UPON 
INSERTION  OF  NEWLIF 


NUM  = NLIFET  / 2 

C FIND  POSITION  IN  LIFE ( ) FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE (NUM) ) GOTO  400 

DO  100  I = 1,  NUM 

IF  (NEWLIF  .LT.  LIFE(I))  THEN 
PLACE  = I 
GOTO  110 
END  IF 
100  CONTINUE 
110  CONTINUE 

C STORE  VALUES  OF  LIFE ( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMP ( ) 


WELD  OFFSET  - THETA  UPPER  BOUND  - HYPER-DISTRIBUTION  1 

WELD  OFFSET  - THETA  LOWER  BOUND  - HYPER-DISTRIBUTION  2 

WELD  OFFSET  - THETA  UPPER  BOUND  - HYPER-DISTRIBUTION  2 

LOG-NORMAL ( 0 , PVAR ) GENERATED  RANDOM  VARIATE 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXITS,  1 - NO  ZERO 
REGION 
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DO  200  I ” (PLACE  +1),  NUM 
TEMP(I)  - LIFE(I-l) 

200  CONTINUE 

C INSERT  NEWLIF 

LIFE (PLACE)  - NEWLIF 

C SHIFT  VALUES  OF  LIFE()  FOLLOWING  NEWLIF 

DO  300  I - (PLACE  +1),  NUM 
LIFE (I ) - TEMP(I) 

300  CONTINUE 

C IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE( ) THEN  RETURN 

400  CONTINUE 


RETURN 

END 


£★****★***★★****★*********★****♦*************************************** 
C SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH01,RH02)  AND  U ( THE 1 , THE2 ) 

C INDEPENDENT  RANDOM  VARIATES 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE:  9MAR87 

C SUBPROGRAM:  RANDOM 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.3.  Government  sponsorship  under  NASA  Contract  NAS7-9 18 
C is  acknowledged . 

C* *********** ********************************************************** 
SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THE1,  THE2,  X,  Y) 

COMMON  I OUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02,  THEl,  THE2,  X,  Y 

INTEGER  I OUT 

CALL  RANDOM  (FRAC,  RAND) 

C IF  ( I OUT  .EQ.  15)  WRITE (8,*)  'FRAC  , FRAC 

X - FRAC  * (RH02  - RHOl)  + RHOl 


CALL  RANDOM  (FRAC,  RAND) 

C IF  ( I OUT  .EQ.  15)  WRITE{8, *)  'FRAC  ■' , FRAC 

Y - FRAC  * (THE 2 - THEl)  + THEl 


IF  ( I OUT  .EQ.  15)  WRITE ( 8 , * ) 'RHOl  , RHOl, 
& ' THEl  =',  THEl,  ' THE2  =' , THE2 , ' X 


' RH02 
= ' , X, 


',  RH02, 
Y -',  Y 


RETURN 

END 


C********************************************************************** 
C THIS  SUBROUTINE  GENERATES  A BETA  RANDOM  VARIABLE 
C PROGRAMMER:  L.  GRONDALSKI , L.  NEWLIN 

C DATE:  9MAR87 

C SUBPROGRAM:  GAM 

c 

C The  random  variates  are  generated  using  the  method  described  in: 
c Johnson,  N.  L. , and  Kotz,  s..  Distribution  in  Statistics:  Continuous 
C Univariate  Distributions  - 1,  Houghton  Mifflin  Company,  1970, 

C ]j>£.  181-182. 
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SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 

COMMON  I OUT 

DOUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 
INTEGER  IOUT 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , ♦ ) 'RAND  , RAND^'  RHO 
« — * * * * 1 * f B " 


Yl 

Y2  - GAM( 
W = Yl  / 


THETA' THHTA, ''  A-',  A, 
GAM(  (RHO  * THETA  + U,  RAND) 


B, 


RHO. 

X 


j^l.  - RHO)  * THETA  + 1.),  RAND) 


Y2) 


C IF  (IOUT  'EQ.15)'WRITE(8,*)  'Yl  Yl,  ' Y2  , Y2,  ' W 

C TRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 


W 


X = W * (B-A)  + A 
IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 

RETURN 

END 


'W  «',  W, 


nt*********************************************** 


The  random  variates  are  generated  using  an  "Acceptance /Rejection  Method 
• * - - , "Sampling  From  the  Ganna  Distribution  on  a 

nications  of  the  ACM,  Volume  19,  Number  7,  July  1976, 


C 

C Fishman,  George  S . , 

C Computer, " Conmunications 
C pp.  407-409. 


REAL  FUNCTION  GAM  (ALPHA,  RAND) 

C SUBPROGRAM:  RANDOM 

COMMON  IOUT 
INTEGER  IOUT 

REAL  A,  ALPHA,  ARG,  Ul,  U2,  Vl,  V2 
DOUBLE  PRECISION  RAND 
A = ALPHA  - 1. 

C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'A  = ' , A,  ' ALPHA  =' , ALPHA 

10  CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

VI  = - ALOG(Ul) 

V2  = - ALOG(U2) 

C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'Ul  =',  Ul,  ' U2  =' , U2,  ' Vl  =', 

C & Vl,  ' V2  =',  V2 

ARG  = A * (Vl  - ALOG(Vl)  - 1.) 

IF  ( V2  .LT.  ARG)  GOTO  10 

GAM  = ALPHA  * Vl  

C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'GAMMA-',  GAM 

RETURN 

END 


*★**★★***★** 


c 

c 

c 

c 

c 

c 


SUBROUTINE  INFAGG  CONTROLS  THE  CALCULATIONS  FOR  TJffi^INFORWkTI^^ 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 


••OR  THE  STRESS  FORMULATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  13JUL89  FORMAT /COMMENTS: 

VERSION:  MATCHR  V8.4,  V8.5  MATGRM  V4. 


12AUG91 
4,  V4.5 
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c 

C Copyright  (C)  1990,  California  institute  of  Technology. 

C U.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


SUBROUTINE  INFAGG  (RANGEM,  HU,  SIG,  NF,  REFNP,  SZERO.  ZROREG, 

& NUHREG,  NBND,  STR,  FTUZ,  FTYZ,  VARY,  MPROC, 

& KRATIO,  PVAR) 

INPUTS:  READS  DATA  FROM  SPECFD  AND  RELATD;  VARY,  MPROC 

OUTPUTS:  RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

NBND,  STR,  FTUZ,  FTYZ,  KRATIO,  PVAR 
SUBPROGRAMS:  IN  IT,  RCE,  SW2SU2,  FINDMC,  INTRVL,  FNDRNG,  ADDREG, 

CONCAV , MEDIAN , EXPCTD,  MUSIG,  NORRNG,  ADDRGN,  GTPVAR 
FILES:  5 : RELATD-OLD ; 6 :RELATO-NEW 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  * 3,  MAXSET  - 5) 

COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT  ( MAXREG ) , MPNT  ( MAXREG ) , MPROC,  NNOOAT, 

& NP  ( 0 : MAXSET , MAXREG  j , NPPR  ( MAXREG ) , NPTS  ( 0 : MAXSET ) , 

& NSETS,  NUMREG,  REFNP ( MAXREG ) , VARY,  ZROREG 

REAL  BIGKHT,  BZERO.  CZERO,  DD(MAXREG),  DELTA ( MAXREG ) , 

& FTUZ.  FTYZ,  IZERO<2,  MAXREG) , JZERO(2,  MAXREG), 

& KRATIO,  LAMN,  LNNF ( MAXDAT , 6: MAXSET,  MAXREG), 

6 LNSTR ( MAXDAT,  0: MAXSET,  MAXREG),  MC(2,  MAXREG), 

& MCHAT  2,  MAXREG),  MEDM(  MAXREG)  , MO  (MAXREG) , MU  (MAXREG) , 

& MZERO  ( 2 , MAXREG),  NBND  ( 0 : MAXREG ) , NF< MAXDAT,  MAXREG)  , 

& PVAR,  RANGEM ( 2 . MAXREG),  RATSTR( MAXDAT,  0: MAXSET) , 

6 RAWNF  (MAXDAT,  0: MAXSET)  , RAWSTR ( MAXDAT , 0: MAXSET)  , 

, SIGMA2  (MAXREG) , STR — 


PVAR,  RANGEM ( 2 , MAXREG),  RATSTRi 
RAWNF (MAXDAT,  0: MAXSET) , RAWSTR i 
SIG  (MAXREG),  SIGMA2  (MAXREG)  , STI 
SUHAT2(  MAXREG),  SWHAT2  ( MAXREG ) , 
SXY (MAXREG) , SY2 ( MAXREG ) , SZERO 


iuwu/ni , v • nruwij  a i , 

.(MAXDAT,  MAXREG), 
SX2 (MAXREG)  , 


LIST  OF  VARIABLES 

BIGKHT  EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 

BZERO  VALUE  OF  WE I BULL  PARAMETER,  BETAo,  CHARACTERIZING  THE  S/N 

DATA  SET 

CZERO  EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  CO 

DDM  1-D  ARRAY  CONTAINING  SXY(L)/SX2(L)  FOR  EACH  REGION 

DELTA ( ) 1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) 

AND  SIG( ) CALCULATION 

FTUZ  ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

FTYZ  YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

I OUT  OUTPUT  DUMP  CONTROLLER 

IZERO()  2-D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 

FOR  EACH  REGION 

JZERO()  2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 

FOR  EACH  REGION 

KRATIO  RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMN  lambda-n  — RATIO  OF  Var(Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 
LNNF  ( ) 3-D  ARRAY  CONTAINING  LN( RAWNF ( ) ) , ALSO  INDEXED  FOR  REGION 

LNSTR ( ) 3-D  ARRAY  CONTAINING  LN ( RATSTR ( ) ) , ALSO  INDEXED  FOR  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXSET  MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

MC  ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 

REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
— MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

MCHAT ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
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MCPNT ( ) 

MEDM( ) 
MO() 

MPNT( ) 

MPROC 

MU() 

MZERO( ) 

NBND( ) 

NF<) 

NNODAT 

NP() 

NPPR( ) 

NPTS( ) 
NSETS 
NUMREG 
PVAR 
RAN GEM ( ) 

RATSTR( ) 

RAWNF() 

RAWSTR( ) 

REFNP ( ) 

SIG() 

SIGMA2 ( ) 

STR(  ) 

SUHAT2 ( ) 

S WHAT 2 ( ) 

SX2() 

SXY  ( ) 

SY2() 

SZERO 

VARY 

ZROREG 


FOR  EACH  REGION,  RASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) « -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  “ SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC ( ) FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION  „ , „ „ 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 


MZEROn  FOR  EACH  REGION  

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST 

MATERIALS  PROCESS  VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 


(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  * Ln  S,  Y ■ Ln  N) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  *=  Ln  S,  Y * Ul  N I 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 
REGION  (X  = Ln  S,  Y = Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  = Ln  N) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION ; 3 - TRUNCATED  NORMAL  VARIATION 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


OPEN ( 5 , FILE  = ' RELATD ' , STATUS  ■ 'OLD') 

OPEN ( 6 , FILE  = ' RELATO ' , STATUS  = 'NEW') 

C RELATD  CONTAINS  THE  RELATED  MATERIAL  S/N  DATA  SET  INFORMATION 
C RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 
C INFORMATION 

C PERFORM  CALCULATIONS  COMMON  TO  BOTH  UNIFORM  AND  NORMAL  TYPE  OF  VARIATION 
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C INITIALIZE  PRIMARY  ARRAYS 

CALL  IN IT  (NPTS , RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 
& NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 ) 


C READ,  CONVERT,  ECHO  INFORMATION 


CALL  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 
& LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG,  NUMREG, 

& NSETS.  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ, 

& SIGMA2 , KRATIO,  LAMN) 


LNSTR, 

NNODAT, 

DELTA, 


MO, 


C CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (NUMREG,  NSETS.  NP,  LNSTR,  LNNF,  SX2,  SXY,  SY2,  DD, 
& SWHAT2,  SUHAT2 , NPPR) 


C CALCULATE  M CONTRAINT  BASED  ON  Co 

CALL  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2) ) THEN 

C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 

C CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2 , SUHAT2,  NPPR,  IZERO, 
i JZERO,  MCHAT) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

CALL  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  TO 
C OBTAIN  POSTERIOR  RANGES  ON  M 

CAIL  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT, 

& RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 


CALL  CONCAV  (NUMREG,  RANGEM) 


C WRITE  RESULTS  TO  FILE  DUMP 


WRITE(7,900) 


& 

25 


DO  25  L = 1.  NUMREG 

WRITE(7,905)  L,  IZERO(l,  L) 
JZERO ( 1 , L) 

CONTINUE 


IZERO(2,  L), 
JZERO ( 2 , L) 


WRITE(7, 910) 

DO  50  L - 1.  NUMREG 

WRITE(7,915)  L,  MCHAT(2,L),  MCHAT ( 1 ,L) 
50  CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE{7 , 960) 

DO  150  L - 1,  NUMREG 

IF  (MCPNT(L)  .EQ.  1)  THEN 
WRITE(7 .965)  L,  MC ( 1 , L ) 

ELSE IF  (MCPNT(L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 
ENDIF 
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150  CONTINUE 

END  IF 

WRITE(7,920) 

WRITE(7, 930) 

DO  100  L = 1,  NUMREG 

WRITE(7, 940)  L,  RANGEM(1,L),  RANGEM(2,L) 

100  CONTINUE 

WRITE(7  ,950) 

C CALCULATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 

CALL  MEDIAN  (NUMREG,  RANG EM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 

CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUMREG,  ZRORBG, 

& NBND,  BIGKHT,  BZERO) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 

IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1))  THEN 
DO  200  L = 1.  NUMREG 

RANGEM(1,L)  = MEDM(L) 

RANGEM(2,L)  = MEDM(L) 

200  CONTINUE 

ENDIF 

ELSE 

C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION  FOR  EACH  REGION 

CALL  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO, 
& SIGMA2,  MCHAT,  MU,  SIG) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (MPROC  .EQ.  1)  THEN 

Call  gtpvar  (nsets,  np,  numreg,  lamn,  mchat,  pvar) 

ENDIF 

C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 

& MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 

CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 

WRITE(7,975) 

DO  350  L * 1,  NUMREG 

WRITE(7,9oO)  L,  MCHAT ( 1,L) 

350  CONTINUE 


IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7, 960) 

DO  360  L = 1,  NUMREG 

IF  (MCPNT (L)  .EQ.  1)  THEN 
WRITE ( 7 , 965)  L,  MC(1,L) 

ELSEIF  (MCPNT (L)  .EQ.  2)  THEN 

WRITE (7, 970)  L,  MC(1,L),  MC(2,L) 
ENDIF 
CONTINUE 
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ENDIF 


WRITE(7, 920) 

WRITE (7, 930) 

DO  370  L - 1,  NUMREG 

WRITE(7,940)  L,  RANGEM(1,L),  RANGEM(2,L) 

370  CONTINUE 

WRITE( 7, 950) 

WRITE(7,985) 

DO  380  L - 1.  NUMREG 

WRITE(7,9§0)  L,  MU(L),  SIG(L) 

380  CONTINUE 

ENDIF 

C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 

IF  (MPROC  .EQ.  1}  THEN 
WRITE(7, 995)  War 
ENDIF 


C FORMAT  STATEMENTS 


900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ', 

t,  'Technology.  U.S.  Government' ,/,2X, 'Sponsorship  under 

'NASA  Contract  NAS7-918  is  acknowledged. ',////, 

2X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS ' , 
///,2X, '95%  CONFIDENCE  INTERVALS  ON  C AND  m 
'FOR  EACH  REGION',/) 


9 


905  FORMAT ( 7X, ' REGION : ',I1.7X,'Io  * ! ' .F12.9, ' , ' ,F12.9, ' ) ' , 

& /,24X,'Jo  - (',Fl2.9,',',Fl2.9,')') 

910  FORMAT!//, 2X, 'POINT  ESTIMATES  OF  C AND  m FOR  EACH  REGION', 
& //,7X, 'REGION' ,8X, 'E(C) ' , 12X, 'E(m) ',/) 


915  FORMAT ( 9X, I1,8X,F11.9, 5X,F9 .6 ) 

920  FORMAT(///,2X, 'POSTERIOR  CREDIBILITY  RANGE  ON  m FOR  EACH  ' 
it  'REGION') 

930  FORMAT(//,2X, 'REGION' ,5X, 'LOWER  BOUND' , 5X, 'UPPER  BOUND',/) 

940  FORMAT(6X, II, 8X,F8 .4, 8X,F8.4) 

950  FORMAT (III) 

960  FORMAT ( // , 2X, 'RANGE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 

& 'CONSTRAINT', 

& //,2X, 'REGION' ,5X, 'LOWER  BOUND ', 5X, ' UPPER  BOUND',/) 


965  FORMAT(6X,Il, 8X, F8. 4, 8X, 'INFINITY' ) 

970  FORMAT ( 6X, 11, 8X,F8.4, 8X,F8.4) 

975  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ', 

& 'Technology.  U.S.  Government' ,/,2X, 'Sponsorship  under  ', 

i 'NASA  Contract  NAS7-918  is  acknowledged. ',////, 

k 2X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 

& ///,2X, 'ESTIMATE  OF  m FOR  EACH  REGION', 

& //,7X, 'REGION' ,12X, 'E(m) ',/) 

980  FORMAT(9X,I1,11X,F10.6) 

985  FORMAT! 2X, 'POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS', 
it  / /,  2X,  'REGION'  , 5X,  'MEAN'  , 8X,  'STD  DEV',/) 

990  FORMAT( 5X, 11, 5X,F7 .4, 5X,Ell .5) 

995  FORMAT! /,2X, 'THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  ', 

& 'MEDIAN  S/N  CURVE' ,/,2X, 'WARRANTED  BY  THE  AVAILABLE  ', 


7-172 


uouuouu 


INFORMATION' ,//,7X, Ell. 5) 


i 


RETURN 

END 


SUBROUTINE  TRMNAT  HANDLES  THE  TERMINATION  OF  THE  PROGRAM  RUN  WHEN 
ONE  OF  THE  PROGRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 
PROGRAMMER:  L.  NEWLIN 

DATE 9 50CT87 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5  . , , 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  TRMNAT 

WRITE ( 8 , * ) ' PROGRAM  EXECUTION  TERMINATED ' 

STOP 

END 


C*********** ********************************** *************************** 


c 

c 

c 

c 

c 

c 


SUBROUTINE  INIT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
USED  IN  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  INIT  (NPTS,  RAWNF,  RAWSTR,  RATSTR, 
& REFNP,  NF,  STR,  MPNT,  MZERO, 


NP,  LNNF,  LNSTR, 
DELTA,  MO,  SIGMA2) 


C INPUTS ! 

C OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  IHSTR,  REFNP, 

C NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  * 3,  MAXSET  “ 5) 


COMMON  I OUT 


INTEGER  I,  I OUT,  J,  K,  L,  MPNT ( MAXREG ) , NP ( 0 : MAXSET , MAXREG), 
& NPTS ( 0 : MAXSET ) , REFNP ( MAXREG ) 


REAL 

& 

& 

& 

& 

& 


DELTA ( MAXREG ) , LNNF ( MAXDAT , 0: MAXSET,  MAXREG), 
LNSTR( MAXDAT , 0 : MAXSET,  MAXREG),  MO(MAXREG) , 
MZERo! 2,  MAXREG} , NF (MAXDAT,  MAXREG), 

RATSTR (MAXDAT,  6:MAXSET),  RAWNF(MAXDAT,  0: MAXSET) 

; ' a ...  . . 'S  v 


RAWSTR ( MAXDAT , OsMAXSET), 
STR ( MAXDAT , MAXREG) 


SIGMAz  (MAXREG)  , 


9 


c 

c 

C DELTA ( ) 
C 

C I 
C I OUT 
C J 
C K 
C L 

C LNNF  { ) 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) AND 
SIG(  ) CALCULATION  _ _ 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

3-D  ARRAY  CONTAINING  LN ( RAWNF ())  , ALSO  INDEXED  FOR  REGION 
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3-D  ARRAY  CONTAINING  LN ( RATSTR ( ) } . ALSO  INDEXED  POR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
XS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

2- D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 
STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 
DATA  («)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR ()  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  «) 

DO  100  J = 0,  MAXSET 
NPTS(J)  * 0.0 
100  CONTINUE 

DO  200  L « 1,  MAXREG 
DO  250  J = 0,  MAXSET 
NP(J,  L)  **  0.0 
250  CONTINUE 
200  CONTINUE 

DO  300  J - 0,  MAXSET 
DO  350  I ■ 1,  MAXDAT 
RAWNF(I,J)  - 0.0 
RAWSTR(I, J)  « 0.0 
RATSTR(I,J)  - 0.0 
350  CONTINUE 

300  CONTINUE 

DO  400  L = 1,  MAXREG 
DO  425  K = 1,  MAXDAT 
DO  450  J ■ 0,  MAXSET 
LNNF(K.J,LJ  - 0.0 
LNSTR(K,J,L)  = 0.0 
450  CONTINUE 

425  CONTINUE 

400  CONTINUE 


LNSTRf ) 

MAXDAT 

MAXREG 

MAXSET 

MO() 

MPNT( ) 

MZERO( ) 

NF  ( ) 

NP  ( ) 

NPTS ( ) 
RATSTR ( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

SIGMA2 ( ) 

STR(  ) 


550 

500 


DO  500  L * 1, 
DO  550  K * 
NF(K,L) 
STR(K,L) 
CONTINUE 
CONTINUE 


MAXREG 
1.  MAXDAT 
> 0.0 
- 0.0 


DO  600  L - 1,  MAXREG 
REFNP(L)  « 0 
MPNT(L)  = 0 
MZERO(l,L)  **  0.0 
MZERO(2,L)  = 0.0 
DELTA(L)  - 0.0 
MO(L)  - 0.0 
SIGMA2 (L)  * 0.0 
600  CONTINUE 


RETURN 

END 
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c***** ★**★★*★*★★** *+* 


SUBROUTINE  RCE  "READS’*  THE  DATA  FROM  SPECFD  AND  RELATD;  "CONVERTC" 
THE  STRESS  DATA  TO  A STRESS  RATIO  OF  -1.0; 

SPECFO  AND  RELATO.  RCE  ALSO  BREAKS  S/N  DATA  SETS  INTO  REGIONS  AS 
SPECIFIED  BY  USER 

PROGRAMMER:  L.  NEWLIN  , 

DATE:  21JUN88  FORMAT /COMMENTS : 12AUG91 

VERSION:  MATCHR  V8 • 1 , V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF , RAWSTR,  RATSTR,  NP, 

& LNSTR,  LNNF,  REFNP,  STR,  NF,  SZERO,  ZROREG, 

& NUMREG,  NNODAT,  NSETS,  NBND,  CZERO.MPNT,  MZERO, 

& FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2,  KRATIO,  LAMN) 


INPUTS:  VARY,  MPROC  

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNSTR, 

STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNODAT, 
CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ , DELTA, 
KRATIO,  LAMN 

SUBPROGRAMS:  TRMNAT,  CONVRT 


LNNF,  REFNP, 
NSETS,  NBND, 
MO,  SIGMA2, 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  * 3,  MAXSET  = 5) 


COMMON  I OUT 

INTEGER  COUNT,  I,  IOUT,  J,  K,  L,  M,  MPNT  (MAXREG ) , MPROC,  NDIV, 
NNODAT,  NP(0:MAXS&T,  MAXREG) , NPTS ( 0 :MAXSET) , NSETS, 

NUM,  NUMREG,  REFNP ( MAXREG ) , REG,  VARY,  ZROREG 

REAL  CZERO,  DELTA ( MAXREG ) , FTU,  FTUZ,  FTY , FTYZ, 

KRATIO,  LAMN,  LNNF (MAXDAT,  0:MAXSET,  MAXREG), 

LNSTR  ( MAXDAT , 0:MAXSET,  MAXREG),  MO  (MAXREG)  , 

MZERO  ( 2 , MAXREG),  NBND  ( 0 : MAXREG ) , NF  (MAXDAT,  MAXREG), 
RATIO,  RATSTR  ( MAXDAT , 6:MAXSET),  RAWNF  (MAXDAT,  0:MAXSET), 
RAWSTR (MAXDAT,  0:MAXSET),  SIGMA2 (MAXREG) , 

STR  ( MAXDAT , MAXREG),  SZERO 

CHARACTER*  4 0 DESCRP ( 0 : MAXSET ) 


& 

& 


& 

& 

& 

& 

& 

& 


C 

c 

C COUNT 

c 

C CZERO 

c 

C DELTA ( ) 

C 

C DESCRP () 
C FTU 
C FTUZ 
C FTY 
C FTYZ 
C I 
C IOUT 
C J 
C K 

C KRATIO 
C L 
C LAMM 
C 

C LNNF j ) 

C LNSTR ( ) 
C M 


LIST  OF  VARIABLES 

INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 

CONVERSION,  AND  BREAK  UP  . ^ 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  CO  „ „„„ 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) AND 

SIG( ) CALCULATION  

1_D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  OF  MATERIAL  DATA  SET 

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  ALL  REGIONS  AND  COMPONENTS 
3-D  ARRAY  CONTAINING  LN(RAWNF( ) ) , ALSO  INDEXED  FOR  REGION 
3-D  ARRAY  CONTAINING  LN (RATSTR (]),  ALSO  INDEXED  FOR  REGION 
CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION 
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MAXDAT  MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXSET  MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

MO<)  1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION 

MPNT()  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO( ) FOR  EACH  REGION 

MPROC  Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 

VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 
MZERO(  ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 


NBND ( ) 

NDIV 

NF() 

NNODAT 

NP() 

NPTS  ( ) 

NSETS 

NUM 

NUMREG 

RATIO 

RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP( ) 

REG 

SIGMA2 ( ) 

STR(  ) 

SZERO 

VARY 


ZROREG 


1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO, 

REGION  PAIRS  DURING  INPUT 

2- D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISION 
NUMBER  OF  REGIONS  OF  INTEREST 
STRESS  RATIO  (R  = -1.0  IS  DESIRED) 

2- D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR  STRESS 
RATIO  OR  TOTAL  STRAIN  DATA  («)  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
( REFERENCE ) MATERIAL  S/N  DATA  SET  IN  EACH  REGION 
REGION  OF  INTEREST  IN  A PARTICULAR  DIVISION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  «) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C INITIALIZE  COUNT  AND  NBND ( ) 

COUNT  = 0 

DO  10  L - 0,  MAXREG 
NBND(L)  - 0.0 
10  CONTINUE 

C INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 

READ( 1, *)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(O) 

IF  (NPTS(0)  .GT.  MAXDAT)  THEN 

WRITE ( 8 , * ) 'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ', 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 

WRITE(3,900)  DESCRP(O),  FTY.  FTU,  NPTS(0) 

IF  ( I OUT  .EQ.  10)  WRITE(8,900)  DESCRP(d),  FTY,  FTU,  NPTS(0) 

WRITE (3, 905) 

IF  ( I OUT  .EQ.  10)  WRITE (8, 9 05) 

C STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 
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FTUZ  « FTU 
FTYZ  - FTY 

INPOT  STRESS /LIFE  INFORMATION  — INCLUDING  STRESS  RATIO  AND  REGION 
INFORMATION  FROM  SPECFD  AND  ECHO  TO  SPECFO 


DO  100  M = 1,  NDTV 

READ  (1,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN  

WRITE (8,*)  'ERROR:  INVALID  VALUE  FOR  RATIO:  RATIO 

CALL  TRMNAT 
END  IF 

IF  (REG  .GT.  MAXREG)  THEN  

WRITE (8,*)  'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

DO  110  I = (COUNT  +1),  (COUNT  + NUM) 

READ(1,*)  RAWSTR( I , 0 ) , RAWNF(I,0) 

110  CONTINUE 

CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

STRESS  RATIO  IS  CORRECT 

DO  120  I - (COUNT  + 1),  (COUNT  + NUM) 

RATSTR(  1,0)  = RAWSTR(I,0) 

120  CONTINUE 

ELSE 

STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1 ) , (COUNT  + NUM),  RAWSTR,  RATSTR, 

& RATIO,  FTU,  FTY) 


ENDIF 

ECHO  STRESS /LIFE  DATA  ON  SPECIFIC  MATERIAL 


DO  130  I = (COUNT  +1),  (COUNT  + NUM) 


WRITE (3,910)  RAWSTR( 1,0),  RAWNF(I,0),  RATIO,  REG, 
RATSTR( 1,0),  RAWNF (1,0) 


IF 


( IOUT  .EQ.  10)  WRITE(8,910l  RAWSTR(I.O),  RAWNF(I,0), 
RATIO,  REG,  RATSTR(I,0),  RAWNF(I,0) 


130  CONTINUE 

BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 
EXPCTD,  AND  PAREST 

K = NP( 0,REG) 

DO  140  I * (COUNT  +1),  (COUNT  + NUM) 

K = K + 1 

LNSTR(K, 0,REG)  « ALOG(RATSTR( I , 0 ) ) 

LNNF(K,0,REG)  * ALOG ( RAWNF ( I , 0 ) ) 

STR(K, REG)  = RATSTR( I, 0 ) 

NF ( K , REG ) = RAWNF (1,0) 

140  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ', 

S,  'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 
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NP(O.REG)  - K 
REFNP(REG)  - K 
COUNT  - COUNT  + NUM 

100  CONTINUE 

IF  (NPTS(O)  .NE.  COUNT)  THEN 

WRITE ( 8 , * ) 'ERROR:  NUMBER  OF  POINTS  PER  DIVISION  ' , 

& ' INCORRECTLY  SPECIFIED' 

WRITE (8,*)  'IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
END  IF 

READ(1,*)  SZERO 
IF  (NINT  (SZERO)  .GT.  0)  THEN 
ZROREG  - 0 
ELSE 

ZROREG  = 1 
END  IF 

IF  (IOUT  .EQ.  10) 

& WRITE (8,*)  'SZERO  - SZERO,  ' ZROREG  - ',  ZROREG 
C INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORMATION 

READ< 1 , * ) NUMREG,  NNODAT 

IF  ((NUMREG  + NNODAT)  .GT.  MAXREG)  THEN 

WRITE (8,*)  'ERROR:  EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS’ 

CALL  TRMNAT 
ENDIF 

DO  150  L ■ ZROREG,  (NUMREG  + NNODAT) 

READ(1,*)  NBND(L) 

150  CONTINUE 

READ( 1, *)  CZERO 

DO  160  L - 1,  (NUMREG  + NNODAT) 

READ( 1, * ) MPNT(L) , MZERO(l,L),  MZERO(2,L) 

160  CONTINUE 

WRITE (3, 913) 

IF  (ZROREG  .EQ.  0)  WRITE(3,914)  SZERO 
IF  (IOUT  .EQ.  10)  THEN 
WRITE(8,913) 

IF  (ZROREG  .EQ.  0)  WRITE(8,914)  SZERO 
ENDIF 

WRITE (3, 9 15)  NUMREG,  NNODAT 

IF  (IOUT  .EQ.  10)  WRITE (8, 9 15)  NUMREG,  NNODAT 

DO  170  L = ZROREG,  (NUMREG  + NNODAT) 

WRITE ( 3,920)  NBND(L) 

IF  (IOUT  .EQ.  10)  WRITE (8, 920)  NBND(L) 

170  CONTINUE 

WRITE (3, 925)  CZERO 

IF  (IOUT  .EQ.  10)  WRITE(8,925)  CZERO 

DO  180  L = 1,  (NUMREG  + NNODAT) 

WRITE(3, 930)  L,  MPNT(L),  MZERO(l,L),  MZERO(2,L) 

IF  (IOUT  .EQ.  10) 

& WRITE(8,930)  L,  MPNT(L) , MZERO(l,L).  MZERO(2,L) 

IF  ((VARY  .EQ.  3)  .AND.  (MPNT(L)  .EQ.  0))  THEN 

WRITE (8,*)  'ERROR:  NORMAL  VARIATION  REQUIRES  A PRIOR  ', 

& 'RANGE  ON  M' 

CALL  TRMNAT 
ENDIF 
180  CONTINUE 

IF  (VARY  .EQ.  3)  THEN 

C READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 

WRITE(3, 945) 

IF  (IOUT  .EQ.  10)  WRITE( 8, 945) 
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1, 


$ 


NUMREG  + NNODAT) 

IGMA2 (L) 
MO(L),  SIGMA2 


DO  190  L 
READ(1 

WRITE (3, $50)  L.  DfeLTA(£,);'HO(L),  SlGMA2(L) 

IF  (IOUT  .EQ.  10) 

Write (8, 950)  L,  delta(L),  mo(L),  sigma2<l) 

IF  ((DELTA(L)  .LT.  0.0)  .or.  „ „ 

— " "■  (MO(L)  .LE.  0.0)))  THEN 

jUE  FOR  DELTA  OR  VALUE  OF  MO 
' INCONSISTENT  WITH  DELTA  IN  REGION  ' , L 


( (DELTA (L)  .GT.  0.0)  .AND. 
WRITE (8,*)  'ERROR:  BAD  VALti 


CALL  TRMNAT 
ENDIF 
190  CONTINUE 
ENDIF 


t 


IF  (MPROC  .EQ.  1)  THEN 
READ( 1, *)  KRATIO,  LAMN 
WRITE<3,955)  KRATIO,  LAMN 

IF  ( IOUT  .EQ.  10)  WRITE(8,955)  KRATIO,  LAMN 
ENDIF 


C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  TO  RELATO 

READ (5,*)  NSETS 

IF  (NSETS  .GT.  MAXSET)  THEN 

Write (8,*)  'error:  over  limit  on  number  of  related  data  sets' 

CALL  TRMNAT 
ENDIF 

WRITE (6, 935)  NSETS 
DO  200  J = 1,  NSETS 
COUNT  = 0 

IF  (IOUT.  EQ.  10)  WRITE ( 8 , * ) ' J , J,  ' NSETS  =' , NSETS 

READ(5, *)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

WRITE(8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  IN 

& 'SET  ',  J 

CALL  TRMNAT 
ENDIF 


WRITE (6, 940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 

IF  (IOUT  .EQ.  10)  WRITE(8,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 
WRITE (6, 9 05) 

IF  (IOUT  .EQ.  10)  WRITE(8,905) 

DO  300  M = 1,  NDIV 

READ (5,*)  NUM,  RATIO,  REG 

IF  (ABS( RATIO)  .GT.  1.0)  THEN 

WRITE (8,*)  'ERROR:  INVALID  VALUE  OF  RATIO:  ' , RATIO 

CALL  TRMNAT 
ENDIF 


& 


IF  (REG  .GT.  MAXREG)  THEN 

Write ( 8 , * ) 

'ERROR:  OVER  REGION  LIMIT  IN  RELATED  MATERIAL 

CALL  TRMNAT 
ENDIF 


J 


IF  (IOUT  .EQ.  10)  THEN 

Write (8,*j  'num  = ' , num,  ' count  = ' , count 

WRITE (8,*)  'RATIO  = ',  RATIO,  ' REG  = ',  REG 
ENDIF 

DO  310  I = (COUNT  + 1),  (COUNT  + NUM) 
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READ(5,*)  RAWSTR ( I , J ) , RAWNF(I,  J) 

CONTINUE 

C CHECK  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  320  I - (COUNT  + 1),  (COUNT  + NUM) 

RATSTR(I,J)  “ RAWSTR(I,J) 

320  CONTINUE 

ELSE 

C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT( J,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR, 

& RATSTR,  RATIO,  FTU,  FTY) 

ENDIF 

C RECORD  BOTH  S/N  DATA  SETS  TO  RELATO 

DO  330  I = (COUNT  +1),  (COUNT  + NUM) 

WRITE (6,910)  RAWSTR(I,J),  RAWNF(I,J),  RATIO,  REG, 

& RATSTR(I, J) , RAWNF(I,J) 

IF  ( IOUT  .EQ.  10)  WRITE( 8,910)  RAWSTR(I,J),  RAWNF(I,J), 
& RATIO,  REG,  RATSTR( I , J) , RAWNF(I,J) 

330  CONTINUE 

K - NP(J,REG) 

DO  340  I « (COUNT  +1),  (COUNT  + NUM) 

K « K + 1 

LNSTR(K, J,REG)  - ALOG ( RATSTR ( I, J) ) 

LNNF(K,J,REG)  - ALOG(RAWNF(I, J) ) 

340  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE ( 8 , * ) 'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  ', 

& 'IN  SET  ',  J 

CALL  TRMNAT 
ENDIF 

NP( J,  REG)  * K 
COUNT  = COUNT  + NUM 

300  CONTINUE 

IF  (NPTS(J)  .NE.  COUNT)  THEN 

WRITE (8,*)  'ERROR:  NUMBER  OF  POINTS  PER  DIVISION  ', 

& 'INCORRECTLY  SPECIFIED  IN  SET  ',  J 

CALL  TRMNAT 
ENDIF 

200  CONTINUE 


C FORMAT  STATEMENTS  USED  TO  WRITE  TO  S PE CFO  AND  RELATO 


900  FORMAT(////,13X, 'MATERIAL  INPUT' . ///,2X, 'DESCRIPTION: ' ,2X,A40,//, 
& 2X, 'YIELD  STRENGTH', 18X,Ell. 5. //,2X. 'ULTIMATE  STRENGTH', 

(,  15X,E11.5,//,2X,  'NUMBER  OF  POINTS ', 16X, 12 ) 


FORMAT( //, 7 X, 'ORIGINAL  S/N' ,9X, 'STRESS' , 15X, 'TRANSFORMED  S/N 
/,5X,{ STRESS ',7X, ' LIFE ',7X,' RATIO ',3X, 'REGION', 5X 
. 'STRESS' ,7X, 'LIFE'/) 


910  FORMAT(2X,E11.5,2X,F9.0,5X,F5.2,5X,I1,5X,E11.5,2X,F9.0) 
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913  FORMAT ( / / ) 

914  FORMAT (2X, 'THERE  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  So  OF' , 

fc  5X,Ell. 5) 

915  FORMAT ( 2 X.  'THERE  IS  ' ,12,  ' REGION (S)  WITH  DATA  ' , 

& /.flX,  'AND  ',12,'  REGION (S)  TO  THE  RIGHT  WITHOUT  DATA', 

t /,2X, 'THE  UPPER  BOUND(S)  OF  THE  REGION(S)  ARE  ', 

& ' (CYCLES) s ',/) 

920  FORMAT ( 1 OX , E9 . 3 ) 

925  FORMAT (///,2X, 'EXOGENOUS  INFORMATION' ,111, 2X, 

6 'CONSTRAINT  ON  COEFFICIENT  OF  VARIATION,  C:',2X,F6.4, 

& //,2X, 'EXPLICIT  CONSTRAINT  ON  m FOR  EACH  REGION:', 

& //,2X, 'REGION ',5X, '#  OF  POINTS' ,5X, 'LOWER  BOUND', 

& 5X, 'UPPER  BOUND' ,/) 

930  FORMAT (6X, II, 11X,I1, 12X, F7 .4,9X,F7 .4 ) 

935  FORMAT (2 OX, 'NUMBER  OF  DATA  SETS: ' ,2X,I2, //, 17X, 

& 'NOTE:  ALL  Kt  ASSUMED  TO  BE  1 . 0 ',////, 23X, 

6 'TRANSFORMED  DATA') 

940  FORMAT <///,2X, 'DESCRIPTION: ' ,2X,A40, 

& //,2X, 'YIELD  STRENGTH' .18X.F7.0, 

& //,2X, 'ULTIMATE  STRENGTH' .15X.F7.0, 

& //,2X, 'NUMBER  OF  POINTS ’ , 16X, 12) 

945  FORMAT (/,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS:', 

& //,2X, 'REGION' ,5X, 'DELTA' ,8X, 'mo' , 10X, ' SIGMA2 ' , /) 

950  FORMAT ( 5X, II, 5X, F7 .2 , 5X,F7 ,4,5X,E11.5) 

955  FORMAT (//,2X, 'MATERIALS  PROCESS  VARIATION  INFORMATION', 

& //, 2X, 'MEDK*/MEDK:',5X,E11.5,/,5X, 'LAMBDAN: ' , 5X,Ell .5 ) 


RETURN 

END 


^************************************************************************ 


THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  ON  STR( ) WHEN  THE 
STRESS  RATIO,  R,  IS  NOT  -1.0 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  CONVRT  (J,  NUMl,  NUM2,  STR,  RSTR,  R,  FTU,  FTY) 


C INPUTS:  J,  NUMl,  NUM2,  STR,  R,  FTU,  FTY 

C OUTPUTS : RSTR 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXSET  = 5) 

COMMON  I OUT 

INTEGER  I,  I OUT,  J,  NUMl,  NUM2 

REAL  FTU,  FTY,  R,  RSTR (MAXDAT , 0: MAXSET) , 
i STR ( MAXDAT , 0:MAXSET),  TEST 


C 


LIST  OF  VARIABLES 


ooooooors 


c 

C FTU 
C FTY 
C I 
C IOUT 
C J 

C MAXDAT 
C MAXSET 
C NUMl 
C NUM2 
C R 

C RSTR( ) 

C STR() 

C TEST 


ULTIMATE  STRENGTH  OF  MATERIAL  (PS I) 

YIELD  STRENGTH  OF  MATERIAL  (PSI) 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

DATA  SET  OF  INTEREST  .... 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

FIRST  INDEX  TO  BE  TRANSFORMED 

LAST  INDEX  TO  BE  TRANSFORMED 

STRESS  RATIO  (R  ■ -1.0  IS  DESIRED) 

STR( ) VALUES  TRANSFORMED  TO  R - -1.0  (PSI) 

ARRAY  CONTAINING  STRESS  VALUES  (PSI)  FOR  S/N  CURVE 
Kt  * Smax  * (1  - R)/2  , TO  BE  COMPARED  WITH  FTY 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I - NUMl,  NUM2 

TEST  - STR(I, J)  * (1.0  - R)/2.0 

IF  (IOUT. EQ. 10)  WRITE ( 8 , * ) 'I  J «',J, ' TEST  , TEST 

IF  (TEST  .GE.  FTY)  THEN 
RSTR(I,J)  - TEST 

IF  (IOUT. EQ. 10)  WRITE ( 8, *) ' 1:RSTR( ) «',RSTR(I,J) 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .GT.  FTY))  THEN 
RSTR(I,J)  » TEST/ (1.0  -((FTY  - TEST) /FTU) ) 

IF  (IOUT. EQ. 10)  WRITE ( 8 , * ) ' 2 :RSTR( ) *»' , RSTR ( I , J ) 

ELSE 

RSTR( I, J)  « TEST/ (1.0  - ((1.0  + R)  * STR(I,J) 

& / (2 .0  * FTU))) 

IF  (IOUT. EQ. 10)  WRITE(8, *) ' 3 :RSTR( ) «' ,RSTR(I,J) 

END  IF 

100  CONTINUE 

RETURN 

END 


£****** *★★****★*★*★**★★********★**★*★*★★* Jr******************************* 


SUBROUTINE  SW2SU2  CALCULATES,  SWHAT2,  THE  RESIDUAL  VARIANCES  OF  Y ON  X 
AND,  SUHAT2,  THE  X ON  Y REGRESSIONS  FOR  EACH  REGION  WHERE  Y - LN(NF)  AND 
X - LN(STR) ; TO  BE  USED  IN  THE  CONFIDENCE  INTERVAL  CALCULATIONS 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION : MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY, 
& SY2,  DD,  SWHAT2,  SUHAT2,  NPPR) 


C INPUTS:  NUMREG,  NSETS,  NP,  LNSTR,  LNNF 

C OUTPUTS:  SX2,  SXY,  SY2,  DD,  SWHAT2,  SUHAT2,  NPPR 


C IMPLICIT  NONE 
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INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  - 3,  MAXSET  * 5) 


COMMON  I OUT 


INTEGER  I OUT,  J,  K,  L,  NP(  0 : MAXSET,  MAXREG),  NPPR  ( MAXREG ) , 
& NSETS,  NUMREG 


REAL 

& 

& 

& 

& 


BB  (MAXREG)  , DD (MAXREG)  , DIFFX ( MAXDAT , 0 :j MAXSET ), 

DIFFY  ( MAXDAT , OsMAXSET),  LNNF  ( MAXDAT , Os  MAXSET,  MAXREG) 
LNSTR ( MAXDAT , 0 : MAXSET,  MAXREG),  MEANX( 0 : MAXSET) , 

MEANY  ( 0 : MAXSET ) , SUHAT2  ( MAXREG ) , SWHAT2  ( MAXREG ) , 

SX2  (MAXREG),  SXY  (MAXREG),  SY2  (MAXREG) 


9 


S|  I 

DIFFX () 

DIFFY () 

I OUT 
J 
K 
L 

LNNF ( ) 
LNSTR ( ) 
MAXDAT 
MAXREG 
MAXSET 
MEANX( ) 

MEANY ( ) 

NP() 

NPPR( ) 

NSETS 
NUMREG 
SUHAT2 ( ) 

S WHAT 2 ( ) 

SX2  ( ) 

SXY  ( ) 

SY2  ( ) 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  SXY(L) /SY2 (L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNSTR (K, J, L ) 

AND  MEANX(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 

2- D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K,J,L) 

AND  MEANY (J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

3- D  ARRAY  CONTAINING  LN(RAWNF( ) ) , ALSO  INDEXED  FOR  REGION 

3-D  ARRAY  CONTAINING  LN ( RATSTR ( ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (X  * Ln  S) 

1- D  ARRAY  CONTAINING  SAMPLE  Y MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (Y  - Ln  N) 

2- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 

SET  IN  EACH  REGION  , , 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )-l)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 

EACH  REGION  (X  = Ln  S,  Y = Ln  N)  

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  = Ln  N) 


C INITIALIZE  ARRAYS 

DO  50  L = 1,  MAXREG 
SY2(L)  =0.0 
SX2 ( L ) =0.0 
SXY (L)  =0.0 
SWHAT2(L)  =0.0 
SUHAT2 (L ) =0.0 
BB(L)  = 0.0 
DD(L)  =0.0 
NPPR(L)  = 0 
50  CONTINUE 

DO  60  J = 0,  MAXSET 
DO  70  K = 1,  MAXDAT 
DIFFY(K, J)  =0.0 
DIFFX(K, J)  = 0.0 
70  CONTINUE 

MEANY ( J)  ■ 0.0 
MEANX(J)  = 0.0 
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60  CONTINUE 

C NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2 , SUHAT2  FOR  EACH  REGION 


DO  100  L ■ 1,  NUMREG 
DO  200  J - 0,  NSETS 

C FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 

C FOR  DATA  SET  J IN  REGION  L 

MEANY(J)  - 0.0 
MEANX(J)  - 0.0 

IF  (IOUT  .EQ.  10)  WRITE(8,*)'L  , L,  ' J J, 
S ' NP  NP( J,L) 


DO  250  K - 1,  NP( J.L) 

MEANY(J)  - MEANY(J)  + LNNFfK.J.L) 

MEANX(J)  - MEANX(J)  + LNSTR(K, J,L) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)  'IHNF  LNNF(K,J,L), 
S,  ' LNSTR  ■ ' , LNSTR(K,J,L) 

250  CONTINUE 


& 


MEANY(J)  = MEANY( J) /FLOAT (NP(J,L) ) 
MEANX  J)  - MEANX( J) /FLOAT (NP(J,L) ) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 . * ) 'MEANY(J) 
' MEANX(J)  , MEANX (J) 


MEANY(J) , 


C NOW  CALCULATE  SAMPLE  VARIANCES,  SY2,  SX2  AND  SXY, 

C OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 

C DATA  SET  IN  REGION  L 


t 

& 


DO 


NP 


300  K » 1, 
DIFFY (K, J) 
DIFFX(K, J)  ” 
SY2(L| 


lnnf! 


F(K,J,L)  - MEANY 


SX2  ( L j 
SXY(L) 


SY2  (L 
SX2  (L 
SXY (L) 


LNSTR(K,J,L)  - 


IF  (IOUT 

WRITE ( 8, * ) 

WRITE (8,*) 


+ 
+ 
+ 

eq:  io) 


DlPFY(&, J 
DIFFX(K, J 
DIFFX(K,J) 
THEN 


MEANX(J) 

**  2 
**  2 

* DIFFY (K,J) 


'K  K,  ' DIFFY(K,J)  D 

' DIFFX(K, J)  DIFFX/K, J) 

'SY2 (L)  SY2 (L) , ' SX2(L) 

SXY(L)  =',  SXY (L) 


DIFFY (K, J) , 


SX2(L) 


300 

ENDIF 

CONTINUE 

200 

NPPR(L)  * NPPRJL 
IF  (IOUT  .EQ.  10 
CONTINUE 

) + NP(J.L)  - 1 

) WRITE(&,*)  'NPPR(L)  NPPR(L) 

t 


IF  (SXY(L)  .GE.  0.0)  THEN 

C LIFE  WILL  INCREASE  WITH  INCREASING  STRESS  — INVALID  FOR 

C OUR  MODEL 

WRITE ( 8 , * ) 'ERROR:  SXY  >-  0 IN  REGION',  L 
CALL  TRMNAT 
ENDIF 


NPPR(L)  - NPPR(L)  - 1 
IF  (NPPR(L)  .LE.  0)  THEN 

WRITE (8,*)  'ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN  ', 

& 'REGION  ’ ,L 

CALL  TRMNAT 
ENDIF 

SY2 (L)  = SY2 (L)  / FLOAT (NPPR (L ) ) 

SX2 (L)  - SX2 (L)  / FLOAT ( NPPR (L) ) 

SXY (L)  ■ SXY (L)  / FLOAT ( NPPR(L ) ) 

C NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 

C REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 

DD(L)  - SXY(L)  / SX2 (L) 

BB(L)  = SXY (L)  / SY2 (L) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'NPPR(L)  =' , NPPRjL) , ' SY2(L)  SY2(L), 

t,  ' SX2(L  SX2(L) 
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WRITE ( 8 , * ) ' SXY(L)  SXYJL),  ' DD(L)  DD(L), 

' BB(L)  BB(L) 

END  IF 

°°  IF^IOUT^EQ.  10)  WRITE ( 8 , * ) 'J  m' , J,  ' NP(J,L)  “* » NP(J,L) 
DO  500  K = 1,  NP(J,L) 

SWHAT2(L)  - ?WHAT2(L)  ^,T1  * .t  \ \ **  2 


500  CONTINUE 

400  CONTINUE 


AT2(L)  - SWHAT2^L)r  _ DD(L)  * DirFX(K,J))  **  2 

SUHAT2 ( L ) S . dIF^xIk, J)  - BB(L)  * DIFFY (K, J))  **  2^ 
(I OUT  .EQ.  10)  WRirajB,*)  'K  , K,  SWHAT2(L)  “ , 
SWHAT2 (L) , ' SUHAT2(L)  ■* , SUHAT2(L) 


100  CONTINUE 


T2(L) 


RETURN 

END 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CONFIDENCE  INTERVAL,  Io,  ON 
C;  AND  THE  95%  CONFIDENCE  INTERVAL,  Jo,  ON  M 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5  . r 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2 , SUHAT2,  NPFR,  IZERO, 
& JZERO,  MCHAT) 

INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR 

OUTPUTS:  IZERO,  JZERO,  MCHAT 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  CHITAB,  MAXREG,  TTAB 

PARAMETER  (CHITAB  = 150,  MAXREG  * 3,  TTAB  = 31) 

COMMON  I OUT 

INTEGER  I,  I OUT,  L,  NPPR  ( MAXREG ) , NUM,  NUMREG 


SUHAT,  SUHAT2 ( MAXREG ),  SWH 
SX2 (MAXREG),  T,  T025(TTAB) 


DATA  (CHI025(IJ,  I - 1^  75)  / 0.215795.  0.484419,  0.831211, 

I 1 237347,  1.68987,  2.17973,  2.70039,  3.24697, 

t 3181575,  4.40379,  5.00874,  5.62872,  6.26214, 

i 6.90766'  7.56418,  8.23075,  8.90655,  ?.59083, 

r in  28293,  10.9823,  11.6885,  12.4011,  13.1197, 

t 13:8439,'  lA.lfti',  15.3079;  16.0471,  16.7908, 

S.  17.53,  18.28,  19-04,  19.80,  20.56. 

& 21.33,  22.10,  22.87,  23.65,  24.4331, 

t 25. 2i;  25.99,  26.78,  27.57,  28.36, 
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29.15, 

29.95, 

30.75, 

31.55, 

32.3574, 

33.16, 

33.96, 

34.77, 

35.56, 

36.39. 

40.4817, 

37.21, 

38.02, 

38.84, 

39.66, 

41.30, 

42.12, 

42.95, 

43.77, 

44.60, 

48.7576, 

45.43, 

46.26, 

47.09, 

47.92, 

49.59, 

50.42, 

51.26, 

52.10, 

52.94  / 

DATA 

76 

, 150)  / 
54.62, 

55.46, 

56.30, 

57.1532, 

57.80, 

58.84, 

59.69, 

60.54, 

61.39, 

62.24, 

63.09, 

63.94, 

64.79, 

65.6466, 

66.50, 

67.35, 

68.21, 

69.07, 

69.92. 

70.78, 

71.64, 

72.50, 

73.36, 

74.2219, 

75.08, 

75.94, 

76.80, 

77.67, 

78.53, 

79.40, 

80.27, 

81.13, 

82.00, 

82.87, 

83.73, 

84.60, 

85.47, 

86.34, 

87.21, 

88.08, 

88.95, 

89.83, 

90.70, 

91.57, 

92.45, 

93.32, 

94.19, 

95.07, 

95.94. 

100.33, 

96.82. 

97.70. 

98.57, 

99.45, 

101.21, 

102.09, 

102.97, 

103.85, 

104.73, 

105.61, 

106.49, 

107.37, 

108.25, 

109.14, 

110.02, 

110.90, 

111.79, 

112.67, 

113.56, 

114.44, 

115.33, 

116.21, 

117.10, 

117.98  / 

DATA 

(CHI975( I) , 1*1, 
5.02389, 

7?l7776, 

9.34840, 

11.1433, 

12.8325, 

14.4494, 

16.0128, 

17.5346, 

19.0228, 

20.4831, 

21.9200, 

23.3367, 

24.7356, 

26.1190, 

27.4884, 

28.8454, 

30.1910, 

31.5264, 

32.8523, 

34.1696, 

35.4789, 

36.7807, 

38.0757, 

39.3641, 

40.6465, 

41.9232, 

43.1944, 

44.4607, 

45.7222, 

46.9792, 

48.23, 

49.48, 

50.72, 

51.96, 

53.20. 

54.44, 

55.67 

56.89, 

58.12, 

59.3417, 

60.56, 

61.77, 

62.99, 

64.20, 

65.41. 

& 

66.62, 

67.82, 

69.02, 

70.22, 

71.4202, 

72.61, 

73.81, 

75.00, 

76.19, 

77.38, 

78.57, 

79.75, 

80.93, 

82.12, 

83.2976, 

84.48, 

85.65, 

86.83, 

88.00, 

89.18. 

90.35, 

91.52 

92.69, 

93.86, 

95.0231, 

96.19, 

97.35, 

98.52, 

99.68, 

100.84  / 

DATA 

(CHI975 ( I) .1-76 
102.00, 

, 150}  / 
103.16, 

104.31, 

105.47, 

106.629, 

107.78, 

108.94, 

110.09, 

111.24, 

112.39. 

113.54, 

114.69, 

115.84, 

116.99, 

118.136, 

119.28, 

120.43, 

121.57, 

122.72, 

123.86. 

125.00, 

126.14, 

127.28, 

128.42, 

129.561, 

130.70, 

131.84, 

132.98, 

134.11, 

135.25, 

136.38, 

137.52, 

138.65, 

139.79, 

140.92, 

142.05, 

143.18, 

144.31, 

145.44, 

146.57, 

& 

147.70, 

148.83, 

149.96, 

151.09, 

152.21, 

& 

153.34, 

154.47, 

155.59, 

156.72, 

157.84, 

& 

158.97, 

160.09, 

161.21, 

162.33, 

163.46, 

& 

164.58, 

165.70, 

166.82, 

167.94, 

169.06, 

& 

170.18, 

171.30, 

172.41, 

173.53, 

174.65, 

& 

175.77, 

176.88, 

178.00, 

179.12, 

180.23, 

& 

181.35, 

182.46, 

183.58, 

184.69, 

185.80  / 

C VALUES  FOR  THE  TABLES  ABOVE  WERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 
C 

C 1-30,  40,  50,  60,  70,  80,  90,  100  ~ Theil,  pp.  718-719 

C 31-39,  41-49.  51-59.  61-69,  71-79,  81-89,  91-99,  101-150 
C — CALCULATED  USING  CUBE  RULE  APPROXIMATION 


DATA  T025  / 12.706,  4.303,  3.182,  2.776,  2.571,  2.447, 

& 2.365,  2.306,  2.262,  2.228,  2.201,  2.179, 

& 2.160,  2.145,  2.131,  2.120,  2.110,  2.101, 

& 2.093,  2.086,  2.080,  2.074,  2.069,  2.064, 

& 2.060,  2.056,  2.052,  2.048,  2.045,  2.042,  1.960  / 


C LIST  OF  VARIABLES 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ARG 

CHI 02 5 ( ) 
CHI975 ( ) 
CHITAB 
DD() 

I OUT 
I ZERO ( ) 

JZERO( ) 

L 

MAXREG 
MCHAT ( ) 


NFPR() 

NUM 
NUMREG 
SUHAT 
SUHAT2 ( ) 

SWHAT 
SWHAT2 ( ) 

sx 

SX2() 

C T 

C T025() 

C TTAB 


INTERMEDIATE  CALCULATION  VARIABLE  ,_L  ■ -irL., 

TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI025  AND  CHI975 

1—  D ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION 
CONTROLS  LOOP  FOR  CHI025J)  AND  CHI975() 

OUTPUT  DUMP  CONTROLLER  „ 

2- D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 

FOR  EACH  REGION  . 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1,L)  « -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  - SUHAT,  THE  ESTIMATE  FOR  C 
1— D ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )T1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATIONS 
NUMBER  OF  REGIONS  OF  INTEREST 

EQUAL  TO  SUHAT2 (L) **0 . 5 FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  ■ Ln  S,  Y » Ln  N) 

EQUAL  TO  SWHAT2 (L) **0 . 5 FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N ) 

EQUAL  TO  (NPPR(L)*SX2(L)  )**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 


(X  = Ln  S) 

VALUE  OF  T025()  USED  IN  CALCULATIONS 
TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 


MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  IZERO,  JZERO  AND  MCHAT 

DO  50  L - 1,  MAXREG 
IZERO(l,L)  - 0.0 
IZERO(2 ,L)  - 0.0 
JZERO ( 1 , L ) *=  0.0 
JZERO ( 2 , L ) = 0.0 
MCHAT ( 1 , L ) = 0.0 
MCHAT ( 2 , L ) = 0.0 
50  CONTINUE 

C CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEEDED 

DO  75  L = 1,  NUMREG 

IF  (NPPR(L)  .GT.  CHITAB)  THEN 

WRITE ( 8 , * ) 'ERROR:  EXCEEDED  LIMIT  ON  DEGREES  OF  FREEDOM  ', 

& 'IN  CHI-SQUARE  TABLE,  IN  REGION  ',  L 

CALL  TRMNAT 
ENDIF 
75  CONTINUE 

C ASSIGN  VALUES  TO  NUM,  T,  SWHAT,  SUHAT  AND  THEN  CALCULATE 
C CONFIDENCE  INTERVALS  FOR  EACH  REGION 

DO  100  L = 1,  NUMREG 

NUM  = NPPR(L) 

IF  (NUM  .LT.  31)  THEN 
T = T025 (NUM) 

ELSE 

T = T025  (NUM) 

ENDIF 

SWHAT  - SWHAT2(L)  **  0.5 
SUHAT  = SUHAT2 (L)  **0.5 
SX  = (NUM  * SX2(L))  **  0.5 

C CALCULATE  ESTIMATED  VALUES  OF  M AND  C 
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ARG  ■ T * SWHAT  / SX 
HCHAT( 1,L)  - - DD(L) 

MCHAT( 2 , L)  = SUHAT 

C CALCULATE  CONFIDENCE  INTERVALS 


IZERO(l,L)  - MCHAT(2,L)  * (FLOAT(NUM)  / CHI975(NUM))  **  0.5 
IZERO(2,L)  - MCHAT(2 ,L)  * (FLOAT (NUM)  / CHI025(NUM))  *•  0.5 
JZERO<l,L)  - MCHAT( 1,L)  - ARG 
JZERO(2,L)  - MCHAT(  1,L)  -I-  ARG 


IF  (IOUT  .EQ. 
WRITE ( 8, * ) 
WRITE ( 8, * 1 
WRITE ( 8 , * ) 
WRITER  8, * ) 
WRITE  1 8, * ) 
WRITE (8,*) 
WRITE ( 8 , * j 

& 

WRITE ( 8 , * ) 

& 

WRITE (8,*) 

& 

END  IF 
100  CONTINUE 


10)  THEN 

'L  L,  ' NPPR  »*,  NPPR(L) . ' NUM  , NUM 
'SWHAT 2 SWHAT2 (L) , ' SWHAT  , SWHAT 

2(L),  ' SUHAT  , SUHAT 

' SX 


SUHAT2  , SUHAT2 ( 

SX2  , SX2 (L) , ' SX  SX 

25 (NUM).  ' CHI975  , CHI975(NUM) 
DD  ■*,  DD(li) , » ARG  , ARG 
IZERO( 1,L) , ' IZERO(2,L) 


'CHI 02 5 £h!6 
'T  T,  ' 

' I ZERO ( 1 ,L 
IZERO(2,L 
' JZERO( 1,L 
JZERO(2,L 
' MCHAT  ( 1 , L 
MCHAT ( 2 , L 


JZERO ( 1 , L ) , 
MCHAT ( 1 / L ) , 


JZERO(2,L) 

MCHAT(2,L) 


RETURN 

END 


c**** ***★*★★******★***★**★**★★★★*****★*★★★★★*********★****★★* ************ 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPON 
THE  CO  GIVEN  BY  THE  USER 
PROGRAMMER : L . NEWL  IN 

DATE:  CODE:  80CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8,l,  V8.2,  V8.3f 

V8 • 4 , V8 • 5 

MATGRM  V4,  V4.1,  V4.2f  V4.3,  V4,4,  V4.5 

SUBROUTINE  FINDMC  (NUMREG,  CZEROr  SX2,  SXY,  SY2 , MCPNT,  MC) 

C INPUTS:  NUMREG,  CZERO,  SX2 , SXY,  SY2 

C OUTPUTS:  MCPNT,  MC 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  « 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  MCPNT ( MAXREG ) , NUMREG 

REAL  ARG1 , ARG2 , CZERO,  CZER02 , MC(2,  MAXREG),  SX2 (MAXREG) , 

& SXY (MAXREG),  SY2 (MAXREG) 


C 

C 

C ARG1 
C ARG2 
C CZERO 
C 

C CZER02 
C IOUT 
C L 


LIST  OF  VARIABLES 

INTERMEDIATE  CALCULATION  VARIABLE 
INTERMEDIATE  CALCULATION  VARIABLE 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 
EQUAL  TO  CZERO  **  2 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
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MAXREG 

MC<) 


MCPNT ( ) 

NUMREG 
SX2  ( ) 

SXY  ( ) 

SY2() 


MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH  REGION 
CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER  BOUND 
1— D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC( ) FOR  EACH  REGION 

NUMBER  OF  REGIONS  OF  INTEREST  

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  * Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR 
EACH  REGION  (X  * Ln  S,  Y “ Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  - Ln  N) 


INITIALIZE  VARIABLES 


DO  50  L * 1, 
MCPNT (L)  ■ 
MC( 1,L)  - 


MAXREG 
= 0 
0.0 
0.0 


BEGIN  CALCULATIONS 
CZER02  * CZERO  **  2 
IF  ( I OUT  .EQ.  10) 

6 WRITE (8,*)  'CZERO  = ',  CZERO,  ' CZER02  “ ',  CZER02 

DO  100  L = 1,  NUMREG 

ARGl  = SX2 ( L ) - CZER02 
ARG2  *0.0 

IF  (CZERO  .EQ.  0.0)  THEN 

THEN  NO  M CONSTRAINT  IS  REQUIRED 
MCPNT (L)  * 0 

ELSEIF  (ABS(ARGl)  .LT.  1.0E-6)  THEN 

THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 
MCPNT ( L ) = 1 

MC(1,L)  * - SY2(L)  / (2.0  * SXY(L) ) 

ELSE 

THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOME 
COMMON  CALCULATIONS 

ARG2  = ( SXY ( L ) **  2 - SY2(L)  * ARGl) 

IF  (ARG2  .LT.  0.0)  THEN 
C ARG2  IS  NEGATIVE  — IMPLIES  M IS  COMPLEX 

WRITE ( 8 , * ) 'ERROR:  Co  TOO  LOW' 

CALL  TRMNAT 
ELSE 

ARG2  = ARG2  **  0.5 
ENDIF 

IF  (SX2(L)  .LT.  CZER02)  THEN 

C AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 

MCPNT fL)  =1  , 

MC ( 1 , L ) = (-  SXY(L)  - ARG2)  / ARGl 

ELSE 

C SX2 (L)  .GT.  CZER02  — THIS  TIME  THE  M CONSTRAINT  IS  A RANGE 

MCPNT (L)  * 2 
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MC 

[1,L)  - 

(-  SXY (L 

) - ARS2) 

MCI 

[2/L)  - 

(-  SXY (L 

) -1-  ARG2) 

ARGl 

ARGl 


ENDIF 


ENDIF 
100  CONTINUE 


IF  (IOUT  .EQ.  10)  THEN 
DO  200  L « 1,  NUMREG 

WRITE ( 8 , * ) 'L  ■ L,  ' MCPNT  » MCPNT(L) 

WRITE  8,*  'ARG1  - ARG1,  ' ARM  - ' , ARS2 

WRITE ( 8 , * ) 'NC( 1,L)  - MC(1,L),  ' MC(2fL)  - ' , MC(2,L) 

200  CONTINUE 

ENDIF 


RETURN 

END 


C**** ******************************** ************************************ 


SUBROUTINE  GTPVAR  CALCULATES  THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE 
HEAT  MEDIAN  S/N  CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION : MATCHR  V8.1,  V8.2,  V8*3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

INPUTS:  NSETS,  NP,  NUMREG,  LAMN,  MCHAT 

OUTPUTS : PVAR 

IMPLICIT  NONE 

INTEGER  MAXREG,  MAXSET 

PARAMETER  (MAXREG  - 3,  MAXSET  « 5) 

COMMON  IOUT 

INTEGER  IOUT,  J,  L,  NP(0:MAXSET,  MAXREG),  NSETS,  NUM( MAXREG) , 

& NUMREG,  TOTAL 

REAL  LAMN,  MCHAT  ( 2 , MAXREG),  PS  IG2  (MAXREG)  , PVAR,  SUM 


LIST  OF  VARIABLES 


IOUT 

J 

L 

LAMN 

MAXREG 
MAXSET 
MCHAT ( ) 


NP  ( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var  (Ln  N aiven  S)  / <m**2  C**2), 
CONSTANT  OVER  REGIONS  AND  COMPONENTS 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 
2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1,L)  - -DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT  2, L)  - SUHAT,  THE  ESTIMATE  FOR  C 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 
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NSETS 
NUM  ( ) 

NUMREG 
PSIG2 ( ) 

PVAR 

SUM 

TOTAL 


NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

EQUAL  TO  Nj-1  FOR  EACH  REGION  WHERE  Nj  IS  THE  SUM  OF  THE 
NUMBER  OF  POINTS  IN  EACH  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST  „„  nanj1T_. 

1-D  ARRAY  CONTAINING  ESTIMATES  OF  THE  MATERIALS  PROCESS 

VARIATION  IN  EACH  REGION  „ 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPIE  HEAT  MEDIAN  S/N 

CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION  

WEIGHTED  SUM  OF  THE  PSIG2B  — USED  TO  CALCULATE  A WEIGHTED 
AVERAGE 

SUM  OF  NUM( ) OVER  ALL  REGIONS 


INITIALIZE  VARIABLES 

SUM  =0.0 
TOTAL  =0.0 

DO  50  L = 1,  MAXREG 
PSIG2 (L)  =0.0 
NUM(L)  = 0 
50  CONTINUE 

DO  100  L = 1,  NUMREG 
DO  150  J = 0,  NSETS 

NUM(L)  = NUM(L)  + NP(J,L) 

150  CONTINUE 

NUM(L)  = NUM(L)  - 1 
TOTAL  = TOTAL  + NUM(L) 

100  CONTINUE 

DO  200  L = 1,  NUMREG 

PSIG2 (L)  = (LAMN  - 1.0)  * MCHAT(2,L)  **  2 
SUM  = SUM  + PSIG2 (L)  * NUM(L) 

200  CONTINUE 

IF  ( IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'LAMN  = LAMN 
DO  300  L = 1,  NUMREG 

WRITE ( 8 , * ) 'L  = ',  L,  ' NUM  = NUM(L) 

WRITE ( 8 , * ) 'MCHAT  = MCHAT ( 2 , L ) , ' PSIG2  = PSIG2(L) 

300  CONTINUE 

WRITE (8,*)  'TOTAL  = ',  TOTAL,  ' SUM  = ',  SUM 
ENDIF 

PVAR  = SUM  / FLOAT  (TOTAL) 

RETURN 

END 


************************************************************************ 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KNOWLEDGE  ON  BOTH 
M AND  CO  WITH  THE  95%  CONFIDENCE  INTERVALS  (JZERO  FROM  INTRVL) 

TO  OBTAIN  POSTERIOR  CREDIBILITY  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT /COMMENTS : 12AUG91 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 
4 MCHAT,  RANGEM) 


C INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

C OUTPUTS : RANGEM 

C SUBPROGRAMS : TRMNAT 


C 


IMPLICIT  NONE 
INTEGER  MAXREG 


no  on  o o ooooooooooooooooooooooooooo 


PARAMETER  (MAXREG  ■ 3) 
COMMON  I OUT 


INTEGER  I OUT,  L,  MCPNT  ( MAXREG ) , MPNT  (MAXREG)  , NUMREG 


REAL  JZERO(2,  MAXREG),  LOWER,  MC(2.  MAXREG),  MCHAT(2,  MAXREG), 
& MZERO ( 2 , MAXREG),  RANGEM(2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 


IOUT 

JZERO() 

L 

LONER 

MAXREG 

MC<) 


MCHATO 

MCPNT () 
MPNT( ) 
MZERO ( ) 

NUMREG 

RANGEM() 

UPPER 


OUTPUT  DUMP  CONTROLLER  

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
— MC( 1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT(l.L)  - - DD(L) , THE  ESTIMATE 
FOR  M AND  MCHAT(2,L)  ■ SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC( ) FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO ( 1,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 

DO  50  L - 1,  MAXREG 
RANGEM ( 1 , L ) - 0.0 
RANGEM(2,L)  - 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 

DO  100  L * 1,  NUMREG 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  « ' , L,  ' NUMREG  - ' , NUMREG 
WRITE (8,*)  'MPNT  ■ ',  MPNT(L),  ' MCPNT  ■ ',  MCPNT (L) 
ENDIF 

IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  Jo 

RANGEM ( 1,L)  - JZERO(l,L) 

RANGEM(2,L)  * JZERO(2,L) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) ' RANGEM ( 1,L)  - ',  RANGEM ( 1,L) , 

& ' JZERO(l.L)  - ',  JZERO( 1,L) 

WRITE ( 8 , * ) ' RANGEM ( 2 , L ) - ',  RANGEM ( 2, L) , 

& ' JZERO(2,L)  - ',  JZERO(2,L) 

ENDIF 

ELSE IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A LOWER  BOUND  ON  M DUE 
TO  CO,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 
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LOWER  - AMAXl (JZERO ( 1,L) , MC(1,L)) 

UPPER  * JZERO(2, L)  

IF  (UPPER  .LT.  LOWER)  THEN  

WRITE (8,*)  'ERROR;  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 
CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L)  - LOWER 
RANGEM ( 2 , L)  - UPPER 
ENDIF 


& 


i 


IF 


(IOUT  .EQ. 
WRITE (8,*) 

WRITE ( 8 , * 
WRITE (8,* 
WRITE ( 8 , * 


ENDIF 


10)  THEN 
' JZERO(l,L) 
JZEROj2,L)  - 
'MC( 1/L) 
'LOWER  ■ 

'RAN GEM ( , 

’ RANGEM(2,L 


- ',  M&( 1, L 
',  LOWER,  ' 
l,tj  - RA 


JZERO(l,L) , 
JZERO ( 2 , L ) 
If  L) 


UPPER  - 

IGEM(  lfL 

RANGEM ( 2 , L 


UPPER 


ELSEIF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 


THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANGE 
CORRESPONDING  TO  THE  Co  CONSTRAINT,  ADJUST  Jo  ACCORDINGLY 


LOWER  = AMAXl (JZERO( 1,L) , MC(1,L)) 

UPPER  - AMINl( JZERO(2,L) , MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  - LOWER 
RANGEM(2,L)  - UPPER 
ENDIF 


& 


& 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ’ JZERO ( 1 , L ) 

' JZERO J 2 , L ) 

WRITE ( 8 , * ) 'MC(  1, 1»)  ■ ' 
WRITE ( 8,  * ) 'LOWER  ■ ', 
WRITE (8,*)  'RANGEM(lfL) 
' RANGEM(2,L) 

ENDIF 


- ',  JZERO(l,L), 

- ',  JZERO ( 2 , L ) 

, MC ( 1 , L ) , ' MC(2,L) 
LOWER,  ' UPPER  - ', 

- RANGEM ( 1 , L ) , 

- ',  RANG EM ( 2, L) 


UPPER 


MC(2,L) 


ELSEIF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM(1,L)  - MZERO(l,L) 
RANGEM ( 2 , L ) >0.0 


& 


IF  (IOUT 
WRITE 
WRITE 

ENDIF 


.EQ.  10)  THEN 

MZERO(  1..UI 
RANGEM  ( 1,1.) 
RANGEM(2fL) 


||,*|  'MZERO( lfL) 


MZERO ( 1 , L ) 

, RANGEM ( 1 , L ) 
, RANGEM  2, L) 


f 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  Co  CONSTRAINT 
USE  INTERSECTION  BETWEEN  JO  AND  Mo 


LOWER  - AMAXl (JZERO( 1,L) , MZERO(l,L)) 

UPPER  - AMIN1 ( JZERO(2,L) , MZERO(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN  

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  MO 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  » LOWER 
RANGEM ( 2, L)  “ UPPER 
ENDIF 


IF  (IOUT  .EQ.  10)  THEN 
WRITE (8,*)  'JZERO(l,L) 


JZERO(l,L), 
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' JZERO(2,L 
WRITE ( 8 , * ) 'MZEROi  1,L 
' MZER0(2,L 


WRITE | 

l8'*) 

'LOWER  - 

WRITE | 

[ 8,  *) 

' RANGEM ( 1,L) 

& 

' RANGEM ( 2, L) 

LOWER 


’,  RANGEM ( 1,L) , 
' , RANGEM(2,L) 


UPPER 


ENDIF 

ELSE  IF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1>)  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT,  INTERSECT  Jo  AND  Mo,  ADJUSTING  THE  LOWER  BOUND 
BY  MC  ACCORDINGLY 


LOWER  « AMAXl(JZERO(l,L),  MZERO(l,L),  MC(1,L)) 

UPPER  - AMIN 1 (JZEROI 2, L)1  MZERO(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN  

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  Mo,  ' , 

'AND  Me' 

CALL  TRMNAT 
ELSE 


RANGEM( 1,L) 
RANGEM ( 2, L) 


RANGEM 

ENDIF 


LOWER 

UPPER 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8,  *)  'JZEROI 1,L 
' JZEROi 2 , L 
WRITE ( 8 , * ) 'MZERO  1,L) 
MZERO(2,L) 


',  JZERO( 1,L) , 
',  JZEROi 2, L) 
',  MZERO(l,L), 
',  MZERO(2,L) 


WRITE ( 8 , * ) 'MC(1,L)  - ',  MC(1,L) 

WRITE ( 8 , * ) 'LOWER  - ',  LOWER,  ' UPPER  “ ', 
WRITE ( 8 , * ) ’RANEGM( 1,L)  - ',  RANGEM ( 1,L) , 

' RANGEM(2,L)  - ',  RANGEM ( 2 , L ) 


UPPER 


ENDIF 

ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  CO  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES  WITH  Jo 

LOWER.  « AMAXl(JZERO(l,L),  MZERO(l,L),  MC(1,L)) 

UPPER  - AMINl ( JZERO(2,L) , MZERO(2,L),  MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  MO,  ', 

'AND  Me' 


CALL  TRMNAT 
EHjSE* 

RANGEM ( 1 , L ) 
RANGEM ( 2 , L ) 
ENDIF 


LOWER 

UPPER 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' JZERO ( 1,L) 


JZERO 


11:8 


',  JZERO ( 1,L) , 
' , JZERO(2,L) 


WRITE ( 8 , * ) 'MZERO( 1,L)  « ',  MZERO(l,L), 

' MZEROf 2,L)  « ',  MZERO(2,L) 
WRITE(8,*)  'MC(1,L)  - ',  MC ( 1 , L ) 

WRITE ( 8 , * ) 'LOWER  « ' , LOWER,  ' UPPER  * 
“,*)  ' RANGEM ( 1 , L ) - ',  RANGEM( 1,L) , 
' RANG EM ( 2, L)  - RANGEM(2,L) 


WRITE(8,*)  'MC(1,L 
WRITE ( 8 , * ) 'LOWER  > 
WRITE (8,*)  'RANGEM 
' RANGEM 

ENDIF 


WRITE  I 8 , * ) ' RANGEM ( 1 , L ) “ ',  RANGEM ( 1,L) , 
' RANG EM ( 2, L)  - RANGEM(2,L) 


UPPER 


WRITE (8,*)  'ERROR: 
CALL  TRMNAT 


PRIOR  ON  M INCORRECTLY  SPECIFIED  IN 


CALL 

ENDIF 


RESTRICT  RANGE  TO  BE  NON-NEGATIVE 
RANGEM ( 1 , L ) - AMAXl (RANGEM ( 1,L) , 0.0) 
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RANGEM(1,L) 


IF  (IOUT  .EQ.  10)  WRITE (8,*)  'RANGEM< 1,L)  - 
100  CONTINUE 


CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 
DO  300  L « 1,  NUMREG 
IF  ( 

WRITE  (I 


RITE(8,*)  'NOTE:  E(m)  IS  NOT  IN  THE 

'ON  m IN  REGION  L 


POSTERIOR  RANGE 


300  CONTINUE 


RETURN 

END 


*******★★*★*★**★★★★**★***★*★********************* 


C 

C 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  FOR  REGIONS 
WITHOUT  DATA 

PROGRAMMERS  L.  NEWLIN  

DATE:  CODES  2FEB88  FORMAT /COMMENTS s 12AUG91  ^ 

VERSIONS  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 
V8.4,  V8-5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

INPUTS:  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

OUTPUTS:  RANGEM,  MCHAT,  NUMREG 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  LL,  MPNT ( MAXREG ) , NNODAT,  NUMREG 

REAL  MCHAT ( 2 , MAXREG),  MZERO<2,  MAXREG),  RANGEM(2 , MAXREG) 


C 

C 

C IOUT 
C L 
C LL 
C MAXREG 
C MCHAT ( ) 
C 
C 
C 

C MPNT( ) 

C 

C MZERO () 

C 

C 

C NNODAT 
C NUMREG 
C RANGEM  ( 
C 
C 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  # 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT  ( 1 , L ) * - DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT  ( 2 , L ) « SUHAT,  THE  ESTIMATE  FOR  C ^ 0 

1—  D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO ()  FOR  EACH  REGION  _ M 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO ( 1, L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM  ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 
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IF  (IOUT  .EQ.  10)  WRITE (8,* ) 'NUMREG  NUMREG 

DO  100  L - 1,  NNODAT 
NUMREG  - NUMREG  + 1 
Hi  - NUMREG 

IF  (IOUT  .EQ.  10)  WRITE (8,*)  'L  L.  ' NUMREG  , NUMREG, 
& ' IX,  ■' , LL,  ' MPNT(LL)  MPNT(LL) 

IF  ( (MFNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
C POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 

RANGEM(1,LL)  - MZERO(l,LL) 

RANGEM  ( 2,  LL)  - MZERO(2,LL) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) ' RANGEM ( 1 , LL ) RANGEM( 1,LL) , 

& ' MZERO( 1,LL)  - MZEROi 1,LL I 

WRITE ( 8 , * ) ' RANGEM ( 2 , LL ) , RANGEM ( 2, LL  t , 

& ' MZERO(2,LL)  - MZERO( 2,LL i 

ENDIF 

SPECIFY  E(M)  OF  POSTERIOR  FC«  SAXE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  ( RANGEM ( 2 , LL ) .EQ.  0.0)  THEN 
MCHAT ( 1 , LL ) = RANGEM (1,LL) 

ELSE 

MCHAT ( 1 , LL ) = ( RANGEM ( 1,LL)  + RANGEM ( 2, LL) ) / 2.0 
ENDIF 

IF  (IOUT  .EQ.  10)  WRITE(8,*)  'MCHAT  , MCHAT ( 1 , LL ) 

ELSE 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ', 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 

RETURN 
END 


A********************************************************************** 


SUBROUTINE  CONCAV  ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
RANGES  ON  M TO  BE  CONSISTENT  WITH  CONCAVITY  CONSTRAINTS 
PROGRAMMER:  L.  NEWLIN 

DATE:  2FEB88  FORMAT /COMMENTS : 15SEP89 

VERSION:  MATCHR  V6.1,  V6.2f  V7 , V7.1,  V8#  V8.1,  V8.2,  V8.3# 

V8 • 4 f V8.5 

MATGRM  V4r  V4.1,  V4.2,  V4.3f  V4.4,  V4.5 

SUBROUTINE  CONCAV  (NUMREG,  RANGEM) 

INPUTS:  NUMREG,  RANGEM 

OUTPUTS:  RANGEM 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  RANGEM( 2,  MAXREG),  TESTM 


LIST  OF  VARIABLES 
IOUT  OUTPUT  DUMP  CONTROLLER 
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L 

MAXREG 
NUKREG 
RAN GEM  ( ) 


TESTM 


CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMBER  OF  REGIONS  OF  INTEREST  0 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIC^  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( L)  IS  THE  LOWER  BOUND  AND 

RANGEM(2,L)  IS  THE  UPPER  BOUND  

UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-l  — USED  DURING 
CONCAVITY  ADJUSTMENT 


ADJUST  RANGE  TO  INSURE  CONCAVITY 

DO  100  L - NUMREG,  2,  -1 

IF  (RANGEM(2,L-1)  .EQ.  0.0)  THEN 

RANGE  IS  A POINT  IN  REGION  L-l  _ _ % _____ 

IF  ( RANGEM ( 1 , L- 1 ) .GT.  AMAXl  < RANGEM ( 1,L)  ,RANGEM(2,L)  ) ) THEN 
WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  L, 

& ' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGION  '/L-l 

CALL  TRMNAT 
ENDIF 
ELSE 

RANGE  IS  AN  INTERVAL  IN  REGION  L-l 
TESTM  = AMAXl(RANGEM(l.L),  RANGEM(2,L) ) 

IF  (TESTM  .LT.  RANGEM( 1,L-1) ) THEN 

WRITE ( 8 , * ) 'ERROR:  POSTERIOR  INTERVAL  IN  REGION  ',  L, 

& ' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN 

& 'REGION  L-l 

CALL  TRMNAT 
ELSE 

RANGEM  ( 2 , L- 1 ) = AMIN  1 ( RANGEM  ( 2 , L- 1 ) , TESTM) 

ENDIF 


& 

& 


ENDIF 

IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 


10)  THEN 
' RANGEM  ( 1 ,L-1 ) 
RANGEM(i,L-l) 


rtmxvxc.ro  i a , aj 

WRITE ( 8 , * ) 'RANGEM(l.L) 


, RANGEM ( 1. L-l) , 
■ ' RANGEM ( 2 , L- 1 ) 
RANGEM(  1 .L)  , 


WRITE ( 8 , * ) 
ENDIF 


' rangem(2,li  rangem(2,L) 

'TESTM  , TESTM,  ' L * ' , L 


100  CONTINUE 


RETURN 

END 


C*** ****************** ******* 


c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  CO 
PROGRAMMER:  L.  NEWLIN  , 

DATE:  CODE:  50CT87  COMMENTS:  1DEC87 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 


C INPUTS:  NUMREG,  RANGEM 

C I OUTPUT : MEDM 


C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 
COMMON  IOUT 
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INTEGER  I OUT,  L,  NUMREG 

REAL  LOWERM,  MEDM(MAXREG) , RANGEM(2,  MAXREG) 


LIST  OF  VARIABLES 


IOUT 

L 

LOWERM 

MAXREG 
MEDM( ) 
NUMREG 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION  

LOWER  BOUND  OF  M RANGE  (DUE  TO  CONCAVITY  CONSIDERATION) 
TO  BE  USED  IN  MEDIAN  CALCULATION 


MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
1-D  ARRAY  CONTAINING  VALUES  OF  THE 


MEDIAN  M FOR  EACH  REGION 


NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM  ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 


INITIALIZE  ARRAY  MEDM 

DO  50  L - 1,  MAXREG 
MEDM ( L ) =0.0 
50  CONTINUE 

BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 

IF  ( RANGEM ( 2 , L ) .EQ.  0.0)  THEN 
RANGE  IS  A POINT 
MEDM(L)  = RANGEM (1,L) 

ELSEIF  (L  .EQ.  1)  THEN 

WE  ARE  IN  REGION  ONE  — NOT  AFFECTED  BY  OTHER  REGIONS 
— MEDIAN  WILL  JUST  BE  AVERAGE  OF  RANGEM  VALUES 

MEDM(L)  = ( RANGEM ( 1 , L ) + RANGEM ( 2 ,L) ) / 2.0 

ELSE 

MUST  TAKE  MEDIAN  OF  REGION  L-l  INTO  ACCOUNT 

LOWERM  = AMAXl ( RANGEM ( 1 , L ) , MEDM (L-l) ) 

MEDM(L)  = (LOWERM  + RANGEM(2,L) ) / 2.0 

ENDIF 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'L  = ' , L,  ' NUMREG  = NUMREG 
WRITE ( 8 , * ) 'RANGEM( 1,L)  = RANGEM ( 1 , L ) , 

6,  ' RANGEM(2,L)  = ',  RANGEMJ2 , L j 

WRITE (8,*)  'LOWERM  = ',  LOWERM,  ' MEDM(L)  ■ MEDM(L) 
ENDIF 

100  CONTINUE 

RETURN 

END 


******* ******************************** ******************************** 


SUBROUTINE  EXPCTD  CALCULATES  THE  EXPECTED  OR  MEDIAN  VALUES  OF  THE  S/N 
CURVE  PARAMETERS 

PROGRAMMER:  L.  NEWLIN  

DATE:  CODE:  13FEB89  FORMAT /COMMENTS:  15SEP89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 
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C Copyright  (C)  1990,  Califprnia  Institute  of  Technology. 

C U.S . Government  sponsorship  under  NASA  contract  NAS7— 918 
c is  acknowledged. 


SUBROUTINE  EXPCTD  (NCOMPS,  HEOH,  NPTS,  STR,  NF , SZERO,  NUMREG, 
6 ZROREG,  NBND,  BIGKl , BZHAT) 

C INPUTS:  NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

C OUTPUTS:  BIGKl,  BZHAT  

C SUBPROGRAMS:  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB,  KOMO 

C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  ■ 50,  MAXREG  - 3) 


COMMON  I OUT 

INTEGER  I OUT,  L,  NCOMPS,  NP,  NPTS ( MAXREG ) , NUMREG,  ZROREG 

REAL  BIGK( 0 : MAXREG) , BIGKl.  BZHAT,  FACTR,  KHAT,  MEANZ, 

MEDM (MAXREG) , MM( 0 : MAXREG) , NBND(0 : MAXREG) , 

NF (MAXDAT,  MAXREG),  SBND(6:MAXREG) , STR( MAXDAT , MAXREG), 
SZ2,  SZERO,  TRBIGK( 0 : MAXREG) , ZZ (MAXDAT) 


& 

6 

& 


LIST  OF  VARIABLES 


BIGK( ) 

BIGKl 

BZHAT 

FACTR 

I OUT 

KHAT 

L 

MAXDAT 
MAXREG 
MEANZ 
MEDM(  ) 
MM(  ) 
NBND( ) 

NCOMPS 

NF<) 

NP 

NPTS( ) 

NUMREG 
SBND( ) 


STR( ) 

SZ2 
SZERO 
TRBIGK( ) 

ZROREG 

ZZ() 


l-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K **  M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

E(BETAO) 

A SCALE  FACTOR  = PHI  * KRATIO  * Z 

OUTPUT  DUMP  CONTROLLER 

E(k) 

CONTROLS  DO  LOOP  FOR  EACH  REGION  ,TT^_ 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 
l-D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
l-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

Number  of  COMPonente  — 1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  — 2 FOR  DECOMPOSED  STRAIN  DATA 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 

l-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST  . 

1- D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R - -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND ( ) 

2- D  ARRAY  CONTAINING  RATSTR{ ) FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F(STR,  NF,  NBND,  MM) 
STRESS  TENSILE  TEST  POINT,  SO 

l-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 

ZeRO8 REGlon  — BVALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 “E^ZroO  REGION 
l-D  ARRAY  CONTAINING  TRANSFORMED  S-N  DATA,  Z ■ F(STR,NF , NBND, MM) 


C INITIALIZE  VARIABLES 

DO  50  L = 0,  MAXREG 
MM(L)  = 0.0 
50  CONTINUE 


7-199 


C CREATE  MM( ) ARRAY  FROM  MEDM( ) ARRAY 

DO  100  L - 1,  NUMREG 
MM(L)  - MEDM(L) 

100  CONTINUE 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z - Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z - Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2 ) 

C CALCULATE  BETAo  AND  k 

CALL  KB ETA  (MEANZ,  SZ2,  KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A « K **  M FOR  EACH  REGION 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 

BIGK1  - BIGK(l) 

C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  KO  AND  MO  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 

DO  150  L - ZROREG,  NUMREG 
TRBIGK(L)  - BIGK(L) 

150  CONTINUE 

IF  (ZROREG  .EQ.  0)  THEN 
FACTR  - 1.0 

CALL  KOMO  (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK, 

& FACTR,  NUMREG) 

END  IF 

C WRITE  RESULTS  TO  FILE 

IF  (NCOMPS  .EQ.  1)  THEN 

WRITE (7, 900)  NUMREG,  BZHAT.  KHAT 

IF  ( IOUT  .EQ.  10)  WRITE(8,900)  NUMREG,  BZHAT,  KHAT 

DO  200  L * ZROREG,  NUMREG 

WRITE (7, 9 10)  L.  MM(L) , TRBIGK (L) , NBND(L) , SBND(L) 

IF  (IOUT  .EQ.  10)  WRITE (8, 9 10)  L.  MM(L) , TRBIGK (L) , 

& NBND(L),  SBND(L) 

200  CONTINUE 

WRITE (7, 920) 

ELSE 

WRITE (7, 930)  MM(1),  BIGK(l),  KHAT 
ENDIF 

C FORMAT  STATEMENTS 

900  FORMAT(///,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE' . //,2X, 

& 'NUMBER  OF  REGIONS ,14 , 5X, *E (BETAo)  «' ,F8 .4, 5X, 'E(k)  -' 

& F8 .4 , //, 2X, 'REGION' , 7X, 'm' , 15X, 'K' ,9X, 'LIFE  BOUND', 7X, 

& 'STRESS  BOUND',/) 

910  FORMAT(5X,Il,5X,F9.5,5X,El2.5,5X,E9.3,9X,E11.5) 

920  FORMAT {III) 

930  FORMAT(//,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE', 

& //, 11X, 'm' , 14X, 'K' , 13X, 'E(k) ' , 
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//,7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


quit*  ********  ************************  ************************************* 


C 

c 

c 

c 

c 

c 


SUBROUTINE  MUSIG  CALCULATES  THE  POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS: 
MEAN,  MU,  AND  STANDARD  DEVIATION,  SIG;  FOR  EACH  REGION 

PROGRAMMER:  L.  NEWLIN  , 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA, 
S,  MO,  SIGMA2,  MCHAT,  MU,  SIG) 

C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2 , NPPR,  DELTA,  MO,  SIGMA2 

C OUTPUTS:  MCHAT,  MU,  SIG 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 
COMMON  I OUT 


INTEGER  I OUT,  L,  NUMREG,  NPPR (MAXREG) 


REAL 

& 

& 


, DELTA (MAXREG),  MCHAT(2,  MAXREG), 
MAXREG),  SIG ( MAXREG ) , SIGMA2 (MAXREG) 
SUMX2,  SWHAT2 (MAXREG),  SX2 (MAXREG) 


9 


ARG 

DEL'i’A(  ) 

IOUT 

L 

MAXREG 
MCHAT () 


MO() 

MU() 

NPPR( ) 

NUMREG 
SIG( ) 

SIGMA2 ( ) 

SUHAT2 ( ) 

SUMX2 
SWHAT2  < ) 


SX2  ( ) 


LIST  OF  VARIABLES 
INTERMEDIATE  CALCULATION  VARIABLE 

1-D  ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION  

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) AND 
SIG( ) CALCULATION 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  REGION  ALLOWED  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C FOR 
EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — MCHAT (1,L)  - 
- DD ( L ) , THE  ESTIMATE  FOR  M AND  MCHAT ( 2, L)  = SUHAT, 

THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )T1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUMBER  OF  REGIONS  OF  INTEREST  

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION  

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  * Ln  S,  Y m Ln  N) 

EQUAL  TO  NPPR( ) * SX2 ( ) FOR  A PARTICULAR  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  = Ln  S) 


C INITALIZE  ARRAYS 
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DO  50  L 


3U  Jj  — <Ls 

HCHAT(lrL|  - 


50  CONTI 


MCHAT(2,L, 
MU{L£  * 0.0 


MAXREG 
0.0 
0.0 


8 !isa> 


0.0 


C BEGIN  CALCULATION  FOR  EACH  REGION 


DO  100  L - 1 , NUMREG 


MCHAT j 2 , l]  - SQRT(^UHAT2(L) ) 
SUMX2  - NPPR(L)  * SX2(L) 

ARG  - SUMX2  + DELTA(L) 


C 

C 


C 


IF  (DELTA(L)  .EQ.  0.01  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  MEAN  NAS  SUPPLIED 
USE  THE  ESTIMATE  OF  M 
MU(L)  - MCHAT(1,L) 

ELSE 

UPDATE  THE  ESTIMATE  OF  M WITH  Mo  USING  DELTA 
MU(L)  - <MCHAT(1,L)  * SUMX2  + MO(L)  * DELTA(L) ) / ARG 
ENDIF 


IF  (SIGMA2 (L)  .EQ.  0.0)  THEN 

C THEN  NO  PRIOR  VALUE  OF  THE  VARIANCE  WAS  SUPPLIED 

C USE  S WHAT 2 AS  AN  ESTIMATE  OF  SIGMA-HAT-2 

SIG(L)  = SQRT  (SWHAT2 (L)  / ARG) 

ELSE 

SIG(L)  = SQRT  (SIGMA2 (L)  / ARG) 

ENDIF 


& 

& 

& 

& 


IF  ( IOUT  .EQ. 
WRITE ( 8, * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 

'L  « ',  L,  ' DD  - DD(L) , ' MCHAT 1 - 
MCHAT ( 1 , L ) 

'SUHAT2  - ',  SUHAT2 (L) , ' MCHAT2  - 

MCHAT ( 2 , L ) 

'NPPR  » NPPRfL),  ' SX2  - SX2(L), 

SUMX2  - SUMX2 

'DELTA  - DELTA (LJ , ' ARG  « ARG 

'MO  ■ ',  MO(L) , ' MU  - MU(L) 

'SWHAT2 .■  ',  SWHAT2 (L) , ' SIGMA2  - ',  SIGMA2(L), 
SIG  * ',  SIG(L) 


100  CONTINUE 


RETURN 

END 


C 

c 

c 

c 

c 

c 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION  ON  BOTH  M AND  Co  TO 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  10FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION : MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 


C INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 

C OUTPUTS : RANGEM 

C SUBPROGRAMS : TRMNAT 


C IMPLICIT  NONE 

INTEGER  MAXREG 
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PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  MCPNT ( MAXREG ) , MPNT (MAXREG) , NUMREG 

REAL  LOWER,  MC(2,  MAXREG),  MCHAT ( 2 , MAXREG),  MZERO(2,  MAXREG), 
Si  RANGEM(2,  MAXREG),  UPPER 


LIST  OF  VARIABLES 


IOUT 

L 

LOWER 

MAXREG 

MC() 


MCHAT () 

MCPNT () 
MPNT( ) 
MZERO ( ) 


NUMREG 
RAN GEM ( ) 


UPPER 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
— MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT (_1,L)  ■ - DD(L) , THE  ESTIMATE 
FOR  M AND  MCHAT( 2 ,L)  - SUHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC  ( ) FOR  EACH  REGION  „ „ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ( ) FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 


DO  50  L = 1,  MAXREG 
RANGEM( 1,L)  >0.0 
RANGEM(2,L)  > 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 


DO  100  L = 1,  NUMREG 


IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'L  * L,  ' NUMREG 
WRITE ( 8 , * ) 'MPNT  - ',  MPNT(L) , 
ENDIF 


' , NUMREG 

MCPNT  - ' , MCPNT(L) 


IF  (MPNT(L)  .EQ.  1)  THEN 


THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATIONS  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM ( 1 , L ) = MZERO(l,L) 
RANGEM(2 ,L)  * 0.0 


& 


IF 


(IOUT  .EQ. 
WRITE (8,*) 
WRITE (8,*) 


ENDIF 


10)  THEN 
'MZERO(l.L)  = 
' RANGEM ( 1,L) 

' RANGEM ( 2, L) 


MZERO (1,L) 

, RANGEM ( 1 , L ) , 
, RANGEM  ( 2 , L ) 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT (L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT  USE  MO 


RANGEM( 1,L)  = MZERO(l,L) 
RANGEM ( 2 , L)  = MZERO(2,L) 


IF  (IOUT  .EQ.  10)  THEN 
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,L), 

'Li  - ' j MZER0j2,L) 
1,1)  - ',  RANGEM( 1,L) , 
2,L)  - ',  RANGEM(2,L) 


WRITE(8,*)  'MZER0(1,L)  ■ MZER9( 1,L 
WRITE ( 8 , * ) 

END  IF 

ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (HCPNT(L)  .EQ.  1))  THEN 


'MZERO( 1,L) 
MZERO(2  “ 
'RANGEMf 
RANGEM ( 2 


THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  NO  BY  HC 


LOWER  - AMAXl (MZERO( 1,L) , MC(1,L)) 

UPPER  ■ HZERO ( 2 . L ) 

if  (upper  .lt.  Lower ) then  

WRITE (8, *)  'ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L ) - LOWER 
RANGEM(2 ,L)  - UPPER 
END  IF 


& 


& 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ’MZERO( 1,L) 

' MZERO(2,L) 
WRITE ( 8 , * ) ' MC ( 1 , L ) - ' 

WRITE ( 8 , * ) 'LOfffiR  - ', 
WRITE ( 8 , * ) 'RANEGM( 1,L) 
' RANGEM(2 ,L) 

ENDIF 


- MZEROt 1,L) , 

. > , MZERO(2,L) 

, MC( 1,L) 

Lower,  • upper  - 

- ',  RANGEM(1,L) 

- ',  RANGEM(2,L 


UPPER 


ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 


LOWER  * AMAXl (MZERO( 1 ,L) , MC(1,L)) 

UPPER  = AMINl(MZERO]2,L),  MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE ( 8, * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L ) = LOWER 
RANGEM(2,L)  - UPPER 
ENDIF 


& 


& 


IF 


(IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITEj 8,*) 


ENDIF 


10)  THEN 
'MZERO( 1,L 
MZERO(2,L 
'MC(1,L)  » 
'LOWER  - ', 
'RANGEM(1,L 
RANGEM ( 2 , L 


',  MZEROf 1 , L) , 
',  MZERO(2,L) 

, MC( 1,L) 

LOWER,  ' UPPER  - 
» ',  RANGEM ( 1 , L 
- ',  RANGEM ( 2, L 


UPPER 


ELSE 

WRITE (8,*)  'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 

CALL  TRMNAT 

ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM ( 1 , L ) - AMAXl (RANGEM( 1 ,L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'RANGEM( 1,L)  = ',  RANGEM( 1,L) 
100  CONTINUE 


C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L - 1,  NUMREG 
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& 

& 

& 


IF  ( ( MCHAT ( 1 , L ) .LT.  RANGEMit 1,LJ) 

.OR.  (MCHAT(1,L)  .GT.  RANGEM(2,L 
WRITE (8,*)  'NOTE:  E(m)  IS  NOT  IN 

'ON  m IN  REGION  L 


POSTERIOR  RANGE 


300  CONTINUE 


RETURN 

END 


C 


C 

c 

c 

c 

c 

c 


SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  M RANGES  AND  NORMAL 
DISTRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  10FEB88  FORMAT/COMMENTS:  12 AUG 91 

VERSION:  MATCHR  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG.  NNODAT , NUMREG, 

4 MZERO,  MPNT,  MO,  SIGMA2 ) 

C INPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO,  MPNT , 

C MO,  SIGMA2 

C OUTPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NUMREG 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 


COMMON  I OUT 


INTEGER  IOUT,  L,  LL,  MPNT(MAXREG) , NNODAT,  NUMREG 


REAL 

& 

& 


MCHAT(2,  MAXREG 
MZEROi 2 , MAXREG 
SIGMA2 (MAXREG) 


LIST  OF  VARIABLES 


IOUT 

L 

LL 

MAXREG 
MCHAT () 


MO() 
MPNT( ) 
MU<) 
MZERO ( ) 

NNODAT 
NUMREG 
RANGEM ( ) 

SIG( ) 
SIGMA2 ( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  _ „ ,lm 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) * - DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L ) ■ SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION  „ , m _ 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ()  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  MEAN  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO ( 1,L)  IS  THE  LOWER  BOUND  AND  MZERO ( 2 ,L) 
IS  UPPER  BOUND  , 

Number  of  NO  DATS  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST  „ „ 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM (1,L)  IS  THE  LOWER  BOUND  AND 

RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOREACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
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VARIANCE  FOR  EACH  REGION 


IF  (IOUT  .EQ.  10)  WRITE(8,*)  'NUMREG  NUMREG 


DO  100  L - 1,  NNODAT 
NUMREG  - NUMREG  + 1 
LL  - NUMREG 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'L  L, 

4 I u,  LL,  ' MPNT(LL)  -',  MFNT(LL) 


NUMREG 


NUMREG, 


C 


IF  ( (MPNT(LL)  .EQ.  1) 
POSTERIOR  ON  M IS 
RANGEM(1,LL)  - MZERO( 1,LL) 
RANGEM(2,LL)  - MZERO(2,LL) 
MU (II.)  « MO(LL) 

SIG(LL)  - SQRT( SIGMA2 (LL) ) 
IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 


OR.  (MPNT(LL)  .EQ. 
SAME  AS  PRIOR  ON  M 


2))  THEN 


WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


ENDIF 


'RANGEM( 1,LL) 
' MZERO( 1,LL) 
' RANGEM ( 2 , LL ) 
' MZERO(2 ,LL) 
' MU (LL)  « ' 
'SIG(LL)  - 
SIGMA2 (LL) 


«' , RANGEM ( 1 , LL 
- MZEROi 1,LL 
, RANGEM  2, LL 
* ',  MZEROi 2, LL 
MU(LL),  ' MO(LL) 
SIG(LL),  ' 


',  MO(LL) 
SIGMA2 (LL)  - ', 


C SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 

C CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  ( RANGEM ( 2, LL)  .EQ.  0.0)  THEN 
MCHAT( 1,LL)  - RANGEM (1,LL) 

MU(LL)  - RANGEM ( 1,LL) 

SIG(LL)  - 0.0 
ELSE 

MCHAT ( 1 , LL ) - ( RANGEM ( 1,LL)  + RANGEM ( 2, LL) ) / 2.0 
ENDIF 

IF  (IOUT  .EQ.  10)  WRITE(8, *)  'MCHAT  , MCHAT ( 1,LL) , 

4 ' MU  » ',  MU(LL),  ' SIG  - ',  SIG(LL) 

ELSE 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ', 

4 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 


Q+*** *****★★*★*★*********★*******★* ***★*★★*******★★******★*★*****★****★** 


C SUBROUTINE  PAREST  CONTROLS  THE  CALCULATIONS  FOR  THE  PARAMETER 
C ESTIMATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  13FEB89  FORMAT /COMMENTS : 15SEP89 

C VERSION:  MATCHR  V8.3,  V8.4,  V8.5  — FOR  USE  WITH  PFM'S 

C MATGRM  V4.3,  V4.4,  V4.5 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
c is  acknowledged. 


SUBROUTINE  PAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG, 

4 ZROREG,  RAND,  NBND,  STR,  BIGK,  BZERO,  MM, 

4 SBND) 

C INPUTS:  VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG,  RAND, 

c NBND  STR 

C OUTPUTS:  BIGk!  BZERO,  MM,  SBND 

C SUBPROGRAMS:  FINDM,  FINDMN,  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB 
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IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  - 50,  MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NP,  NPTS ( MAXREG ) , NUMREG,  VARY,  ZROREG 

REAL  BIGK(0:MAXREG) , BZERO,  K,  MEANZ,  MM ( 0 : MAXREG ) . 

MU (MAXREG) , NBND ( 0 : MAXREG) , NF (MAXDAT,  MAXREG), 
RANGEM  ( 2 , MAXREG),  SBND  ( 0 : MA5®EG ) , SIG  (MAXREG)  , 
STR( MAXDAT,  MAXREG),  SZ2,  ZZ  (MAXDAT) 

DOUBLE  PRECISION  RAND 


& 

& 

& 


BIGK( ) 

BZERO 
I OUT 
K 
L 

MAXDAT 
MAXREG 
MEANZ 
MM(  ) 

MU(  ) 

NBND ( ) 

NF() 

NP 

NPTS ( ) 

NUMREG 
RANGEM ( ) 

RAND 
SBND( ) 

SIG() 

STR(  ) 

SZ2 

VARY 

ZROREG 

ZZ() 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A « K **  M FOR 
EACH  REGION 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k — PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL  DATA  BASE 

CONTROLS  DO  LOOP  FOR  EACH  REGION  , 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z * F(STR,  NF,  NBND,  MM) 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNFf ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 

RANDOM  NUMBER  SEED  , „ 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R = -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND()  ...  _ JIIIL . rillmT 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 

STANDARD  DEVIATION  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F (STR,  NF,  NBND,  MM) 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATION; 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION; 

3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C OBTAIN  THE  VALUES  OF  M FOR  EACH  REGION 
IF  (VARY  .LE.  2)  THEN 

C UNIFORM  OR  NO  VARIATION  IN  M IS  DESIRED 

CALL  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 
ELSE 

C NORMAL  VARIATION  IN  M IS  DESIRED 
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CALL  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 

END  IF 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z - Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z - Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2 ) 

CALCULATE  THE  VALUES  FOR  k AND  BETAO  FROM  THE  SAMPLE  MEAN 
AND  VARIANCE 

CALL  KB ETA  (MEANZ,  SZ2,  K,  BZERO) 

CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A « K **  M 

CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

CALCULATE  STRESS  TIE-POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

WRITE  RESULTS  TO  FILE 

WRITE(7, 900)  NUMREG,  BZERO 

DO  200  L s ZROREG,  NUMREG 

WRITE (7, 9 10)  L,  MM(L) , BIGK(L),  NBND(L),  SBND(L) 

200  CONTINUE 

WRITE(7, 920) 

FORMAT  STATEMENTS 

900  FORMAT (///.2X, 'SELECTED  VALUES  OF  S/N  CURVE  PARAMETERS', 

& //,2X, 'NUMBER  OF  REGIONS:  ' , 14 . SX, ' BETAO  ■ ',F8.4, 

& //,2X, 'REGION' ,7X, 'm' , 15X, 'K',9X, 'LIFE  BOUND', 5X, 

& 'STRESS  BOUND',/) 

910  FORMAT(5X, 11, 5X,F9 . 5, 5X,E12 .5, 5X,E9 .3,6X,E11.5) 

920  FORMAT( ///) 


RETURN 

END 


****★*******★★★★★**★******★★**★**★********★*★★★★★************★★★★*★★★*★* 


SUBROUTINE  FINDM  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  M RANGE 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4 , V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

C INPUTS:  RAND,  NUMREG,  RANGEM 

C OUTPUTS : MM 

C SUBPROGRAMS:  RANDOM,  TRMNAT 

C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  » 3) 

COMMON  I OUT 
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INTEGER  I OUT,  L,  NUMREG 

REAL  MM(0  :MAXREG)  , PICK(2),  RANGEM(2 , MAXREG),  X 
DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


I OUT 
L 

MAXREG 
MM(  ) 
NUMREG 
PICK( ) 
RAND 
RANGEM( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 

RANDOM  NUMBER  SEED  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

UNIFORM( 0,1)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


INITIALIZE  MM( ) 

DO  50  L = 0,  MAXREG 
MM( MAXREG)  = 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS 

DO  100  L * 1,  NUMREG 

PICK(l)  =0.0 
PICK ( 2 ) = 0.0 


IF 


(RANGEM(2,L»  .EQ.  0.0)  THEN 
M IS  SPECIFIED  AS  A POINT  VALUE 

'RANGEM( 1 ,L) 


MM(L)  = RANGEM(1,L)  , _ 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'RANGEM(1,L)  , RANGEM(1,L), 

' MM(L)  = ',  MM(L) 

ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

CALL  RANDOM(X,  RAND)  _ , , . 

MM(L)  = (RANGEM(2,L)  - RANGEM( 1,L) ) * X + RANGEM ( 1 , L ) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8, * ) 'RANGEM(l.L)  =',  RANGEM( 1, L) , 

' rangem(5,L)  =',  rangem(5,L) 

WRITE ( 8 , * ) 'L  =',  L,  ' X =',  X,  ' MM(L)  = ',  MM(L) 

END  IF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  = AMAX1 (MM(L-1 ) , RANGEM(1,L)) 

PICK (2 ) = RANGEM ( 2 , L ) 

IF  EXISTS^— — ' tAIs^HOULD  HOT  BE  POSSIBLE 

STOP  PROGRAM 

WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 
CALL  RANDOM  (X.  RAND) 

MM(L)  = (PICK (2 ) - PICK(l))  * X + PICK(l) 

ENDIF 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'L  =',  L,  ' MM(L-l)  =',  MM(L-l) , 

' RANGEM ( 1,L)  =' , RANGEM ( 1 , L ) 

' PICK ( 1 ) =',  PICK( 1) , ' PICK<2) 

'RANGEM(2,L)  =' , RANGEM(2,L) , f 
' MM(L)  =',  MM(L) 


WRITE (8,*) 
WRITE ( 8, * ) 


=',  PICK(2 ) 
X =',  X, 


ENDIF 

ENDIF 


100  CONTINUE 
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RETURN 

END 


c 


SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 


Miles,  R.  F..  The  RANDOM  computer  Program:  A Linear  Congruenti&l 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 


PROGRAMMER: 

DATE: 

VERSION: 


L.  GRONDALSKI,  L.  NEWLIN 
1 DEC 8 7 

MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 
V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3.  V8.4,  V8.5 
MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 


c 


SUBROUTINE  RANDOM  (FRAC,  RAND) 

IMPLICIT  NONE 
COMMON  I OUT 
INTEGER  I OUT 
REAL  FRAC 

DOUBLE  PRECISION  RAN A,  RANC,  RAND,  RANDIV,  RANM, 
b RANT,  RANX 


RANSUB, 


C 

C 

C FRAC 
C I OUT 
C RANA 
C RANC 
C RAND 
C RANDIV 
C RANM 
C RANSUB 
C RANT 
C RANX 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


C USING  LCG  RANDOM  « GENERATOR 

RANA  = 671093.0 
RANC  ■ 7090885.0 
RANM  - 33554432.0 


10  RANX  = RANA  * RAND  + RANC 
RANDIV  * RANX  / RANM 
RANT  * DINT (RANDIV) 

RANSUB  * RANT  * RANM 
RAND  * RANX  - RANSUB 
FRAC  « SNGL ( RAND  / RANM) 


IF  {(FRAC  .EQ.  0.0}  .OR.  (FRAC  .BQ.  1.0))  GOTO  10 
IF  ( I OUT  .EQ.  2)  WRITE  ( 8 , *)  * RANX  , RANX,  ' RANDIV  •' , RANDIV, 
& ' RANT  RANT,  ' RANSUB  «' , RANSUB,  ' RAND  RAND, 

& ' FRAC  FRAC 

RETURN 

END 

C NOTES:  I OUT* 2 DUMPS  TO  SCREEN 
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C******************* 


******** 1 


SUBROUTINE  FINDMN  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  TRUNCATED  NORMAL  M DISTRIBUTION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13FEB89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 


INPUTS:  RAND,  NUMREG,  MU,  SIG,  RANGEM 

OUTPUTS:  MM 

SUBPROGRAMS:  NORMGN,  TRMNAT 


IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  I OUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  MM(0 : MAXREG) , MU (MAXREG) , PICK(2),  RANGEM ( 2 , MAXREG), 
{.  SIG  ( MAXREG ) , X 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


IOUT 

L 

MAXREG 


MM(  ) 
MU() 
NUMREG 
PICK( ) 
RAND 
RANGEM ( 


SIG() 

X 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  MEAN  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 
RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  THE  STANDARD  DEVIATION  OF  M FOR  EACH 
REGION 

NORMAL (MU, SIGMA)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


C INITIALIZE  MM( ) 

DO  50  L = 0,  MAXREG 
MM(MAXREG)  =0.0 
50  CONTINUE 


C BEGIN  CALCULATIONS 


DO  100  L = 1,  NUMREG 


PICK(l)  =0.0 
PICK( 2 ) =0.0 


C 


& 


c 

10 


IF  (RANGEM(2 ,L)  .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 
MM(L)  = RANGEM ( 1,L) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'RANGEM( 1,L)  =', 

' MM(L)  =',  MM(L) 

ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

CALL  NORMGN  (RAND,  MU(L) , SIG(L) , X) 


RANGEM ( 1,L) 


9 
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20 


& 

& 


IF  £<X  .LT.  RANGEM(  1,L)  ) .OR.  (X  .CT.  RANGEM(2,L)  ) ) GOTO  10 


MM( 

IF 


(lOUT  .EQ.  10)  THEN 

WRITE(8,*)  'RANGEM(l.L)  , RANGEMf 1 ,L) r 
' RANGEM(S,L)  RANGEMf  2,  L) 

WRITE( 8, *)  'L  L,  ' X X,  ' MM(L)  , 
END  IF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  - AMAXl(MM(L-l)  , RANGEM( 1,L) ) 


HM(L) 


THEN 

tS  SHOULD  NOT  BE  POSSIBLE 

STOP  PROGRAM 

WRITE  ( 8 f * ) ' IMPOSSIBLE  M RANGE  IN  REGION ' , L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 

CALL  NORMGN  (RAND.  MU(L) , SIG(L),  X) 

IF  ((X  .LT.  PICK(l))  .OR.  (X  .GT.  PICK(2)))  GOTO  20 
MM(L)  « X 
END  IF 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'L  ■' , L,  ' MM(L-l)  MM(L-l), 

' RANGEM(1,L)  , RANGEM(1,L) 

WRITE ( 8 , * ) 'PICK(l)  PICK ( 1 ) , 9 PICK(2)  PICK(2) 

WRITE ( 8 , * ) 9 RANGEM ( 2 , L ) «'  RANGEM(2,L) , * X X, 

' MM(L)  MM(L) 

END  IF 
ENDIF 


100  CONTINUE 


RETURN 

END 


SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  3FEB88 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

The  random  variates  are  generated  using  the  "Direct  Method" 
Abramowitz,  M.,  and  Stegun,  I.  A*,  editors.  Handbook  of 

Mathematical  Functions,  National  Bureau  of  Standards , Applied 
Mathematics  Series  55,  issued  June  1964,  Ninth  Printing,  November 
1970  with  corrections, 

SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 

COMMON  IOUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  - 3.1415926536) 

INTEGER  IOUT 
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C FRAC 
C I OUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Z1 
C Z2 


LIST  OF  VARIABLES 

UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 

RANDOM  NUMBER  SEED  . .... . ^ 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0, 1) 

UNIFORM  RANDOM  NUMBER  U(0, 1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0, 1) 


IF  ( (IOUT  .EQ.  10)  .OR.  (IOUT 
6 WRITE ( 8 , * ) 'RAND  «' , RAND, 


.EQ.  15)) 
' MU  , 


MU, 


CALL  RANDOM  (FRAC,  RAND) 
Ul  » FRAC 


SIGMA  «' , SIGMA 


CALL  RANDOM  (FRAC,  RAND) 


Zl  - SQRT  (-  2. 
Z2  = SQRT  (-  2. 


* ALOG(Ul) ) * COS ( 2 . 

* ALOG(Ul) ) * SIN ( 2 . 


* PI  * U2) 

* PI  * U2) 


= SIGMA  * Zl  + MU 

((IOUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15)) 
WRITE ( 8 , * ) 'Zl  -',  Zl,  ' Z2  “',  Z2, 


X 


X 


RETURN 

END 


C 

C 

C 

C 

C 

c 


SUBROUTINE  TRNSFM  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  TRANSFORM 
THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 


C INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

C OUTPUTS:  NP,  ZZ 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 


COMMON  IOUT 

INTEGER  I,  IOUT,  K,  L,  LL,  NP,  NPTS (MAXREG) , NUMREG 

REAL  MM(0: MAXREG) , MML,  NBND ( 0 : MAXREG ) , NF ( MAXDAT , MAXREG), 
& STR (MAXDAT,  MAXREG),  ZZ (MAXDAT) 


C 

C 

C I 
C IOUT 
C K 
C L 


LIST  OF  VARIABLES 

CONTROLS  DO  LOOP  FOR  EACH 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH 
CONTROLS  DO  LOOP  FOR  EACH 


DATA  POINT 

DATA  POINT  IN  EACH  REGION 
REGION 
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LL  CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 

MML  EQUAL  TO  MM(L)  FOR  A SET  OF  CALCULATIONS 

NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NF( ) 2-D  ARRAY  CONTAINING  RAWNFO  (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTS()  1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

STR( ) 2-D  ARRAY  CONTAINING  RATSTRO  FOR  THE  SPECIFIC  MATERIAL 

S-N  DATA  SET  BROKEN  INTO  REGIONS  (PS I OR  %) 

ZZ ( ) 1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z « F ( STR, NF , NBND , MM ) 


INITIALIZE  VARIABLES 
NP  - 0 

DO  50  I - 1,  MAXDAT 

zz(i)  = G.o 

50  CONTINUE 


BEGIN  CALCULATIONS 


DO  100  L ■ 1,  NUMREG 

MML  ■ MM(L) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)'L  L,  ' MM  , MM(L) , ' MML 
fc  MML,  ' NPTS  NPTS(L) 

DO  200  K - 1,  NPTS(L) 

NP  - NP  + 1 

ZZ (NP)  - ALOG( STR(K.L) ) + ALOG(NF(K,L) ) * (1.0  / MML) 

IF  (IOUT  .EQ.  10)  WrITb(8,*) 'K  «' , K,  * NP  , NP,  ' NF  - 
t NF(K,L),  ' STR  STR(K,L) , ' ZZ  ■ ZZ(NP) 

DO  300  LL  » 2,  L 

ZZ (NP)  - ZZ (NP)  + ALOG(NBND(LL— 1) ) 

& * (1.0  / MM(LL-l) ) - (1.0  / MM(LL))) 

IF  (IOUT  .EQ.  10)  WRITE(8,*) 'IX  ■' , LL,  } NBND(LL-l)  - 
& NBND(LL-l),  ' MM(LL-l)  MM(LL-l),  ' MM(LL)  »' , 

i MM(LL),  ' ZZ  ZZ (NP) 

300  CONTINUE 

200  CONTINUE 

100  CONTINUE 


RETURN 

END 


SUBROUTINE  SMNVAR  CALCULATES  THE  Sample  MaaN  and  VARiance  OF 
Z - F( STR,  NF,  NBND.  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  24AUG87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V5.3,  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8 .3^  V8.4,  V8.5 

MATGRM  V3.3,  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C INPUTS:  NP,  ZZ 
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C OUTPUTS:  MEANZ , SZ2 

C IMPLICIT  NONE 

INTEGER  MAXDAT 
PARAMETER  (MAXDAT  « 50) 

COMMON  I OUT 

INTEGER  I,  I OUT,  NP 

REAL  MEANZ,  SZ2,  ZZ (MAXDAT) 


LIST  OF  VARIABLES 


I 

IOUT 

MAXDAT 

MEANZ 

NP 

SZ2 

ZZ() 


CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
SAMPLE  MEAN  OF  TRANSFORMED  DATA.  Z * F(STR,  NF,  NBND,  MM) 
TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  „ 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F(STR,  NF,  NBND,  MM) 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


INITIALIZE  VARIABLES 

MEANZ  » 0.0 
SZ2  - 0.0 


CALCULATE  THE  MEAN  OF  ZZ(),  MEANZ 

DO  100  I - 1.  NP 

MEANZ  = MEANZ  + ZZ(I> 

IF  (IOUT  .EQ.  10)  WRITE (8,*) 'NP  , NP,  ' I I, 

& ' ZZ  »' , ZZ(I),  ' MEANZ  MEANZ 

100  CONTINUE 

MEANZ  « MEANZ  / FLOAT ( NP ) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) ' MEANZ  , MEANZ 
CALCULATE  THE  VARIANCE  OF  ZZ(),  SZ2 


DO  200  I = 1,  NP 

SZ2  = SZ2  + (ZZ(I)  - MEANZ)  **  2 
IF  (IOUT  .EQ.  l6)  WRITE ( 8 , * ) 'I  I,  ' SZ2 

200  CONTINUE 

SZ2  - SZ2  / FLOAT (NP  - 1) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)'  SZ2  «' , SZ2 


SZ2 


RETURN 

END 


**★★*★**★★★**★**★****★★***★*****★********************** 


SUBROUTINE  KB  ETA  CALCULATES  k AND  BETAO  FROM  THE  SAMPLE  MEAN  AND 
VARIANCE  OF  Z = F (STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN  , 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5  . „ 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  KB ETA  (MEANZ,  SZ2,  K,  BZERO) 


C INPUTS:  MEANZ,  SZ2 

C OUTPUTS:  K,  BZERO 
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c 


IMPLICIT  NONE 


REAL  PI 

PARAMETER  (PI  * 3.1415926536) 
COMMON  I OUT 
INTEGER  I OUT 

REAL  BZERO,  K,  MEANZ,  SZ,  SZ2 


LIST  OF  VARIABLES 


BZERO 

IOUT 

K 

MEANZ 

PI 

SZ 

SZ2 


VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHARACTERIZING  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k — PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL 
DATA  BASE 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z - F(STR,  NF,  NBND,  MM) 
SELF  EXPLANATORY  CONSTANT 
SZ2  **  0.5 

SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z - F (STR,  NF,  NBND,  MM) 


PERFORM  CALCULATIONS 
SZ  - SZ2  **  0.5 

BZERO  « PI  / (SZ  * (6.0  **  0.5)) 
K - MEANZ 


DATA  DUMP  STATEMENTS 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8, *)  'SZ2  SZ2,  ' SZ  , SZ 

WRITE ( 8, *)  'MEANZ  **' , MEANZ,  ' K - ' , K,  ' BZERO  «' , BZERO 
END  IF 

RETURN 

END 


*★*★★★★★********★★★*★★★★*★**★*★*********★* *★★**★** ********************** 


SUBROUTINE  FINDK  CALCULATES  THE  VALUE  OF  K,  WHERE  A » K **  M FOR 
EACH  REGION 

PROGRAMMER:  L.  NEWLIN 

DATE:  7JUN88 

VERSION : MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

C INPUTS:  BZERO,  K,  MM,  NBND,  NUMREG 

C OUTPUTS : BIGK 

C IMPLICIT  NONE 

INTEGER  MAXREG 

REAL  GAMMA 

PARAMETER  (GAMMA  - 0.57721566490,  MAXREG  ■ 3) 
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COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  BIGK(0:MAXREG) , BZERO,  K,  MM(0 :MAXREG) , NBND ( 0 : MAXREG ) 


LIST  OF  VARIABLES 

BIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 

FOR  EACH  REGION  

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
GAMMA  EULER'S  CONSTANT 

IOUT  OUTPUT  DUMP  CONTROLLER 

K VALUE  OF  k — PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  

MM( > 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBNDO  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST  

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 


C INITIALIZE  VARIABLES 

DO  50  L * 0,  MAXREG 
BIGK(L)  =0.0 
50  CONTINUE 

C CALCULATE  K FOR  REGION  ONE 


IIGK(l)  = (ALOG( 2 . 0)  **  (1.0  / BZERO))  * EXP(K  + GAMMA  / BZERO) 
WRITE(7 , * j 'REGION;  1,  K =',  BIGK(l) 

T (IOUT  .EQ.  10)  WRITE(8.*) 'BZERO  = ',  BZERO,  ' k =' , K, 

' GAMMA  =',  GAMMA,  ' BIGK(l)  =',  BIGK(l) 


C CALCULATE  K FOR  REMAINING  REGIONS 

DO  100  L = 2,  NUMREG 

BIGK(L)  = BIGK(L-l)  * NBND(L-l) 


**  ((1.0  / MM(L) ) - (1.0  / MM(L— 1) ) ) 

WRITE(7, *)  'REGION  ',  L.  ' K =',  BIGK(L) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'L  »' , L,  ' NBND(L-l)  = ', 

‘ MM(L)  =',  MM(L),  ' MM(L-l)  =' , MM(L-l), 


£ NBND(L-1 

& ' BIGK(L 

100  CONTINUE 


>,  ' 1 
\ s' 

) i 


BIGK(L) 


RETURN 

END 


C************* ************ *********************************************** 


c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  FINDSB  CALCULATES  THE  REGION  9 TIE-POINTS 9 — THE  STRESS 
VALUES  WHICH  CORRESPOND  TO  THE  "LIFE  BOUNDARIES"  ACCORDING  TO  THE 
RANDOMLY  SELECTED  MS,  AND  THE  Ks  CALCULATED  FROM  THE  BETA  AND  K 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER:  L.  NEWLIN 

DATE:  22DEC88  ^ _ 

VERSION:  MATCHR  V8,2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 


C INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

C OUTPUTS : SBND 


C IMPLICIT  NONE 
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INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG,  ZROREG 

REAL  BIGK(0: MAXREG),  MM(0: MAXREG) , NBND( OjMAXREG) , 

& SBND( OjMAXREG) 


LIST  OF  VARIABLES 


BIGK() 

I OUT 
L 

MAXREG 
MM( ) 
NBND( ) 

NUMREG 
SBND( ) 


ZROREG 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A ■ K **  M 
FOR  EACH  REGION 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 


REGIONS  OF  INTEREST  

NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R ■ -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


INITIALIZE  SBND() 

DO  50  L * 0,  MAXREG 
SBND(L)  » 0.0 
50  CONTINUE 


CALCULATE  SBND(0)  IF  ZROREG  - 0 


IF  (ZROREG  .EQ.  0)  THEN 

SBND(0)  - BIGK(l)  * NBND(0)  ** 
END  IF 


(-1.0  / MM(  1)  ) 


CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 


DO  100  L - 1,  NUMREG 

IF  (NBND(L)  .GE.  1.0E+36)  THEN 
SBND(L)  * 0.0 

ELSE  . „ , 

SBND(L)  = BIGK(L)  * NBND(L)  **  (-1.0  / MM(L) ) 
ENDIF 
100  CONTINUE 


RETURN 

END 


THIS  SUBROUTINE  GENERATES  WEIBULL ( BETA . ETA ) RANDOM  VARIATES  WITH 
MEDIAN  OF  DISTRIBUTION  CONSTRAINED  TO  BE  ONE  USING  THE  "INVERSE 
TRANSFORM  METHOD" 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  18MAR87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 

V7,  V7.1,  V8,  V8.1,  V8 .2 , V8.3,  V8.4,  V8.5 
MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 

V4 .3,  V4 .4,  V4.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  sponsorship  under  NASA  Contract  NAS7-9 18 
is  acknowledged. 
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SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

C INPUTS:  BETA,  RAND 

C OUTPUTS : WEIB 

C SUBPROGRAMS : RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  IOUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


C LIST  OF  VARIABLES 

C 

c ARG  INTERMEDIATE  CALCULATION  VARIABLE 

C BETA  WEI BULL  DISTRIBUTION  SHAPE  PARAMETER 

C ETA  WEI BULL  DISTRIBUTION  LOCATION  PARAMETER 

C FRAC  UNIFORM  (0,1)  RANDOM  VARIATE 

C IOUT  OUTPUT  DUMP  CONTROLLER 

C RAND  RANDOM  NUMBER  SEED 

C WEIB  WEIBULL( BETA, ETA)  GENERATED  RANDOM  VARIATE 


C CALCULATE  CONSTRAINED  ETA 

ETA  = 1.0  / (ALOG(2.0)  **  (1.0  / BETA)) 

C GENERATE  WEIBULL  RANDOM  VARIATE 

rAT.T.  RANDOM ( FRAC , RAND) 

ARG  = — ALOG (1.0  - FRAC) 

WEIB  = ETA  * ARG** (1.0/BETA) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 ,*)’ BETA  “ ',  BETA,  ' ETA  , ETA, 
i ' FRAC  =',  FRAC,  ' ARG  , ARG,  ' WEIB  «' , WEIB 

RETURN 

END 


Q* ********  ********************************************************  ******* 


SUBROUTINE  KOMO  CALCULATES  Ko  AND  Mo  FOR  THE  ZERO  REGION  (NO  DATA 
REGION  TO  THE  LEFT) . IT  ACCOUNTS  FOR  TYING  UP  THE  TENSILE  POINT 
AT  SZERO,  AND  SCALING  DOWN  THE  CURVE  IF  IT  WENT  ABOVE  SZERO. 
PROGRAMMER  : L.  NEWLIN 

DATE:  1AUG91 

VERSION:  MATCHR  V8.5  MATGRM  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.s.  Government  Sponsorship  under  NASA  contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 
S,  FACTR,  NUMREG) 

C INPOTS:  SZERO,  BIGK,  MM,  NBND,  TRSBND,  FACTR 

C OUTPUTS:  TRBIGK,  MM,  TRSBND 


IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 
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COMMON  IOUT 


INTEGER  IOUT,  L,  NUMREG 


REAL 

1 


BIGK(  0 : MAXREG ) , FACTR,  HH(  0 : MAXREG ) , NBND(  0 : MAXREG) , 
SCLK,  SZERO,  TRBIGK(0:MAXREG),  TRSBND ( 0 : MAXREG ) 


LIST  OF  VARIABLES 


BIGK() 

FACTR 

IOUT 

L 

MAXREG 
MM() 
NBND( ) 

NUMREG 
SCLK 
SZERO 
TRBIGK( ) 

TRSBND ( ) 


1-D  ARRAY  CONTAINING  VALUES  OF  1C,  WHERE  A « K **  M FOR 
EACH  REGION 

SCALE  FACTOR  ■ PHI  * KRATIO  * Z 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 
NUMBER  OF  REGIONS 

ADJUSTMENT  FACTOR  FOR  BIGK  IF  TRSBND(O)  > SZERO 
STRESS  TENSILE  TEST  POINT.  So 

1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  KEEP 
SBND(O)  < SO  FOR  EACH  TRIAL 

1-D  ARRAY  CONTAINING  STRESS  VALUES  CORRESPONDING  TO  THE 
LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND( ) 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK ( 0 ) » SZERO 

IF  ( TRSBND ( 0 ) .GT . SZERO)  THEN 
SCLK  « SZERO/TRSBND(0) 

DO  100  L m 0,  NUMREG 

TRBIGK(L)  - BIGK(L)  * SCLK 
TRSBND (L)  - TRSBND (L)  * SCLK 
CONTINUE 
ELSE 

TRBIGK ( 0 ) - SZERO/ FACTR 

MM( 0 ) - MM ( 1 ) * ((ALOG  (BIGK(l) ) - ALOG  (TRSBND (0) ) 

& + ALOG  (FACTR))  / (ALOG  (SZERO)  - ALOG  ( TRSBND ( 0 ) ) ) ) 

ENDIF 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

'SZERO  * SZERO,  ' BIGKO  “ ',  TRBIGK ( 0) 
'FACTOR  - ',  FACTR,  ' BIGK1  - ' , TRBIGK ( 1 ) 
' MMl  - ',  MM( 1 ) , ' MMO  - ',  HH( 0) 


RETURN 

END 


I************************************************************************ 


FUNCTION  GTLIFE  CALCULATES  THE  CYCLES  TO  FAILURE  FOR  A PARTICULAR  STRESS 
BASED  UPON  THE  MATERIALS  CHARACTERIZATION  S/N  EQUATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  10FEB89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  — FOR  USE  WITH  PFM'S 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


REAL  FUNCTION  GTLIFE  (S,  MM,  LNA,  LPHIM,  KRATIO,  LNZ 
& ZROREG,  NUMREG,  SZERO) 

INPUTS:  S,  MM.  LNA,  LPHIM,  KRATIO,  LNZ,  SBND,  ZROREG, 

OUTPUTS : GTLIFE 


, SBND, 
NUMREG, 


SZERO 
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IMPLICIT  NONE 

INTEGER  IOUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 
REAL 


GETLIF,  KRATIO,  LNA(0:MAXREG),  LNZ,  LPHIM(0 : MAXREG) 
MM(0:MAXREG) , S,  SBND ( 0 : MAXREG ) , SZERO,  TEMP 


LIST  OF  VARIABLES 

GETLIF  VALUE  TO  BE  ASSIGNED  TO  GTLIFE  — CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRESS  LEVEL 

IOUT  OUTPUT  DUMP  CONTROLLER  _ 

KRATIO  RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LNAO  1— D ARRAY  CONTAINING  VALUES  OF  Ln(A)  ■ M Lll  K FOR  EACH  REGION 

LNZ  NORMAL ( 0 , PVAR ) GENERATED  RANDOM  VARIATE  

T.PHTM  ( \ 1-D  ARRAY  CONTAINING  VALUES  OF  M Ln  PHI  FOR  EACH  REGION  WHERE 

PHI  IS  A WE IBULLf BETAO , ETAO)  GENERATED  RANDOM  VARIATE 
MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  _____ 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST  __ 

S VALUE  OF  STRESS  (PSI)  FOR  WHICH  A VALUE  OF  LIFE  (CYCLES  TO 

FAILURE)  IS  REQUIRED  . _ 

SBNDO  1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R ■ -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND( ) 

SZERO  STRESS  TENSILE  POINT,  So  

TEMP  TEMPORARY  VARIABLE  USED  TO  PREVENT  ARITHMETIC  UNDER  AND  OVER 

FLOWS 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


GETLIF  - 0.0 

C CALCULATE  CYCLES  TO  FAILURE 

IF  ((S  .GE.  SZERO)  .AND.  (ZROREG  .EQ.  0))  THEN 
GETLIF  = 1.0 
ELSE 

DO  100  L = ZROREG,  NUMREG 
IF  (S  .GT.  SBND(L) ) THEN 

TEMP  = LNA(L)  + LPHIM(L)  + MM(L)  * ( - ALOG(S) 
& -I-  ALOG  (KRATIO)  + LNZ) 

IF  (TEMP  .GT.  86.0)  THEN 
TEMP  * 86.0 
ENDIF 

GETLIF  * EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 

GTLIFE  = GETLIF 

RETURN 

END 


Q+irk  ****** 


C SUBROUTINE  ' SORTM ' SORTS  THE  ARRAY,  ALLM( ) , FROM  LOWEST  TO  HIGHEST 
C M FOR  EACH  REGION 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  10FEB88 
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c 

c 

c 

c 

c 

c 


VERSION: 


MATCHR  V7 , V7.1, 
MATGRH  V4,  V4.1, 


V8,  V8  • 1, 
V4 .2,  V4 .3 


V8 .2,  V8.3,  V8.4 
, V4 .4,  V4.5 


9 


V8  • 5 


Copyright  (C)  1990 , California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
acknowledged. 


is 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUH) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS:  ALLM 

C IMPLICIT  NONE 


COMMON  I OUT 

INTEGER  I,  INC,  I OUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 
PARAMETER  (MAXMM  - 20001,  MAXREG  - 3) 

LOGICAL  INORDR 


REAL  ALLM  (MAXMM,  MAXREG),  TEMP 


C 

C 

C ALLM( ) 
C I 
INC 

INORDR 
IOUT 
L 

MAXMM 
MAXREG 
NUM 
NUMREG 
TEMP 


LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGION 
CONTROLS  INSERTION  POINTER 
SORT  INCREMENT  VARIABLE 

FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  ELEMENTS  IN  ALLMf)  TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400  L - l,  NUMREG 

5 INC  = NUM 
10  IF  (INC  .GT.  1)  THEN 
INC  ■ INC  / 2 
20  INORDR  - .TRUE. 


DO  300  I * 1,  (NUM  - INC) 

IF  (ALLM(I ,L)  .GT.  ALLM(I  + INC,  L))  THEN 
TEMP  - ALLM(I,L) 

ALLM( I,L)  * ALLM (I  + INC,  L) 

ALLM (I  + INC,  L)  ■ TEMP 
INORDR  * .FALSE. 

ENDIF 

300  CONTINUE 

IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 


400  CONTINUE 


RETURN 

END 


C** ************************************************************** ********** 


c************************************************************************** 
C FUNCTION  THWELD  CONTROLS  THE  CALLS  REQUIRED  TO  CALCULATE  A LIFE  FOR  A 
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PLAIN  WELD  UNDER  A THERMAL  LOAD 
PROGRAMMER:  L.  NEWLIN 

DATE:  11JUL90 

VERSION:  THDUCT  V4,  V4.1 


C copyright  (C)  1990,  Califgrnia  Institute  of  Technology. 

C u.S.  Government  Sponsorship  under  NASA  Contract  NAS7— 918 
C is  acknowledged. 

Qit ★★**** ★*★**★★★★*************** ****** *** 


& 

& 

& 

& 

& 


FUNCTION  THWELD  (ALPHA,  ANGLE,  DLTAT,  E , EM,  FTU , FTY, 

KRATIO,  LAMW,  FK,  RT,  LNA,  LNZ,  LOCAT,LPHIM, 
M,  MM,  MSTAT,  NEUB,  NLOAD,  NRAN,  NU,  NUMREG, 
NUMSEG,  P,  PC,  PCO,  PERIOD,  PSTAT,  SBND,  SE, 
STRHIS,  SZERO,  T,  THIC,  TRUNC,  TSTAT,  V, 
VSTAT , WOFF,  ZROREG) 


INPUTS:  ALPHA,  ANGLE,  DLTAT, 
LOCAT,  LPHIM,  M,  MM, 
NUMSEG,  P,  PC,  PCO, 
THIC,  TRUNC,  TSTAT, 


E,  EM,  FTU,  FTY,  DI,  K,  LAMW,  FK,  RT, 
MSTAT,  NEUB,  NLOAD,  NRAN,  NU,  NUMREG, 
PERIOD,  PSTAT,  SBND,  SE,  STRHIS,  SZERO, 
V,  VSTAT,  WOFF 


LNA, 

T, 


OUTPUTS:  THWELD 

SUBPROGRAMS:  M4L1,  M4L2,  NARBN2,  TRMNAT 


C IMPLICIT  NONE 

INTEGER  MAXLD,  MAXM,  MAXREG,  MAXSEG 

PARAMETER  (MAXLD  = 16,  MAXM  = 24000,  MAXREG  - 3,  MAXSEG  = 10) 
COMMON  I OUT 

INTEGER  IOUT,  LOCAT,  NLOAD,  NUMSEG,  NRAN,  NUMREG,  ZROREG 


REAL 

f> 

& 

& 

& 

& 

& 


ALPHA,  ANGLE,  DI,  DLTAT,  E (MAXSEG),  EM,  FATLIF,  FK(10), 
FTY,  FTU,  K<2,  2),  KRATIO,  LAMW,  UIA(  0 : MAXREG ) , LNZ, 
LPHIM ( 0 : MAXREG) , M(2,  MAXLD),  MM ( 0 : MAXREG ),  MSTAT(2), 
NEUB,  NU,  P (MAXLD) , PC,  PCO,  PERIOD,  PSTAT,  RT(10), 

SBND ( 0 : MAXREG ) , SE ( MAXSEG ) , STRAMP(4,  MAXLD), 

STRHIS (MAXLD,  MAXM),  STATIC(4).  SZERO,  T(MAXLD) , THIC, 
THWELD,  TRUNC,  TSTAT,  WOFF,  V(2,  MAXLD),  VSTAT(2) 


C 

C 

C ALPHA 
C ANGLE 
C DI 
C DLTAT 


C FATLIF 
C FK(  ) 

C 

C FTY 
C FTU 
C IOUT 
C K( ) 

C 

c 

c 

C KRATIO 
C LAMW 
C LNA( ) 

C 

C LNZ 
C LOCAT 


LIST  OF  VARIABLES 

COEFFICIENT  OF  THERMAL  EXPANSION 
ANGLE  THETA  IN  RADIANS 

INTERIOR  DIAMETER  

TEMPERATURE  DIFFERENCE  BETWEEN  THE  INNER  AND  OUTER  SURFACES 
1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES 
YOUNG'S  MODULUS  BEFORE  YIELD 

VALUE  OF  LIFE  CALCULATED  

1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
YIELD  STRENGTH 
ULTIMATE  STRENGTH 
OUTPUT  DUMP  CONTROLLER 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  DUCT 
EXTERIOR  FOR  AXIAL  DIRECTION;  K<2 , 1)  IS  FOR  DUCT  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR  DUCT  INTERIOR  FOR  AXIAL 
DIRECTION;  K( 2, 2)  IS  FOR  DUCT  INTERIOR  FOR  HOOP  DIRECTION 
RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
ACCURACY  FACTOR  OF  Fk  - r/t  CURVE  „„„„ 

1-D  ARRAY  CONTAINING  VALUES  OF  Ln(A)  = Ln(K**m)  FOR  EACH 
REGION 

NORMAL  ( 0, PVAR)  GENERATED  FROM  RANDOM  VARIATE 
LOCATION  OF  INTEREST  WHERE  1 IS  THE  EXTERIOR  SURFACE 
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LPHIM(  ) 
M(  ) 

MAXUD 

MAXM 

HAXREG 

MAXSEG 

MMO 

MSTAT ( ) 

NEUB 

NLOAD 

NRAN 

NU 

NUMREG 

NUMSEG 

K> 

PCO 

PERIOD 

PSTAT 

RT() 

SBND( ) 


SE() 

STATIC ( ) 


STRAMP( ) 


SZERO 
T(  ) 

THIC 

THWELD 

TRUNC 

TSTAT 

V() 

VSTAT ( ) 

WOFF 

ZROREG 


2 IS  THE  INTERIOR  SURFACE  OF  THE  DUCT  nMriTJ1M 

1- D  ARRAY  CONTAINING  VALUES  OF  Ln(PHI)B  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(l,*) 
ARE  THE  M2  LOADS;  M(2 , *)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED  mrilr 

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED  (STRESS-STRAIN) 

1-D  ARRAY  CONTAINING  VALUES  FOR  m FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — M(l)  IS  THE 
M2  LOAD;  M(2)  IS  THE  M3  LOAD 
NEUBER'S  RULE  MODEL  ACCURACY  FACTOR 
NUMBER  OF  TIME-VARYING  LOADS 
NUMBER  OF  POINTS  IN  STRESS-TIME  BISTORY 

POISSON'S  RATIO  

NUMBER  OF  REGIONS  OF  INTEREST 

NUMBER  OF  SEGMENTS  OF  INTEREST  IN  STRESS-STRAIN  CURVE 
1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 
LIMIT  PRESSURE  ON  INSIDE  OF  THE  TUBE 
LIMIT  PRESSURE  ON  OUTSIDE  OF  THE  TUBE 

LENGTH  OF  TIME  IN  SECONDS  FOR  RANDOM  STRESS-TIME  HISTORY 
STATIC  AXIAL  LOAD 

1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R - -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CORRECTED  FOR  PHI,  KRATIO  AND  LNZ 
1-D  ARRAY  CONTAINING  THE  STRESS  AND  STRAIN  PRODUCTS 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — 
STATIC! 1)  IS  THE  AXIAL  STRESS;  STATIC (2)  IS  THE  HOOP 
STRESS;  STATIC ( 3 ) IS  THE  RADIAL  STRESS;  STATIC(4)  IS  THE 
SHEAR  STRESS 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
— STRAMP ( 1 , * ) ARE  THE  AXIAL  STRESSES;  STRAMP (2  *)  ARE 
THE  HOOP  STRESSES;  STRAMP (3,*)  ARE  THE  RADIAL  STRESSES; 
STRAMP! 4,*)  ARE  THE  SHEAR  STRESSES 

STRESS  TENSILE  POINT  (PSI) 

1- D  ARRAY  CONTAINING  'HIE  TIME-VARYING  TORQUE  LOADS 
WALL  THICKNESS  AT  DUCT  OUTER  RADIUS 

FUNCTION  WHICH  CALCULATES  THE  LIFR  FOR  THE  PLAIN  WELD  UNDER 
THERMAL  LOADS 

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V( 1, *) 
ARE  THE  V2  LOADS;  V(2,*)  ARE  THE  V3  LOADS 

^ 


1-D  ARRAY  CONTAINING 


TATIC  SHEAR  LOADS  — V(  1)  IS  THE  V2 


LOAD;  V(2)  IS  THE  V3  LOAD 
WELD  OFFSET 

ZeRO  REGion — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1-NO  ZERO  REGION 


IF  (LOCAT  .EQ.  1)  THEN 

CALL  M4L1  (ALPHA,  ANGLE,  DLTAT,  EM,  DI,  K,  LAMW,  M,  MSTAT, 

& NLOAD,  NU,  P,  PC,  PCO,  PSTAT,  STATIC,  STRAMP,  T, 

S,  THIC,  TSTAT,  V,  VSTAT,  WOFF,  FK,  RT) 


& 

& 

& 


CALL  NARBN2 


(E,  EM,  FATLIF,  FTU,  FTY,  1.0,  KRATIO,  LNA,  LNZ, 
LPHIM,  MM,  NRAN.  NEUB,  NLOAD,  NUMREG,  NUMSEG, 
SBND,  PERIOD,  SE,  STATIC,  STRAMP,  STRHIS,  SZERO 
TRUNC,  ZROREG) 


ELSE  IF  (LOCAT  .EQ.  2)  THEN 


& 

& 


CALL  M4L2  (ALPHA,  ANGLE, 
NLOAD,  NU,  P, 
THIC,  TSTAT, 


DLTAT,  EM,  DI,  K,  LAMW, 
PC,  PCO,  PSTAT,  STATIC, 
V,  VSTAT,  WOFF,  FK,  RT) 


M.  MSTAT. 
STRAMP,  T 


9 
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CALL  NARBN2  (E,  EM,  FATLIF,  FTU,  FTY,  1.0,  KRATIO* 

LPHIM,  MM,  NRAN,  NEUB,  NLOAD,  NUMBER  NUMSEG. 
SBND,  PERIOD,  SE,  STATIC,  STRAMP,  STRHIS,  SZERO, 
TRUNC,  ZROREG) 


ELSE 

WRITE (8,*)  'ERROR:  INVALID  LOCATION  SPECIFICATION' 

CALL  TRMNAT 

ENDIF 


THWELD  = FATLIF 

RETURN 

END 


C************************************************************************** 

C SUBROUTINE  M4L1  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  FIND  THES TRESS 
C FOR  LOCATION  1 (PLAIN  WELD,  EXTERIOR  SURFACE  OF  THE  DUCT)  UNDER  THERMAL 
C LOADING 

C PROGRAMMER:  L.  NEWLIN 

C DATE:  4MAR91 

C VERSION.  ^^^*Y*jJ************************************************ 


SUBROUTINE 

& 

& 


M4L1  (ALPHA,  ANGLE,  DLTAT , EM,  DI,  K,  LAMW,  M,  MSTAT, 
NLOAD,  NU,  P,  PC,  PCO,  PSTAT,  STATIC,  STRAMP, 

T,  THIC,  TSTAT,  V,  VSTAT , WOFF,  FK,  RT) 


INPUTS: 


ALPHA,  ANGLE,  DLTAT,  EM, 
PC,  PCO,  PSTAT,  STATIC, 


DI,  K,  LAMW,  M,  MSTAT,  NLOAD,  NU, 
T,  THIC,  TSTAT,  V,  VSTAT,  WOFF,  FK, 


RT 


OUTPUTS : STATIC , STRAMP 


C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I,  I OUT,  J,  MAXLD,  NLOAD 
REAL  PI 

PARAMETER  (MAXLD  * 16,  PI  * 3.1415926536) 


C 

C 

C ALPHA 
C ANGLE 
C AREA 
C DI 
C DLTAT 
C EM 
C FK(  ) 

C 

C GEOM 
C I 
C 

C IFK 


LIST  OF  VARIABLES 

COEFFICIENT  OF  THERMAL  EXPANSION 

ANGLE  THETA  IN  RADIANS 

CROSS  SECTION AREA  OF  DUCT  WALL 

INTERIOR  DIAMETER  

TEMPERATURE  DIFFERENCE  BETWEEN  INNER  AND  OUTER  SURFACES 
YOUNG'S  MODULUS  PRIOR  TO  YIELD 

1-D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
INTERMEDIATE  THERMAL  STRESS  CALCULATION  VARIABLE 
CONTROLS  DO  LOOP  FOR  RANDOM,  SUPERIMPOSED  SINUSOIDAL  AND 

INTERPOLATED^VALUE  OF  Fk  CORRESPONDING  TO  THE  VALUE  OF  r/t 


7-225 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


I OUT 
J 

K<) 


KOFF 
LAMW 
M(  ) 

MAXLD 

HI 

MSTAT( ) 

NLQAD 

NU 

W 

PCO 

PI 

PSTAT 

RDIFF 

RI 

RI2 

RO 

R02 

ROT 

RT() 

SIGlA(  ) 

SIG1B( ) 

SKTl 
SKT2 
STATIC () 


STHHA 
STRIA 
STR1B 
STR1C 
STR2A 
STR2B 
S TRAMP ( ) 


31c 

TSTAT 

V() 

VSTAT ( ) 
WOFF 


OUTPUT  DUMP  CONTROLLER  

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  RT()  AND  FK( ) DURING 

INTERPOLATION  . . 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — K( 1, 1)  IS  FOR  DUCT 
EXTERIOR  FOR  AXIAL  DIRECTION;  K(2, 1)  IS  FOR  DUCT  EXTERIOR 
FOR  HOOP  DIRECTION;  K(l,2)  IS  FOR 


CT  INTERIOR  FOR  AXIAL 


DIRECTION;  K(2,2)  IS  FOR  AuCT  INTERIOR  FOR  HOOP  DIRECTION 
STRESS  CONCENTRATION  FACTOR  DUE  TO  ECCENTRICITY  OF  WELD 
ACCURACY  FACTOR  OF  Fk  - r/t  CURVE  , _ 

2-D  ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M( 1,*) 

ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 
MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 
MOMENT  OF  INERTIA 

1— D ARRAY  CONTAINING  THE  STATIC  MOMENT  LOADS  — M(l)  IS  THE  M 
2 LOAD;  M(2)  IS  THE  M3  LOAD 
NUMBER  OF  TIME-VARYING  LOADS 
POISSON'S  RATIO 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 

LIMIT  PRESSURE  ON  INSIDE  OF  THE  VESSEL 

LIMIT  PRESSURE  ON  OUTSIDE  OF  THE  VESSEL 

SELF  EXPLANATORY  CONSTANT 

STATIC  AXIAL  LOAD 

EQUAL  TO  R02  - RI2 

INTERIOR  RADIUS 

INNER  RADIUS  SQUARED 

OUTER  RADIUS 

OUTER  RADIUS  SQUARED 

EQUAL  TO  r / t (R  Over  T) 

1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  AXIAL  STRESS  DUE  TO  FORCE 
FOR  THE  TIME-VARYING  LOADS 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  AXIAL  STRESS  DUE  TO  BENDING 
FOR  THE  TIME-VARYING  LOADS 
STRESS  CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 
STRESS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — 

STATIC ( 1 ) IS  THE  AXIAL  STRESS;  STATIC(2t  IS  THE  HOOP  STRESS; 
STATIC ( 3 ) IS  THE  RADIAL  STRESS;  STATIC (4)  IS  THE  SHEAR  STRESS 

THE  STATIC  AXIAL  STRESS  DUE  TO  THERMAL  GRADIENT 
THE  STATIC  AXIAL  STRESS  DUE  TO  FORCE 
THE  STATIC  AXIAL  STRESS  DUE  TO  BENDING 

THE  STATIC  AXIAL  STRESS  DUE  TO  MOMENTUM  CHANGE  (FLUID) 

THE  STATIC  HOOP  STRESS  AT  OUTER  SURFACE  DUE  TO  INTERNAL  PRESSURE 
THE  STATIC  HOOP  STRESS  AT  OUTER  SURFACE  DUE  TO  EXTERNAL  PRESSURE 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
— STRAMP{ 1, *)  ARE  THE  AXIAL  STRESSES;  STRAMP(2  ARE 
THE  HOOP  STRESSES;  S TRAMP ( 3, *)  ARE  THE  RADIAL  STRESSES; 

STRAMP ( 4 , * ) ARE  THE  SHEAR  STRESSES 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
WALL  THICKNESS  AT  DUCT  OUTER  RADIUS 

STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V(l,*) 

ARE  THE  V2  LOADS;  V(2, *)  ARE  THE  V3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — V(l)  IS  THE  V2 
LOAD;  V(2)  IS  THE  V3  LOAD 
WELD  OFFSET 


C CALCULATE  KOFF,  THE  STRESS  CONCENTRATION  FACTOR  DUE  TO 

C ECCENTRICITY  OF  THE  WELD 

RI  - DI  / 2.0 

ROT  * (DI  + THIC)  / (2.0  * THIC) 


DO  50  J = 2,  10 

INTERPOLATE  TO  FIND  FACTOR  Fk  CORRESPONDING  TO  VALUE  OF  r/t 
IF  i^ROT  •LE*  RT(J££  •AND«  (ROT  *GE*  RTi.J-1)))  THEN 


1FK 

& 

END  IF 
50  CONTINUE 


(FK( J) 

/ <RT< 


(RT( J)  - RT( J 


(J-l))  * (ROT  - RT(J 
-1))  + - 


FK(J-l) 


-I.l 
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KOFF  - LAMW  * (1.0  + 3.0  * IFK  * WOFF) 


IF  (IOUT  .EQ. 
WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


25)  THEN 
'DI  - 
'THIC  - 
'IFK  - ' 
'LAMW  ■ 


DI,  ' RI  - ',  RI 
',  THIC,  ' ROT  - ' 
, IFK,  ' WOFF  « ', 
',  LAMW,  ' KOFF  « 


, ROT 
WOFF 
',  KOFF 


CALCULATE  THE  CROSS-SECTIONAL  AREA  AND  MOMENT  OF  INERTIA 


C 

C 


AREA 
MI  - 


-PI  * ((RI  + THIC)  **  2 - RI  ** 
PI  * ((RI  + THIC)  **  4 - RI  **  4) 


2> 


4.0 


OBTAIN  STRESS  CONCENTRATION  FACTORS  AND  RADII  APPROPRIATE  TO  LOCATION 
THIS  IS  THE  EXTERIOR  SURFACE 


SKTl 
SKT2 
RO  * 


= Kfl,l> 
= K2fl 
RI  + THIC 


(IOUT  .EQ. 
WRITE ( 8, * ] 

, 25)  THEN 
'AREA  - ', 

WRITE  ( 

;8,*1 

WRITE  < 

8'* 

' K ( 2 , 1 ) - 

WRITEj 

8,  * j 

'THIC  = ', 

WRITE! 

[8,*] 

'ALPHA  = ' 

WRITE! 

8,* 

'DLTAT  = ' 

WRITE \ 

[8,*! 

ENDIF 


AREA 


',  K(l,l) 

',  K(2 , 1 ) 
THIC,  ' 

, ALPHA, 

, DLTAT, 


MI  - ',  MI 
' SKTl  - ', 
' SKT2  - ', 
RO  = ',  RO 
' NU  - ',  NU 
' EM  « ',  EM 


SKTl 

SKT2 


C 


c 


c 


c 


RI2  = RI  **  2 
R02  = RO  **  2 
RDIFF  = R02  - RI2 

GEOM  - 1.00  - 2.00  * LOG  (RO  / RI)  * RI2  / RDIFF 
TEMPERATURE  STRESS 

STHMA  - ((EM  * ALPHA  * DLTAT)  / (2.00  * (1.00  - NU) 
& * LOG  (RO  / RI)))  * GEOM 


AXIAL  STRESS  CALCULATIONS 


STRIA  * PSTAT  / AREA 

STR1B  - (MSTAT(l)  * COS  (ANGLE)  + MSTAT ( 2 ) * SIN  (ANGLE))  * RO 
A / MI 

STR1C  = (PC  - PCO)  * RI2  / RDIFF 

STATIC ( 1 ) = (STRIA  + STRlB  + STRlC)  * SKTl  * KOFF  + STHMA 


HOOP  (2)  AND  RADIAL  (3)  STRESS  CALCULATIONS 

STR2A  = 2.0  * PC  * RI2  / RDIFF 
STR2B  = - PCO  * (R02  + RI2 ) / RDIFF 

STATIC (2)  = (STR2A  + STR2B)  * SKT2  + STHMA 

STATIC ( 3 ) = - PCO 

SHEAR  STRESS 


STATIC ( 4 ) = TSTAT  * RO  / (2.0 
A * (VSTAT(l)  * COS 


* MI)  - (2.0  / AREA 

(ANGLE)  + VSTAT ( 2 ) * SIN  (ANGLE))) 


IF 


(IOUT. EQ. 25)  THEN 


WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8, * ) 
WRITE (8,*) 
WRITE (8,* 
WRITE ( 8 , * 
WRITE (8,* 


R02  - ',  R02,  ' RI2  - ',  RI2 
RDIFF  - ' , RDIFF,  ' GEOM  - ' , 
STATIC  STRESS  VALUES  ’ 

AXIAL  STRESSES’ 

STRIA  = ' , STRIA,  ' STRlB 
STRlC  * ' , STRlC , ' STHMA 

STATIC ( 1 ) - ',  STATIC ( 1 ) 


GEOM 


- ',  STRlB 

- ',  STHMA 
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& 


STR2B 


STR2B 


WRITE ( 8 , * ) 
WRITE ( 8,  *) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


'HOOP  STRESSES' 

' STR2A  = STR2A,  ' 

' STHMA  * ' . STHMA 
' STATIC ( 2 ) - STATIC (2) 
'RADIAL  STRESS',  ' STATIC (3)  = 
'SHEAR  STRESS',  ' STATIC(4)  - ' 


, STATIC ( 3 ) 
STATIC ( 4 ) 


DO  100  I * 1,  NLOAD 
C AXIAL  STRESS  CALCULATIONS 

SIGIA(I)  - P(I)  / AREA 

SIGIB(I)  = (M( i, I)  * COS  (ANGLE)  + M(2,I)  * SIN  (ANGLE)) 

& * RO  / MI 

STRAMP (1,1)  - (SIGIA(I)  + SIGlB(I) ) * SKTl  * KOFF 

C HOOP  (2)  AND  RADIAL  (3)  STRESSES  ARE  ZERO 

C BECAUSE  PRESSURES  ARE  CONSTANT 

STRAMP (2,1)  = 0.0 

STRAMP (3,1)  =0.0 

C SHEAR  STRESS 

STRAMP (4,1)  = T(I)  * RO  / (2.0  * MI)  — (2.0  / AREA 
& * (V(1,I)  * COS  (ANGLE)  + V(2,I)  * SIN  (ANGLE))) 


IF  (IOUT.EQ.25)  THEN 

WRITE (8,*)  

WRITE ( 8,  * ) 

WRITE (8,*) 

WRITE (8,*) 

WRITE (8,*) 

WRITE (8,*) 

WRITE (8,*) 

WRITE (8,*) 

ENDIF 


STRESS  VALUES  FOR  I 
AXIAL  STRESSES' 


M 


SIG1A  = ',  SIGIA(I).  ' SIG1B 
STRAMP^lil)  = ',  STRAMP ( 1 , I | 


HOOP  STRESSES' 
RADIAL  STRESS' 
SHEAR  STRESS' 


STRAMP (2,1 
STRAMP(3,I) 
STRAMP(4,I) 


, SIGIB(I) 

, STRAMP (2,1) 
, STRAMP (3,1) 
STRAMP (4,1) 


100  CONTINUE 


IF  (IOUT  .EQ.  25)  THEN 

WRITE  ( 8 , * ) 'I  AXIAL  HOOP  RADIAL  SHEAR' 

WRITE ( 8 , * ) STATIC ( 1 ) , STATIC(2),  STATIC(3),  STATIC(4) 
DO  30U  1=1,  NLOAD 

WRITE ( 8 , * ) I,  STRAMP ( 1,1),  STRAMP(2,I),  STRAMP(3,I), 
& STRAMP ( 4 , I) 

300  CONTINUE 
ENDIF 


RETURN 

END 


C**** **************************************************************** ****** 

C SUBROUTINE  M4L2  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  FIND  THE  STRESS 
C FOR  LOCATION  2 (PLAIN  WELD,  INTERIOR  SURFACE  OF  THE  DUCT),  UNDER 
C THERMAL  LOADING 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  11JUL90 

C VERSION : THDUCT  V4,  V4.1 

C** ************************************************************** ********** 

SUBROUTINE  M4L2  (ALPHA,  ANGLE,  DLTAT,  EM,  DI,  K,  LAMW,  M,  MSTAT, 

& NLOAD,  NU,  P,  PC,  PCO,  PSTAT,  STATIC,  STRAMP, 

& T,  THIC,  TSTAT , V,  VSTAT,  WOFF,  FK,  RT) 
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c 

c 

c 

c 


INPUTS: 


ALPHA, 
P,  PC, 


ANGLE,  DLTAT, 
PCO,  PSTAT,  T, 


EH,  DI,  K . LAMW,  M,  MSTAT,  NLOAD, 
THIC,  TSTAT  V,  VSTAT,  WOFF,  FK, 


NU, 

RT 


OUTPUTS:  STATIC,  S TRAMP 


C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I,  I OUT,  J,  MAXLD,  NLOAD 
REAL  PI 


PARAMETER  (MAXLD  = 16,  PI  - 3.1415926536) 


REAL 

& 

& 

& 

& 

& 

& 


ALPHA,  ANGLE,  AREA,  DLTAT,  EM,  FK(10),  GEOM,  IFK,  DI, 
K<2,  $),  Korf",  LAMW,  M<2,  MAx£d),'mI,  MSTAT (2 ) , NU , 
P(MAXli)) , PC,  PCO,  PSTAT,  RDIFF,  RI,  RI2,  RO.  R02, 
ROT,  RT(lO),  SIG1A ( MAXLD ) , SIGlB  (MAXLD) , SKTl,  SKT2, 
STATIC ( 4 ),  STHMA,  STRIA,  STR2A,  STRlB,  STR2B,  STRlC, 
STRAMP( 4,  MAXLD),  T(MAXLD) , THIC,  TSTAT,  V(2,  MAXLD), 
VSTAT ( 2 ) , WOFF 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ALPHA 

ANGLE 

AREA 

DI 

DLTAT 
EM 
FK(  ) 

GEOM 

I 

IFK 
I OUT 
J 

K<> 


KOFF 
LAMW 
M(  ) 


MAXLD 

MI 

MSTAT ( ) 

NLOAD 

NU 

IP 

PCO 

PI 

PSTAT 

RDIFF 

RI 

RI2 

RO 

R02 

ROT 

RT<) 

SIG1A() 

SIGlB ( ) 


LIST  OF  VARIABLES 

COEFFICIENT  OF  THERMAL  EXPANSION 

ANGLE  THETA  IN  RADIANS 

CROSS  SECTION  AREA  OF  DUCT  WALL 

INTERIOR  DIAMETER  

TRMPEPATIIBK  DIFFERENCE  BETWEEN  INNER  AND  OUTER  SURFACES 
YOUNG'S  MODULUS  PRIOR  TO  YIELD 

1- D  ARRAY  CONTAINING  VALUES  OF  Fk  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 

INTERMEDIATE  THERMAL  STRESS  CALCULATION  VARIABLE 
CONTROLS  DO  LOOP  FOR  RANDOM,  SUPERIMPOSED  SINUSOIDAL  AND 
AERODYNAMIC  LOADS 

INTERPOLATED  VALUE  OF  Fk  CORRESPONDING  TO  THE  VALUE  OF  r/t 

OUTPUT  DUMP  CONTROLLER  

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  RT( ) AND  FK( ) DURING 
INTERPOLATION 

FATIGUE  STRESS  CONCENTRATION  FACTORS  — K(l,l)  IS  FOR  DUCT 
EXTERIOR  FOR  AXIAL  DIRECTION;  K(2,l)  IS  FOR  DUCT  EXTERIOR 
FOR  HOOP  DIRECTION;  K(1.2)  IS  FOR  DUCT  INTERIOR  FOR  AXIAL 
DIRECTION;  K(2,2)  IS  FOR  DUCT  INTERIOR  FOR  HOOP  DIRECTION 
STRESS  CONCENTRATION  FACTOR  DUE  TO  ECCENTRICITY  OF  WELD 
ACCURACY  FACTOR  OF  Fk  - r/t  CURVE  „ 

2—  D ARRAY  CONTAINING  THE  TIME-VARYING  MOMENT  LOADS  — M(l,*) 
ARE  THE  M2  LOADS;  M(2,*)  ARE  THE  M3  LOADS 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED 

MOMENT  OF  INERTIA  _ „ k_ 

1-D  ARRAY  CONTAINING  THE  STATIC  TIME-VARYING  LOADS  — M(l)  IS 


THE  M2  LOAD;  M(2)  IS  THE  M3  LOAD 
OS-VARYING  LOADS 


NUMBER  OF  TIME- 
POISSON'S  RATIO 

1-D  ARRAY  CONTAINING  THE  TIME-VARYING  AXIAL  LOADS 

LIMIT  PRESSURE  ON  INSIDE  OF  THE  VESSEL 

LIMIT  PRESSURE  ON  OUTSIDE  OF  THE  VESSEL 

SELF  EXPLANATORY  CONSTANT 

STATIC  AXIAL  LOAD 

EQUAL  TO  RQ2  - RI2 

INTERIOR  RADIUS 

INNER  RADIUS  SQUARED 

OUTER  RADIUS 

OUTER  RADIUS  SQUARED 

EQUAL  TO  r / t (R  Over  T)  , _ 

1-D  ARRAY  CONTAINING  VALUES  OF  r/t  USED  TO  FIND  STRESS 
CONCENTRATION  DUE  TO  WELD  ECCENTRICITY 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  AXIAL  STRESS  DUE  TO  FORCE 

FOR  THE  TIME-VARYING  LOADS  _ 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  AXIAL  STRESS  DUE  TO  BENDING 
FOR  THE  TIME-VARYING  LOADS 
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no  o o no  ononnonnonooooooooooon 


c 


SKTl 

SKT2 

STATIC ( ) 


STHMA 

STRIA 

STRlB 

STR1C 

STR2A 

STR2B 

STRAMP() 


Sic 

TSTAT 

V() 

VSTAT ( ) 
WOFF 


STRESS  CONCENTRATION  FACTOR  FOR  AXIAL  STRESS 
STRESS  CONCENTRATION  FACTOR  FOR  HOOP  STRESS 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — 

STATIC ( 1 ) IS  THE  AXIAL  STRESS;  STATIC (2 ) IS  THE  HOOP  STRESS; 
STATIC (3)  IS  THE  RADIAL  STRESS; STATIC( 4)  IS  THE  SHEAR  STRESS 

THE  STATIC  AXIAL  STRESS  DUE  TO  THERMAL  GRADIENT 

THE  STATIC  AXIAL  STRESS  DUE  TO  FORCE 

THE  STATIC  AXIAL  STRESS  DUE  TO  BENDING 

THE  STATIC  AXIAL  STRESS  DUE  TO  MOMENTUM  CHANGE  (FLUID) 

THE  STATIC  HOOP  STRESS  AT  OUTER  SURFACE  DUE  TO  INTERNAL  PRESSURE 
THE  STATIC  HOOP  STRESS  AT  OUTER  SURFACE  DUE  TO  EXTERNAL  PRESSURE 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
— STRAMP ( 1 , * ) ARE  THE  AXIAL  STRESSES;  STRAMP(2  *)  ARE 
THE  HOOP  STRESSES;  STRAMP ( 3, *)  ARE  THE  RADIAL  STRESSES; 

STRAMP ( 4 . * ) ARE  THE  SHEAR  STRESSES 

1- D  ARRAY  CONTAINING  THE  TIME-VARYING  TORQUE  LOADS 
HALL  THICKNESS  AT  DUCT  OUTER  RADIUS 

STATIC  TORQUE  LOAD 

2- D  ARRAY  CONTAINING  THE  TIME-VARYING  SHEAR  LOADS  — V(l,*) 

ARE  THE  V2  LOADS;  V(2,*)  ARE  THE  V3  LOADS 

1-D  ARRAY  CONTAINING  THE  STATIC  SHEAR  LOADS  — V(l)  IS  THE  V2 
LOAD;  V(2)  IS  THE  V3  LOAD 
WELD  OFFS 


CALCULATE  KOFF,  THE  STRESS  CONCENTRATION  FACTOR  DUE  TO 
ECCENTRICITY  OF  THE  WELD 

RI  « DI  / 2.0 

ROT  - (DI  + THIC)  / (2.0  * THIC) 


DO  50  J “ 2.  10 

INTERPOLATE  TO  FIND  FACTOR  Fk  CORRESPONDING  TO  VALUE  OF  r/t 
IF  ((ROT  .LE.  RT( J) ) .AND.  (ROT  .GE.  RT(J-1)))  THEN 
IFK  = (FK(J)  - FK(J-l) } * (ROT  - RT(J-l) ) 

& ; (RT(J)  - ftT(J-l))  + FK(J-l) 

ENDIF 
50  CONTINUE 


KOFF  - LAMW  * (1.0  + 3.0  * IFK  * WOFF) 


IF 


.EQ. 


(IOUT 

WRITE ( 8 , * ) 
WRITE ( 8,  *) 
WRITE ( 8 , * ) 
WRITE ( 8,  *) 
ENDIF 


25)  THEN 

'DI  - ',  DI,  ' RI  * '.  RI 
'THIC  - ' , THIC,  ' ROT  - ',  ROT 
'IFK  « ',  IFK,  ' WOFF  - ',  WOFF 
'LAMW  - ',  LAMW,  ' KOFF  - ',  KOFF 


CALCULATE  THE  CROSS-SECTIONAL  AREA  AND  MOMENT  OF  INERTIA 

AREA  - PI  * ((RI  + THIC)  **  2 - RI  **  2) 

MI  * PI  * ((RI  + THIC)  **  4 - RI  **  4)  / 4.0 

OBTAIN  STRESS  CONCENTRATION  FACTORS  AND  RADII  APPROPRIATE  TO  LOCATION 
THIS  IS  THE  INTERIOR  SURFACE 


SKTl 

SKT2 


RO  * RI  + 


K(  i, 2 ) 

-*Kii 


C 


IF  (IOUT  .EQ. 


ENDIF 


WRITER 

8,*] 

WRITE! 

8,* 

WRITE! 

8,* 

WRITE! 

8,* 

WRITE ( 8 , * ] 

WRITE 

8,* 

WRITE! 

18,*) 

25)  THEN 
AREA  * ' , 

g&it : 

THIC  * ' , 
ALPHA  * ' 
DLTAT  * ' 


DDPl  ' 


iniv,  , 

, ALPHA, 
, DLTAT, 


MI  = ' , MI 
, ' SKTl  « ' , 
, ' SKT2  * 

RO  = ' , RO 
' NU  * NU 
' EM  * * , EM 


SKTl 

SKT2 


RI2  = RI  **  2 
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c 


c 


c 


c 


R02  « RO  **  2 
RDIFF  * R02  - RI2 

GEOM  » 1.00  - 2.00  * LOG  (RO  / RI)  * R02  / RDIFF 
TEMPERATURE  STRESS 

STHMA  * ((EM  * ALPHA  * DLTAT)  / (2.00  * (1.00  - NU) 
& * LOG  (RO  / RI)))  * GEOM 


AXIAL  STRESS  CALCULATIONS 

cnnj  1 a s j lijjjjlk 

STR1B  ■ (MSTAT(l)  * COS  (ANGLE)  + MSTAT ( 2 ) * SIN  (ANGLE)) 

& * RI  / MI 

STR1C  « (PC  - PCO)  * RI2  / RDIFF 

STATIC ( 1 ) “ ( STRIA  + STR1B  + STR1C ) * SKTl  * KOFF  + STHMA 

HOOP  (2)  AND  RADIAL  (3)  STRESS  CALCULATIONS 

STR2A  =PC  * (RI2  + R02)  / RDIFF 
STR2B  = - 2.0  * PCO  * R02  / RDIFF 

STATIC ( 2 ) = (STR2A  + STR2B)  * SKT2  + STHMA 

STATIC ( 3 ) = - PC 

SHEAR  STRESS 

STATIC l 4 ) — TSTAT  * RI  / (2.0  * MI ) — (2.0  / AREA 
t ' ' * (VSTAT(l)  * COS  (ANGLE)  + VSTAT(2)  * SIN  (ANGLE))) 


IF  ( IOUT 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
i 

WRITE 

WRITE 

WRITE 

WRITE 

ENDIF 


THEN 

R02  = R02,  ’ RI2  - ' , RI2 

RDIFF  * ' , RDIFF,  ' GEOM  - ' , 
STATIC  STRESS  VALUES' 

AXIAL  STRESSES' 

STRIA  = ' , STRIA,  ' STRlB 
STR1C  * ',  STR1C,  ' STHMA 
STATIC(l)  = ',  STATIC ( 1 ) 
HOOP  STRESSES' 

STR2A  = ' , STR2A,  ' STR2B 
STHMA  = ',  STHMA 

STATIC (2)  * ',  STATIC (2 ) 
RADIAL  STRESS ' , ' STATIC* 3) 

SHEAR  STRESS',  ' STATIC (4) 


GEOM 


« ' , STRlB 
» STHMA 


* ',  STR2B, 


- ',  STATIC (3) 
* ',  STATIC ( 4 ) 


DO  100  I = 1,  NLOAD 
C AXIAL  STRESS  CALCULATIONS 

ilGlB{l|  = ^l^J^^COS  (ANGLE)  + M(2,I)  * SIN  (ANGLE)) 

& * RI  / MI 

STRAMP( 1,1)  = (SIGIA(I)  + SIGlB(I))  * SKTl  * KOFF 

C HOOP  (2)  AND  RADIAL  (3)  STRESSES  ARE  ZERO 

C BECAUSE  PRESSURES  ARE  CONSTANT 

STRAMP (2,1)  ■ 0.0 

STRAMP (3,1)  = 0.0 

C SHEAR  STRESS 

t STRAMP<4'I>  " COS2(ANGLE)>+‘vj2;i)/*ASIN  * ANGLE)  ) ) 


IF  (IOUT. EQ. 25)  THEN 
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WRITE | 

8,*) 

WRITE  j 

8,* 

WRITE { 

8,* 

WRITE  { 

8,*) 

WRITEj 

8,* 

WRITE! 

! 8,  * s 

WRITE! 

I8'*! 

WRITE! 

8f* 

ENDIF 


'STRESS  VALUES  FOR  I - ',1 
'AXIAL  STRESSES' 

' SIG1A  - ',  SIGlA(I) , ' SIG1B  - ',  SIGlB(I) 

' STRAMP(l.I)  - STRAMP(lfI) 

'HOOP  STRESSES’,  ' STRAMP<2,I)  » ' , STRAMP (2,1) 

'RADIAL  STRESS',  ' STRAMP(3,I)  - ' , STRAMP (3,1) 

'SHEAR  STRESS',  ' STRAMP(4,I)  - ',  STRAMP(4,I) 


100  CONTINUE 


IF  ( IOUT  .EQ.  25)  THEN 

WRITE ( 8 ,* ) 'I  AXIAL  HOOP  RADIAL  SHEAR' 

WRITE ( 8 , * ) STATIC ( 1) , STATIC(2),  STATIC(3),  STATIC(4) 
DO  306  I » 1,  NLQAD 

WRITE (8,*)  I,  STRAMP (1,1),  STRAMP(2,I),  STRAMP(3,I), 
& STRAMP(4, I) 

300  CONTINUE 
ENDIF 


RETURN 

END 


C**  ★★***★★★★*★**★*★**  *★★★*★*****★*★★★*★  *****************  * ****************** 

C SUBROUTINE  NARBN2  CALCULATES  THE  FATIGUE  LIFE  WHEN  A RANDOMLY  DISTRIBUTED 
C LOAD  IS  PRESENT  USING  A SIMULATED  NARROW  BAND  STRESS-TIME  HISTORY 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  11JUL90 

C VERSION : THDUCT  V4,  V4  • 1 

*****★★★★***★**★*★★*★★★**★*★*★★**★★*****★*★****★ ** *★★******★★* ********** 

SUBROUTINE  NARBN2  (E,  EM,  FATLIF,  FTU,  FTY,  KT,  KRATIO,  LNA, 

& LNZ , LPHIM,  MM.  M,  NEUB.  NLOAD,  NUMREG, 

& NUMSEG,  SBND,  PERIOD,  SE,  STATIC,  STRAMP, 

& STRHIS , SZERO,  TRUNC,  ZROREG) 


INPUTS:  E,  EM,  FTU,  FTY,  KT,  KRATIO,  LNA,  LNZ,  LPHIM,  MM,  M,  NEUB, 

NLOAD,  NUMREG,  NUMSEG,  SBND,  PERIOD,  SE,  STATIC,  STRAMP, 
STRHIS,  SZERO,  TRUNC,  ZROREG 

OUTPUTS : FATLIF 

SUBPROGRAMS : RAINF2 

C IMPLICIT  NONE 

INTEGER  MAXLD,  MAXM,  MAXREG,  MAXSEG 

PARAMETER  (MAXLD  = 16,  MAXM  * 24000,  MAXREG  = 3,  MAXSEG  « 10) 
COMMON  IOUT 


INTEGER  I,  IOUT,  J,  M,  NLOAD,  NUMREG,  NUMSEG,  ZROREG 


C 

C 


C FATLIF 
C FTY 
C FTU 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  THE  STRAIN  VALUES 
YOUNG'S  MODULUS  BEFORE  YIELD 
VALUE  OF  FATIGUE  LIFE  CALCULATED 
YIELD  STRENGTH 
ULTIMATE  STRENGTH 
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C I 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IOUT 

J 

KRATIO 

KT 

LNA() 
LPHIM( ) 
M 

MAXLD 

MAXM 

MAXREG 

MAXSEG 

MM<  ) 

NEUB 

NLOAD 

NUMREG 

NUMSEG 

PERIOD 

RAINF2 

S<) 

SBND( ) 


SE<) 
SEFF( ) 


STATIC ( ) 


S TRAMP ( ) 


SZERO 

TRUNC 

ZROREG 


CONTROLS  DO  LOOP  FOR  RANDOM,  SUPERIMPOSED  SINUSOIDAL  AND 
AERODYNAMIC  LOADS 

OUTPUT  DUMP  CONTROLLER  

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  STRESS-TIME  HISTORY 
RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
STRESS  CONCENTRATION  FACTOR  _ 

1-D  ARRAY  CONTAINING  VALUES  OF  LnfA)  - Ln|K**m)  1 TOR  EACH  REGION 
1— D ARRAY  CONTAINING  VALUES  OF  Ln jPHI)m  FOR  EACH  REGION 
NUMBER  OF  POINTS  IN  STRESS-TIME  HISTORY 

MAXIMUM  NUMBER  OF  TIME-VARYING  LOADS  ALLOWED  

MAXIMUM  NUMBER  OF  POINTS  ALLOWED  IN  STRESS-TIME  HISTORY 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED 

1- D  ARRAY  CONTAINING  VALUES  FOR  m FOR  EACH  REGION 
NEUBER'S  RULE  MODEL  ACCURACY  FACTOR 

NUMBER  OF  TIME-VARYING  LOADS 
NUMBER  OF  REGIONS  OF  INTEREST 

NUMBER  OF  SEGMENTS  OF  INTEREST  IN  STRESS-STRAIN  CURVE 
TIME  IN  SECONDS  FOR  ONE  PERIOD  OF  STRESS-TIME  HISTORY 
FUNCTION  WHICH  CALCULATES  THE  TIME  TO  FAILURE  FOR  A GIVEN 
UNI-AXIAL  STRESS-TIME  HISTORY 

2- D  ARRAY  CONTAINING  THE  TOTAL  COMPONENT  STRESS-TIME  HISTORIES 
1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R * -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CORRECTED  FOR  PHI,  KRATIO  AND  LNZ 
1-D  ARRAY  CONTAINING  THE  STRESS-STRAIN  PRODUCT 
1-D  ARRAY  CONTAINING  THE  EFFECTIVE  {OR  UNI-AXIAL)  STRESS-TIME 
HISTORY  RESULTING  FROM  THE  COMBINATION  OF  STATIC,  RANDOM,  AND 
SINUSOIDAL  LOADS  FOR  ALL  FOUR  COMPONENTS 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  STATIC  STRESSES  — STATICfl) 
IS  THE  AXIAL  STRESS?  STATIC(2)  IS  THE  HOOP  STRESS;  STATIC(3) 
IS  THE  RADIAL  STRESS;  STATIC (4)  IS  THE  SHEAR  STRESS 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  TIME-VARYING  STRESSES 
— STRAMP ( 1 , * ) ARE  THE  AXIAL  STRESSES;  STRAMP(2,  *)  ARE 
THE  HOOP  STRESSES;  STRAMP (3,*)  ARE  THE  RADIAL  STRESSES; 

STRAMP (4 , *)  ARE  THE  SHEAR  STRESSES 

STRESS  TENSILE  POINT  (PSI) 

VALUE  USED  TO  FILTER  OUT  NOISE  IN  THE  STRESS-TIME  HISTORY 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUES  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


DO  50  J = 1,  M 

S(1,J)  = STATIC ( 1 ) 
S 2,J  - STATIC  2) 

S 3,J)  ■ STATIC ( 3 ) 
S(4,J)  « STATIC ( 4 ) 

50  CONTINUE 

DO  100  1=1,  NLOAD 
DO  150  J = 1,  M 


s( If J) 
S(  4, J) 

= S(1,J\  + 
= S(4, J)  + 

NOTE: 

STRAMP (2,1) 

STRHIS ( I 


★ STRAMP (4 


:l\ 


150  CONTINUE 
100  CONTINUE 


DO  400  J = 1,  M 


& 

& 

& 


SEFF(J)  = (S(1,J)  / ABS  (S(1,J)))  * SQRT  (( 

(S(1,J)  - S(2, J) ) **  2 + (S(1,J)  - S(3,J))  ** 
+ S 2,J  - S(3, J) ) **  2 + (6.0  * S (4, J)  **  2)) 


/ 2.0) 

400  CONTINUE 

IF  (IOUT  .EQ.  25)  THEN 
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DO  125  J « 1,  M 

WRITE ( 8 , * ) J,  'Si  ',  S(1,J),  S(2,J),  S(3,J),  S(4,J) 
WRITE ( 8 , * ) 'SEFF  - ',  SEFF(J) 

125  CONTINUE 
END  IF 

FATLIF  * RAINF2  <E.  EM,  FTU,  FTY,  KT,  KRATIO,  LNA,  LNZ, 

6 LPHIM,  M,  MM,  NEUB,  PERIOD,  SBND,  NUMREG, 

6 NUMSEG,  SE,  SEFF,  SZERO,  TRUNC,  ZROREG) 

IF  (IOUT  .EQ.  25) 

& WRITE ( 8 , * ) ' PERIOD  * ' , PERIOD,  ' FATLIF  - ' , FATLIF 

RETURN 

END 


FUNCTION  RAINF2  CALCULATES  THE  TIME  (in  seconds)  TO  FAILURE  FOR 
THE  GIVEN  UNI-AXIAL  (OR  EFFECTIVE)  STRESS-TIME  HISTORY 

PROGRAMMER:  L.  NEWLIN 

DATE:  20SEP89 

VERSION:  4.2+  (CONSISTENT  WITH  THDUCT  V3.8,  V3.9,  V4,  & V4.1, 

MATCHR  V8.4,  V8.5) 

Copyright  (C)  1990,  California  Institute  of  Technology, 
u.s.  Government  Sponsorship  under  NASA  Contract  NAS 7 -9 18 
is  acknowledged. 


FUNCTION  RAINF2  (E,  EM,  FTU,  FTY,  KT,  KRATIO,  LNA,  LNZ,  LPHIM, 

& M,  MM,  NEUB,  PERIOD,  SBND,  NUMREG,  NUMSEG,  SE, 

& SEFF,  SZERO,  TRUNC,  ZROREG) 

INPUTS:  E,  EM,  FTU,  FTY,  KT,  KRATIO,  LNA,  LPHIM,  M,  MM,  NEUB,  PERIOD, 
SBND,  NUMREG,  NUMSEG,  SE,  SEFF,  SZERO,  TRUNC,  ZROREG 

OUTPUTS : RAINF2 


IMPLICIT  NONE 

COMMON  IOUT 

COMMON  / COUNT  / TOHIGH 

INTEGER  MAXREG,  MAXM,  MAXSEG 

PARAMETER  (MAXREG  * 3,  MAXM  « 24000,  MAXSEG  « 10) 

INTEGER  BIGl,  I,  INDEX ( MAXM)  , IOUT,  J,  JMAX,  K,  M,  N,  NEWTOT, 
Et  NUMREG,  NUMSEG,  OVER,  TOHIGH,  ZROREG 

REAL 


& 

& 

& 

a 

& 

& 


SA(0 
NEUB, 
SBND( 0 
SEFMAX 
SZERO 


[( OsMAXREG) , 
SALTF  (MAXM) , 
SEFFM(2,MAXM) 
X,  SM,  SMEANF ( MAXM ).  SP( MAXM),  STR(MAXM),  SUMDAM 
, TESTl (MAXM) , TEST2 (MAXM) , TRUNC 


i 

9 


LIST  OF  VARIABLES 


RAINF2 


CYCLES  TO  FAILURE  FOR  THE  GIVEN  STRESS  LEVELS 


input  variables: 


FTY 


1— D ARRAY  CONTAINING  THE  STRAIN  VALUES 
YOUNG'S  MODULUS  BEFORE  YIELD 
ULTIMATE  TENSILE  STRENGTH  (PSI) 

YIELD  TENSILE  STRENGTH  (PSI) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


I OUT 

KRATIO 

KT 

LNA() 

LNZ 

LPHIM() 


M 

MM(  ) 

MAXM 

MAXREG 

MAXSEG 

NUMREG 

NUMSEG 

PERIOD 

SBND 


TRUNC 

ZROREG 


c intermediate 


c 

C ARGH 
C BIG1 
C CHKFT 
C EE(  ) 

C GETLIF 
C INDEX*) 

C INVLIF(N) 

C I , J,K 
C JMAX 
C LIFE(N) 
ON 
C NEUB 
C NEUBER 
C NEWTOT 
C OVER 
C RAINF2 
C 

C S (NEWTOT) 

C SALTF(N) 

C SEFFM(2,N) 
C 

c 

C SEFMAX 
C SM 

C SMEANF(N) 
C SP(M+1) 

C STR(N) 

C SUMDAM 
C TEST1 ( ) 

C TEST2 ( ) 

C TOHIGH 


OUTPUT  DUMP  CONTROLLER  

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 

FATIGUE  CONCENTRATION  FACTOR  

1-D  ARRAY  CONTAINING  VALUES  OF  Ln  (A)  * Ln(K**M)  FOR 
EACH  REGION 

NORMAL  (O.PVAR)  GENERATED  FROM  RANDOM  VARIATE 
1-D  ARRAY  CONTAINING  VALUES  OF  Ln  (PHI ) *M  FOR  EACH 

REGION  WHERE  PHI  IS  A WEIBULL  ( BETAo , ETAO)  GENERATED 

RANDOM  VARIATE  _ 

TOTAL  NUMBER  OF  STRESS  DATA  POINTS  PER  PERIOD 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  STRESS  TIME  HISTORY 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED 
NUMBER  OF  REGIONS  OF  INTEREST 
NUMBER  OF  SEGMENTS  OF  INTEREST 
TIME  IN  SECONDS  FOR  ONE  PERIOD 

1-D  ARRAY  CONTAINING  LOWER  BOUNDS  FOR  THE  NUMREG  STRESS 
REGIONS  OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE) 
MATERIALS  S-N  DATA  SET 

1-D  ARRAY  CONTAINING  THE  STRESS-STRAIN  PRODUCTS 
EFFECTIVE  STRESSES  BEFORE  FILTERING/RAINFLOW 
STRESS  TENSILE  POINT  (PSI) 

VALUE  USED  TO  FILTER  OUT  NOISE 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILIATE  REGION  DO  LOOPS 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


variables : 

INTERMEDIATE  CALCULATION  VARIABLE  EQUAL  TO  KT/(1  - SM/FTU) 
VALUE  OF  i FOR  SEFMAX 
RAINFL  VALUE  OF  LIFE 

HOLDING  ARRAY  USED  TO  FIND  CYCLES  DURING  RAINFLCW  ANALYSIS 

FUNCTION  WHICH  CALCULATES  THE  NUMBER  OF  CYCLES  TO  FAILURE 

COUNTER  FOR  EFFECTIVE  STRESSES 

INVLIF(I)  = 1/LIFE ( I) ? DAMAGE  FRACTION 

COUNTERS  FOR  VARIOUS  DO  LOOPS 

INDEX  (LOCATION)  OF  SEFMAX  IN  SEFF ( ) 

LIFE ( I ) » CALCULATED  LIFE  FOR  STRESS  LEVEL  STR(I) 

NUMBER  OF  CYCLES  FOUND  DURING  RAINFLOW  ANALYSIS 
NEUBER ' S RULE  MODEL  ACCURACY  FACTOR 
FUNCTION  TO  CALCULATE  EQUIVALENT  MEAN  STRESS 
TOTAL  NUMBER  OF  EFFECTIVE  STRESS  VALUES  AFTER  FILTERING 
FLAG  INDICATING  THAT  LIFE  IS  ONLY  ONE  CYCLE 
FUNCTION  WHICH  CALCULATES  TIME  TO  FAILURE  FOR  A GIVEN 
UNI-AXIAL  STRESS-TIME  HISTORY 
FILTERED  EFFECTIVE  STRESSES 
SALTF(I)  - sigma  alternating, ef f ,i 

EFFECTIVE  STRESSES  AFTER  RESEQUENCING/FILTERING/RAINFLOW 
SEFFM (1,1)  = sigma  max,efi,i 
SEFFM (2,1)  * sigma  min,eff,i 
LARGEST  EFFECTIVE  STRESS 
SM  » EQUIVALENT  MEAN  STRESS 
SMEANF(I)  = sigma  mean,eff,i 

RESEQUENCED  EFFECTIVE  STRESSES;  # OF  PTS  « M+l 

STR(I)  = EQUIVALENT  (COMBINED)  STRESS , 1 

SUM  OF  ALL  THE  DAMAGE  FRACTIONS 

1-D  ARRAY  USED  IN  FILTERING  THE  STRESSES 

1-D  ARRAY  USED  IN  FILTERING  THE  STRESSES 

COUNTER  FOR  AMOUNT  OF  STRESSES  IN  EXCESS  OF  FTU 


C dump  input  data 

xf  ( xout . eq . 2 0 ) then 
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WRITE ( 8 , * ) ' SE ( ) : ' , SE 
WRITE (8,*)  ' NUMSEG : ' , NUMSEG 

write(8,*)'  ' 
endif 


C INITIALIZE  ARRAYS 


DO  50  I 
SP(I) 

Sit 


1,  MAXH 

o.o 

1 - 0.0 
f)  - 0.0 


SEFFM( 1,1)  - 0.0 
SEFFMf 2, I)  * 0.0 
SALTF(I)  - 0.0 
SMEANF(I)  ■ 0.0 
STR(I)  * 0.0 
LIFE ( I ) *0.0 
INVLIF(I)  - 0.0 
INDEX ( I ) - 0 
TESTl(I)  ■ 0.0 
TEST2 ( I ) - 0.0 
50  CONTINUE 

SM  * 0.0 
TOHIGH  - 0 


C********************  BEGIN  RESEQUENCE  ******************** 
c RESEQUENCE  effective  stresses  (needed  for  rainflow  analysis); 
c largest  effective  stress  is  placed  at  beginning  and  ena  of  SP(M+1) 

C find  SEFMAX,  the  largest  sigma, eff,  and  JMAX,  its  location  within  SEFF(M) 

SEFMAX  - -1.0E+20 
DO  200  1*1 -M 

IF  ( SEFF(I)  .GT.  SEFMAX  ) THEN 
SEFMAX  * SEFF(I) 

JMAX  * I 
ENDIF 
200  CONTINUE 

C assign  all  points  from  JMAX  out,  to  the  beginning  of  SP() 

DO  210  1*1.  M-JMAX+1 
J * JMAX-1  + I 
SP(I)  = SEFF(J) 

210  CONTINUE 

C assign  points  before  JMAX  to  the  end  of  SP( ) 

J * 0 

DO  220  I * M-JMAX+2,  M 
J » J + 1 
SP(I)  - SEFF(J) 

220  CONTINUE 

SP(M+1)  - SEFF(JMAX) 
if  (iout.eq.20)  then 

write(8,*) 'sefmax: ' , sefmax, ' jmax:’,jmax 
write (8,*) 'sp(m+l) : ' , (sp(i) ,i*l,nH-l) 
endif 


C*********************  END  RESQUENCE  ******************' 

£*******★★★**★*★*★★★*★★  BEGIN  FILTER  *******************i 
C FILTER  the  resequenced  effective  stresses,  leaving  only  peaks  and 
C valleys  (excursions  larger  than  TRUNC  are  deleted  during  rainflow 
C counting)  in  (NEWTOT),  where  NEWTOT  is  the  new  number  of  points 
C 


DO  300  I - 2,  M 

TESTl(I)  * SP(I-l)  - SP(I) 

TEST2  I - TESTl(I)  * (SP(I)  - SP(I+1)) 
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300  CONTINUE 

C if  (iout  .eq.  20)  then 

C write(8,*)  "teatl  - testl(i),  ' test2  - test2(i) 

C 305  continue 
C endif 

K **  1 

INDEX ( 1 ) * 1 

1)0  IF°^(TESTi(I)  .NE.  0)  .AND.  (TEST2(I)  .LE.  0))  THEN 

INDEX(K)  - I 
ENDIF 
310  CONTINUE 

NEWTOT  = K + 1 

INDEX ( NEWTOT ) * M + 1 

DO  320  1*1,  NEWTOT 
K * INDEX ( I ) 

S (I ) * SP(K) 

320  CONTINUE 

if  (iout.eq.20)  then 

write ( 8 , * ) ' newtot  s ' , newtot 

write(8, *) 's(newtot) : ' , (s(i) ,1*1, newtot) 

endif 


£★★*★★★*******************  END 

BEGIN 


FILTER  *************************** 
RAINFLOW  *********************** 


C* ***★*★**★**★ ******** 

C 

c 

£ 

C counters:  I counts  # of  cycles  found,  J counts  how  many  S()'s  counted, 
c K accumulates  unmatched  points 


RAINFLOW  ANALYSIS  to  identify  cycles  within  effective  stress  data , 
S (NEWTOT) ; places  each  cyclers  max  and  min  values  into  SEFFM(2,N) 


1*0 
J = 0 
K = 0 

400  CONTINUE 


C 

C 


c 


c 


J = J+l 
K = K+l 

check  J to  avoid  reading  beyond  end  of  filtered  stress  data 
IF  ( J .GT.  NEWTOT  ) GOTO  499 

read  stress  point  into  a holding  array  to  be  checked  for  cycles 
EE(K)  = S< J) 

410  IF  {aBS*^EE(K) ^-^EE^K-I? ) .LT.  ABS  (EE(K-l)  - EE(K-2)))  GOTO  400 

if  not,  then  a cycle  has  been  found,  but  we  need  to  check  for  truncation 
IF  (ABS  (EE(K-l)  - EE(K-2) ) .GT.  TRUNC)  THEN 
cycle  is  large  enough  to  save 


I = 1+1 
SEFFM (1,1) 
SEFFM(2, I) 


AMAXl ( EE(K-l) 
AMIN 1 ( EE(K-l) 


\ti\  1 


EE  (K-2 
EE 


C discard  points  K-l  and  K-2,  and  decrement  the  counter  of  unmatched  points 

EE (K-2)  = EE(K) 

K s K— 2 

c return  for  more  counting 
GOTO  410 
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499  CONTINUE 

C N equals  the  final  number  of  cycles  found 
N - I 


12 


if  (iout.eq.20)  then 
write(8,*)'N  : ' ,n 
write(8,*) ’seffm(2,n) : ' 
do  12  i«l,n 

write (8,*)  seffm(l,i), 
continue 
endif 


seffm(2,i) 


IF  (N  .EQ.  0)  THEN 

C TRUNCATION  FILTER  TOO  LARGE  — NO  CYCLES  LEFT 
SUMDAM  = 1.0E-36 
GOTO  710 
ENDIF 


C*********************  END 


RAINFLOW 


C calculate  alternating  and  mean  effective  stresses 

c 

DO  500  I«1,N  , „ 

SALTF(I)  - ( SEFFM(l.I)  - SEFFM(2.I)  ) / 2.0 
SMEANF(I)  = ( SEFFM( 1,1)  + SEFFM(2,I)  ) / 2.0 
500  CONTINUE 


if  (iout.eq.20)  then 

write(8,*) 'saltf <n)  : ' , (saltf (i) ,i=l.n) 
write(8,*) 'smeanf (n) : ' , (sroeanf (i),i«l,n) 
endif 

C*******  Determine  Equivalent  Mean  Stress,  SM(N),  (two  methods)  *********** 

C 


BIG1  = N 
OVER  - 0 

c We  are  calculating  the  equivalent  mean  stress  using  neuber's  rule 
C SH  is  the  equivalent  mean  stress  (see  Rocketdyne  IL2112-3139) 

SM  « NEUBER  (EM,  SALTF(BIGl),  SMEANF ( BIGl ) , NUMSEG,  E,  SE, 

& NEUB,  OVER) 

IF  (OVER  .EQ.  1)  THEN 
SUMDAM  “ 1.0 
OVER  - 0 
GOTO  710 
ENDIF 

if  (iout.eq.20)  write(8,*) 'sm  : ' , sm 


c** ★★★*★*★★★****★*★★★***★★***★★****★★★★★★★*** **★★★****★★★*♦★★★★★**★★*★★★★*★ 
C calculate  equivalent  stresses,  STR(N) 

c 

ARGM  * KT  / (1.0  - SM  / FTU) 

DO  530  I - 1,  N 

STR(I)  « SALTF(I)  * ARGM 
IF  (STR(I)  .GE.  FTU)  TOHIGH  * TOHIGH  + 1 
530  CONTINUE 

if  (iout.eq.20)  write(8,*) 'str(n)  : ' , (str(i) ,i«l,n) 


C calculate  lives  and  damage  fractions:  LIFE  (N)  and  INVLIF(N) 
C 

DO  600  1=1, N 
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LIFE ( I ) = GTLIFE 


(STR(I),  MM,  LNA,  LPHIM,  KRATIO,  LNZ, 
SBND,  ZROREG,  NUMREG,  SZERO) 


600  CONTINUE 

DO  650  1-1, N 

INVLIF(I)  = 1.0  / LIFE ( I ) 

650  CONTINUE 

if  (iout.eq.20)  then 

ao  14  i=l,n  , . _ 

write ( 8 , * ) 'life(n) : ' ,life(i) , ' 
14  continue 
endif 


invlif (n) : ' , invlif ( i ) 


C Miner's  Rule  — sum  the  damage  fractions 

c 

SUMDAM  =0.0 
DO  700  1=1, N 

SUMDAM  = SUMDAM  + INVLIF(I) 

700  CONTINUE 
710  CONTINUE 

if  (iout.eq.20)  write( 8, *) 'sumdam: ' ,sumdam 

c calculate  fatigue  life  (time  to  failure)  in  seconds 
C 

RAINF2  = PERIOD  / SUMDAM 

if  (iout.eq.15)  then 
chkft=period/ sumdam 
write («,*)'  rainfl  life',chkft 
write ( 8 , * ) 
endif 


RETURN 

END 


c*************************************1 

C NEUBER  USES  NEUBERS  RULE  AND  THE  STRESS-STRAIN  CURVE  TO  CALCULATE  THE 
THE  MEAN  STRESS.  PROGRAM  ASSUMES  THAT  THE  STRESS  STRAIN  CURVE  IS 
PIECEWISE  LINEAR  WITH  AT  MOST  FIVE  SECTIONS. 


PROGRAMMER:  L.  NEWLIN 

DATE:  13SEP88  _ „ . 

VERSION:  THDUCT  V3.7,  V3.8,  V3.9,  V4,  V4.1 


FUNCTION  NEUBER  (EM,  SALT,  SMEAN,  NUMSEG,  E,  SE,  NEUB,  OVER) 


C INPUTS:  EM,  SALT,  SMEAN,  NUMSEG,  SE,  E,  NEUB,  OVER 

C OUTPUTS : NEUBER 


C IMPLICIT  NONE 


COMMON  I OUT 

INTEGER  I,  I OUT,  MAXSEG,  NUMSEG,  OVER 
PARAMETER  (MAXSEG  = 10) 

REAL  E (MAXSEG),  EM,  EPSLON,  NEUB,  NEUBER,  PRODCT,  SALT, 
S,  SE ( MAXSEG ) , SMEAN,  ST,  TEMP 


C 
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c 

c 

C E() 

C EM 
C EPSLON 
C I 
C I OUT 
C MAXSEG 
C NEUB 
C NEUBER 
C NUMSEG 
C OVER 
C PRODCT 
C SALT 
C SE( ) 

C 

C SMEAN 
C ST 
C TEMP 


LIST  OF  VARIABLES 

STRAIN  VALUES  FOR  EACH  SEGMENT 
YOUNG'S  MODULUS  BEFORE  YIELD 

CALCULATED  STRAIN  (WHERE  PLASTIC-ELASTIC  DEFORMATION) 
CONTROLS  DO  LOOP  FOR  EACH  SEGMENT 
OUTPUT  DUMP  CONTROLLER 

MAXIMUM  NUMBER  OF  SEGMENTS  ALLOWED  (STRESS-STRAIN) 

NEUBER' S RULE  MODEL  ACCURACY  FACTOR 
TOTAL  EQUIVALENT  MEAN  STRESS 

NUMBER  OR  SEGMENTS  OF  INTEREST  IN  STRESS-STRAIN  CURVE 
FLAG  INDICATING  THAT  LIFE  IS  ONLY  ONE  CYCLE 
STRESS  STRAIN  PRODUCT  (WHERE  PLASTIC-ELASTIC  DEFORMATION) 
TOTAL  ALTERNATING  STRESS 

1-DIMENSIONAL  ARRAY  CONTAINING  THE  STRESS-STRAIN  PRODUCTS 
FOR  A MULTI-SEGMENT  CURVE 
MEAN  STRESS 

UNI-AXIAL  TOTAL  STRESS 
TEMPORARY  VARIABLE  FOR  NEUBER 


TEMP  - 0.00 

ST  - SALT  * SMEAN  / (ABS  (SMEAN))  + SMEAN 
PRODCT  - NEUB  * (ST  **  2)  /EM 

IF  (PRODCT  .LE.  SE(1))  THEN 

TEMP  - SMEAN 


ELSE 

DO  800  I - 1,  (NUMSEG  - 1) 

IF  (PRODCT  .GT.  SE(I))  THEN 

IF  (PRODCT  .LT.  SE(I+1))  THEN 

EPSLON  - E(I)  + ( (E(I+1)  - E( I) ) / 

& (SE(I+1)  - SE ( I ) ) ) * (PRODCT  - SE(I)) 

TEMP  - PRODCT  / EPSLON  - SALT 
ENDIF 
ENDIF 

800  CONTINUE 
ENDIF 

IF  (ABS(TEMP)  .LT.  1.0E-04)  THEN 
OVER  - 1 

WRITE (8,*)  'THE  VALUE  PRODCT  EXCEEDED  STRESS-STRAIN  CURVE' 
ENDIF 

TEMP  - TEMP  * ABS (ST)  / ST 
NEUBER  — TEMP 


IF  (IOUT.EQ.25)  THEN 
WRITE ( 8 , * ) 

WRITE ( 8 , * 

WRITE ( 8 , * 

WRITE ( 8,  * 

WRITE ( 8 , * 

WRITE ( 8 , * 

WRITE ( 8 , * 

WRITE ( 8 , * ) 


VALUES  FROM  NEUBER' 
INPUT  VALUES' 

EM  * ' , EM,  ' OVER 


OVER 


ENDIF 


SALT  - ',  SALT,  ' SMEAN  - ' , SMEAN 
CALCULATED  VALUES' 

ST  ■ ',  ST,  ' PRODUCT  - ',  PRODCT 
EPSLON  - ',  EPSLON,  ' NEUBER  - TEMP 


RETURN 

END 
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Section  7.2 

Low  Cycle  Fatigue  Failure  Program 

The  program  tree  structure,  a list  of  subprograms,  a description  of  the  key  variables, 
and  the  FORTRAN  source  listing  for  the  LCF  analysis  code  TRBPWA  are  given  here. 
The  pertinent  LCF  methodology  is  given  in  Section  2.2.2.2.  The  overall  description  of 
the  program  and  the  flowcharts  are  given  in  Section  5.2.  The  user’s  guide  for  running 
TRBPWA  is  given  in  Section  6.2. 

7.2.1  TRBPWA  Program 

7.2.1 .1  Program  Tree  Structure  . . 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy  The  tree  structure  for  TRBPWA  using  Uniform  variation  on  the  materials 
shape  parameter  m is  given  In  Figure  7-5,  while  the  tree  structure  for  the  truncated 
Normal  case  is  given  in  Figure  7-6.  In  both  trees,  those  subprograms  not  shadow- 
boxed”  are  part  of  the  materials  characterization  model.  The  program,  subprogram, 
and  file  names  are  indicated  by  UPPERCASE  letters. 

7.2.1 .2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-5.  The  section  numbers 
where  the  subprograms  are  described  by  means  of  flowcharts  are  given  next  to  the 

names. 
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Figure  7-5  Tree  Structure  for  Program  TRBPWA  for  the  Uniform 
Variation  in  Materials  Shape  Parameter  m 
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Figure  7-6  Tree  Structure  for  Program  TRBPWA  for  the 

Truncated  Normal  Variation  in  Materials  Shape 
Parameter  m 
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Table  7-5 

1 List  of  Subprograms  For  Program  TRBPWA 
(Footnotes  are  at  the  end  of  the  table) 

NAME 

SECTION 

PURPOSE 

ADDREG1 

4. 1.3.9 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  Uniform  distribution  case. 

ADDRGN1 

4.1.3.15 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  truncated  Normal  distribution  case. 

BETAGN2 

4.4.5 

Generates  Beta(a,  b.  p,  9)  random  variates. 

CONCAV3 

4.1.3.10 

Adjusts  the  upper  bound  of  the  posterior  ranges  on  m to  be  consis- 
tent with  concavity  constraints. 

CONVRT4 

4. 1.3.3 

Transforms  stress  data  to  equivalent  zero-mean  stresses  with  stress 
ratio  of  -1.0 

EXPCTD5 

4.1.3.12 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
information  aggregation  calculations. 

FINDK 

4. 1.5.6 

Calculates  the  value  of  the  location  parameter  K (where  A = Km) 
for  each  life  region  by  using  Equations  2-37  and  2-41. 

FINDM6 

4. 1.5.1 

Obtains  the  value  of  m for  each  life  region  by  adjusting  the  range 
(to  ensure  concavity)  and  then  sampling  from  the  Uniform  distribu- 
tion over  the  appropriate  m range. 

FINDMC 

4.1. 3.5 

Calculates  the  m range  for  each  life  region  implied  by  the 
constraint  on  the  coefficient  of  variation  of  fatigue  strength 
C by  using  Equations  2-28  through  2-32. 

FINDMN6 

4. 1.5.2 

Obtains  the  value  of  m for  each  life  region  by  sampling  from  the 
appropriate  truncated  Normal  distribution  on  m. 

FINDSB 

4.1. 5.7 

Calculates  the  life  region  “tie-points"  or  stress  values  which 
correspond  to  the  “life  boundaries"  conditional  on  the  randomly 
selected  m for  each  region.  Also  calculates  K,  characterizing  the 
specific  material  S/N  data  set,  which  is  a function  of  and  k. 

FNDRNG7 

4.1. 3.8 

Combines  the  95%  confidence  interval,  JQ.  with  the  implicit  and 
explicit  constraints  on  m to  obtain  posterior  credibility  ranges  on  m 
for  each  life  region. 

GAM 

4.4.4 

Generates  Gamma(a,  1 ) random  variates. 

GTUFE 

4.1.8 

Calculates  the  cycles  to  failure  for  a particular  stress  based  upon 
the  materials  characterization  model  S/N  curve  of  Equation  2-48. 

GTPVAR 

4. 1.3.7 

Calculates  a2,  Equation  2-49,  the  extent  of  departures  from  the  mul- 
tiple heat  median  S/N  curve  warranted  by  the  information  available. 

INFAGG8 

4.1.3 

Controls  the  logical  flow  for  the  Information  aggregation  portion  of 
the  materials  characterization  model. 

INIT 

4.1.3.1 

Initializes  the  entries  of  the  arrays  used  in  the  information  aggrega- 

tion  subroutine,  INFAGG,  to  zero. 
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Table  7-5  List  of  Subprograms  For  Program  TRBPWA  (Cont’d) 


NAME 

SECTION 

PURPOSE 

INSORT 

5.B 

Performs  an  insertion  sort  for  the  lowest  fifty  percent  of  the  lives 
calculated. 

INTRVL 

4. 1.3.6 

Calculates  the  95%  confidence  intervals  l0  for  C,  and  J0  for  m,  for 
each  region  by  using  Equations  2-24  and  2-26. 

KBETA 

4. 1.5.5 

Calculates  k and  /30  from  the  sample  mean  and  variance  of  Z.  where 
Z is  a function  of  stress,  life,  the  life  region  boundaries,  and  the  m’s 
by  using  Equation  2-42. 

KOMO9 

4.1.6 

Calculates  K0  and  mQ  for  the  zero  region,  the  no  data  region  to  the 
left  of  the  first  data  region.  Extends  the  S/N  curve  consistent  with 
the  tensile  point  at  S0. 

MEDIAN 

4.1.3.11 

Calculates  the  median  values  of  m based  on  the  posterior  credibility 
ranges  of  m by  using  Equation  2-34. 

MUSIG10 

4.1.3.13 

Calculates  the  posterior  Normal  distribution  parameters:  mean  m, 
and  standard  deviation  a.,  for  each  life  region  of  the  S/N  curve. 

NORMGN11 

4.4.3 

Generates  Normal^/,  cr2)  random  variates. 

NORRNG7 

4.1.3.14 

Combines  the  implicit  and  explicit  constraints  on  m to  obtain  the 
posterior  credibility  ranges  of  m for  each  life  region. 

PAREST12 

4.1.5 

Controls  the  logical  flow  for  the  parameter  estimation  model  portion 
of  the  materials  characterization  model. 

PRYRV13 

7.6.6 

Generates  the  Uniform(a,  b)  and  Uniform(c,  d)  pair  of  independent 
random  variates. 

RANDOM13 

4.4.2 

Uses  a Linear  Congruent ial  random  number  Generator  (LCG)  to 
generate  Uniform(0, 1)  random  variates. 

RCE 

4. 1.3.2 

Reads  the  data  from  TRBPWD  and  RELATD;  calls  CONVRT  to  trans- 
form the  stress  data  to  a stress  ratio  of  - 1 .0;  and  echoes  the  data 
to  TRBPWO  and  RELATO.  RCE  also  breaks  S/N  data  sets  into 
regions  as  specified  by  the  user. 

SMNVAR 

4.1. 5.4 

Calculates  the  sample  mean  and  variance  of  Z,  where  Z is  a func- 
tion of  stress,  life,  the  life  region  boundaries,  and  the  m's  by  using 
Equation  2-42. 

SORTM14 

4.1.10 

Sorts  the  m values  in  increasing  order  for  each  life  region  for  the 
truncated  Normal  distribution  case. 

SW2SU2 

4. 1.3.4 

Calculates  the  residual  variances  from  the  Y on  X and  X on  Y regres- 
sions for  each  life  region  where  Y = \n(Endurance  cycles ) and 
X = in(Stress)  by  using  Equations  2-20  and  2-21;  to  be  used  in  the 
credibility  range  calculations. 
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Table  7-5 

i List  of  Subprograms  For  Program  TRBPWA  (Cont'd) 

NAME 

SECTION 

PURPOSE 

TRBPWA 

5.2.2 

The  main  routine  that  controls  the  logical  flow  and  performs  the 
driver  transformation  calculations  of  the  low  cycle  fatigue  turbine 
disk  program. 

TRMNAT 

4.1.11 

Performs  premature  program  termination,  when  required. 

TRNSFM15 

4.1. 5.3 

Performs  the  calculations  necessary  to  transform  the  specific 
material  S/N  data  into  the  variable  Z,  where  Z is  a function  of  stress, 
life,  the  life  region  boundaries,  and  the  m’s. 

WEIBQN 

4.4.6 

Generates  Weibull(/J,  rj(fi))  random  variates. 

1 No  data  regions  to  the  right  are  discussed  on  Page  2-17. 

2 The  Beta  distribution  is  discussed  on  Page  2-25. 

3 Concavity  constraints  are  discussed  on  Pages  2-13  through  2-14. 

4 The  stress  transformation  is  discussed  on  Page  2-7. 

5 The  rwHian  S/N  curve  parameter  estimation  calculations  are  described  on  Pages  2-15  through  2-18. 

6 Selection  of  the  {ntj}  parameters  is  discussed  on  Page  2-15. 

7 Combining  information  to  obtain  the  posterior  credibility  ranges  on  m is  discussed  on  Page  2-13. 

8 The  information  aggregation  calculations  are  discussed  on  Pages  2-6  through  2-14. 

9 Extension  of  the  S/N  curve  to  the  left  is  discussed  on  Page  2-17. 

10  Calculation  of  the  truncated  Normal  distribution  parameters  is  discussed  on  Page  2-14. 

1 1 The  Normal  distribution  is  discussed  on  Page  2-23. 

12  The  parameter  estimation  calculations  are  discussed  on  Pages  2-15  through  2-18. 

13  The  Uniform  distribution  is  discussed  on  Page  2-23. 

14  The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

15  The  S/N  data  transformation  is  discussed  on  Page  2-16. 
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7 21.3  Description  of  Variables  . 

A list  of  variables  used  in  the  ATD-HPFTP  second  stage  turbine  disk  LCFcode, 
TRBPWA,  is  given  in  Table  7-6.  The  variable  names  are  indicated  by  BOLD  UPPfcH" 
CASE  letters;  the  variable  “type”  can  be  interpreted  as  follows:  INT  is  a standar 
integer  variable;  RE  is  a standard  real  variable;  and  DRE  is  a double  precision  variable. 
The  various  array  dimensions  are  defined  by  using  the  following  parameters. 
MAXBLF,  MAXDAT,  MAXLIF,  MAXMM,  and  MAXREG. 

Table  7-6  Ust  of  Variables  For  Program  TRBPWA 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

ALLM(MAXMM,  MAXREG) 

RE 

2-D  array  containing  the  materials  model  shape 

parameters  (m’s)  for  each  life  region  to  be  used  in  the 
truncated  Normal  median  S/N  cun/e  calculation. 

BIGK(0:MAXREG) 

RE 

1-D  array  containing  values  of  the  materials  mod  el  ^ 
location  parameter  K,  Equation  2-12,  where  A = K . 

BIGK1 

RE 

Dummy  variable  used  during  calls  to  subroutine 
EXPCTD,  equal  to  BIGK(1). 

BLFPER(MAXBLF) 

RE 

1-D  array  containing  user-specified  B-lives  which 
are  obtained  from  the  simulated  failure  distribution. 
A B-life  is  the  value  of  accumulated  operating  time 
to  failure  at  a failure  probability  specified  as  a per- 
cent: e.g.,  B.l  is  the  failure  time  at  a probability  of 
0.001  or  0.1%. 

BLFPOS(MAXBLF) 

INT 

1 -D  array  containing  the  indices  for  the  array  vari- 
able UFE( ) corresponding  to  the  user-requested 
simulated  failure  distribution  B-lives  contained  in 
variable  BLFPER( ). 

BZERO 

RE 

Estimate  of  Weibull  distribution  shape  parameter 
/30,  Equation  2-11,  which  characterizes  the  intrinsic 

variation  of  the  S/N  data  set. 

CG 

RE 

CG  (psi/°F)  in  Equation  2-98,  the  sensitivity  of 
stress  to  the  deviation  from  nominal  thermal 
gradient  AGr>  due  to  the  deviation  from  nominal 
coolant  fluid  temperature  A Tf. 

CGI 

RE 

CG1  in  Equation  2-96,  the  sensitivity  of  thermal 
gradient  to  the  deviation  from  nominal  coolant  fluid 
temperature  AT)  for  AT)  < 0. 

CG2 

RE 

CG2  in  Equation  2-96,  the  sensitivity  of  thermal 
gradient  to  the  deviation  from  nominal  coolant  fluid 
temperature  A Tf  for  A Tf  > 0. 
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Table  7-6 


List  of  Variables  For  Program  TRBPWA  (Cont'd) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

CM 

RE 

Cm  (psl/°F)  In  Equation  2-97,  the  sensitivity  of 
stress  to  the  deviation  from  nominal  metal  tempera- 
ture A Tm,  due  to  the  deviation  from  nominal 
coolant  fluid  temperature  ATf. 

CMF 

RE 

Cmf  (psl/°F)  In  Equation  2-95,  the  sensitivity  of 
metal  temperature  to  the  deviation  from  nominal 
coolant  fluid  temperature  A Tf. 

CS 

RE 

Cg  in  Equation  2-94,  the  rotational  speed  correc- 
tion factor,  ( selected  speed  1 reference  speed)2. 

DELGT 

RE 

AGr  (°F)  In  Equation  2-96,  the  deviation  from  the 
nominal  thermal  gradient  in  the  blade  attachment 
area  as  a result  of  the  randomly  selected  ATy. 

DELTA 

RE 

ATf  lower  bound  of  Beta  distribution  1 . 

DELTB 

RE 

A Tf  upper  bound  of  Beta  distribution  1 . 

DELTC 

RE 

ATf  lower  bound  of  Beta  distribution  2. 

DELTD 

RE 

ATf  upper  bound  of  Beta  distribution  2. 

DELTE 

RE 

Decimal  equivalent  percentage  weight  occuring  in 
Beta  distribution  1 of  the  deviation  from  nominal 
coolant  fluid  temperature  ATf. 

DELTF 

RE 

ATf  (°F)  in  Equation  2-95,  the  randomly  selected 
deviation  from  nominal  coolant  fluid  temperature. 

DELTHI 

RE 

Upper  bound  of  the  randomly  selected  Beta  dis- 
tribution for  the  deviation  from  nominal  coolant 
fluid  temperature  ATf. 

DELTLO 

RE 

Lower  bound  of  the  randomly  selected  Beta  dis- 
tribution for  the  deviation  from  nominal  coolant 
fluid  temperature  ATf. 

DELTM 

RE 

A Tm  (°F)  In  Equation  2-95,  the  deviation  from  the 
nominal  metal  temperature  in  the  blade  attachment 
area  as  a result  of  the  randomly  selected  ATf. 

DELTR 

RE 

Randomly  selected  Beta  distribution  location 
parameter  p for  the  deviation  from  the  nominal 
coolant  fluid  temperature  ATf. 

DELTR1 

RE 

p Uniform  distribution  lower  bound  of  Beta  distribu- 
tion 1 of  ATf. 
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Table  7-6  List  of  Variables  For  Program  TRBPWA  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

DELTR2 

RE 

p Uniform  distribution  upper  bound  of  Beta  distribu- 
tion 1 of  ATf. 

DELTR3 

RE 

p Uniform  distribution  lower  bound  of  Beta  distribu- 
tion 2 of  A Tf. 

DELTR4 

RE 

p Uniform  distribution  upper  bound  of  Beta  distribu- 
tion 2 of  A Tf. 

DELTT 

RE 

Randomly  selected  Beta  distribution  shape 
parameter  6 for  the  deviation  from  the  nominal 
coolant  fluid  temperature  A Tf 

DELTT1 

RE 

6 Uniform  distribution  lower  bound  of  Beta  distribu- 
tion 1 of  ATf. 

DELTT2 

RE 

6 Uniform  distribution  upper  bound  of  Beta  distribu- 
tion 1 of  ATf 

DELTT3 

RE 

8 Uniform  distribution  lower  bound  of  Beta  distribu- 
tion 2 of  A Tf. 

DELTT4 

RE 

6 Uniform  distribution  upper  bound  of  Beta  distribu- 
tion 2 of  ATf 

FACTR 

RE 

Equal  to  FACTOR  = PHI  * KRATIO  * Z Used  by 
the  materials  model. 

FIFTY 

RE 

Variable  used  to  access  the  fifty-percent  point  in 
the  LIFE  ( ) array. 

FTU 

RE 

Material  ultimate  strength  (psi). 

FTY 

RE 

Material  yield  strength  (psi). 

GTLIFE 

RE 

Function  that  calculates  the  fatigue  cycles  to  failure 
at  a given  stress,  given  by  Equation  2-48. 

1 

INT 

Controls  inner  DO  loop. 

IOUT 

INT 

Output  dump  controller. 

J 

INT 

Controls  DO  loop  for  each  B-iife.^ 

K 

INT 

Controls  outer  DO  loop. 

KD 

RE 

Kd  in  Equation  2-102,  the  stress  factor  to  adjust  for 
using  2-D  stress  analyses. 

KRATIO 

RE 

Ratio  of  MED  K*/MED  K in  Equation  2-48.  KRATIO 
is  constant  over  life  regions  for  the  materials  model. 
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Table  7-6 


List  of  Variables  For  Program  TRBPWA  (Cont'd) 


VARIABLE  NAME 
KT 

L 

LA  MG 

LAMKD 

LAMKDA 

LAMKDB 

LAMKT 

LAMKTA 

LAMKTB 

LAMM 

UFE(MAXUF) 

LNZ 

M 

MAXBLF 

MAXDAT 

MAXLIF 

MAXMM 


TYPE  DESCRIPTION 

RE  Kt  in  Equation  2-92,  the  local  stress  concentration 

factor  used  in  stress  analysis  to  obtain  the  refer- 
ence stress  from  the  equivalent  elastic  stress. 

I NT  Controls  DO  loop  for  each  life  region  of  the  S/N 
curve. 

RE  Aq  in  Equation  2-98,  the  factor  characterizing  the 
sensitivity  of  stress  due  to  thermal  gradient. 

RE  XKd  in  Equation  2-103,  the  randomly  selected 
model  accuracy  factor  for  the  parameter  Kd. 

RE  Aur  Uniform  distribution  lower  bound. 

Kd 

RE  AKd  Uniform  distribution  upper  bound. 

RE  Ak  in  Equation  2- 103,  the  randomly  selected  model 
accuracy  factor  for  the  parameter  Kf. 

RE  Au  Uniform  distribution  lower  bound. 
k t 

RE  Au-  Uniform  distribution  upper  bound. 

A t 

RE  Am  In  Equation  2-97,  the  factor  characterizing  the 
sensitivity  of  stress  due  to  metal  temperature. 

RE  1 -D  array  containing  values  of  the  lives  generated 

by  program  TRBPWA.  The  lives  are  sorted  values 
for  the  left-hand  tail  simulated  failure  distribution. 

RE  ln(Z)  in  Equation  2-48,  the  Normal(0,  PVAR)  ran- 
dom variate  for  the  materials  process  variation 
aspect  of  the  materials  model. 

I NT  Controls  symmetry  DO  loop. 

I NT  Maximum  number  of  B -lives  to  be  obtained  from 
the  simulated  failure  distribution.  The  maximum 
number  of  B-lives  allowed  is  10.2 

I NT  Maximum  number  of  points  per  data  set  per  region 
allowed  for  S/N  curve.  The  maximum  number  of 
data  points  per  set  allowed  is  50. 

I NT  Maximum  number  of  fatigue  lives  allowed  for  the 
simulated  failure  distribution.  The  maximum  num- 
ber of  fatigue  lives  to  be  saved  is  10,000. 

I NT  Maximum  number  of  m's  to  be  saved  and  sorted 
for  the  truncated  Normal  median  S/N  curve.  The 
maximum  number  of  m's  is  20,000. 
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Table  7-6  List  of  Variables  For  Program  TRBPWA  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

MAXREG 

INT 

Maximum  number  of  life  regions  allowed  for  the 
S/N  curve.  The  maximum  number  of  regions  is  3. 

MCOUNT 

INT 

Counts  number  of  m's  to  be  used  to  calculate  the 
median  S/N  curve  for  the  truncated  Normal  distribu- 
tion case.1 

MEDM(MAXMM) 

RE 

1-D  array  containing  the  empirical  median  m for 
each  life  region  of  the  S/N  curve.3 

MID 

INT 

Pointer  to  the  median  m values  in  array  SORTM( ) 
for  the  truncated  Normal  median  S/N  curve.  Value 
of  half  of  MCOUNT. 

MINPHI 

RE 

Value  of  min(PHI),  the  minimum  of  NSYM  draws  of 
the  materials  scatter  parameter  <p. 

MM(0:  MAXREG) 

RE 

mj  in  Equation  2-12,  the  1-D  array  containing  ran- 
domly selected  values  of  the  materials  model  shape 
parameter  m for  each  life  region  of  the  S/N  curve. 

MPROC 

INT 

Materials  PROCess  variation.  Controls  materials 
process  variation.  A value  of  0 indicates  no  materials 
process  variation,  while  a value  of  1 1ndicates  that 
materials  process  variation  should  be  included. 

MU  (MAXREG) 

RE 

1-D  array  containing  the  posterior  Normal  distribu- 
tion mean5  of  the  materials  shape  parameter  m for 
each  life  region  of  the  truncated  Normal  S/N  curve. 

NBUFE 

INT 

Number  of  B-lives  to  be  obtained  from  the  simu- 
lated failure  distribution.^ 

NBND(0:MAXREG) 

RE 

N*/+1  in  Equation  2-35,  the  1-D  array  containing 
upper  bounds  for  the  NUMREG  life  regions  of  inter- 
est for  the  specific  material  S/N  data  set. 

NEWUF 

RE 

Fatigue  life  value  (cycles)  returned  from  call  to  func- 
tion GTUFE. 

NF(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  values  from  the  array 
RAWNF( ) for  the  specific  material  S/N  data  set 
partitioned  into  life  regions. 

N HYPER 

INT 

The  outer  loop  size. 

NLIFE 

INT 

The  inner  loop  size. 

NUFET 

INT 

Total  number  of  lives  calculated  by  program 
TRBPWA.  Value  of  NHYPER  * NUFE. 
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Table  7-6  List  of  Variables  For  Program  TRBPWA  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

NMED 

INT 

Controls  S/N  curve  median  calculation  for  the  trun- 
cated Normal  distribution  case.  A value  of  0 indicates 
that  the  user  does  not  desire  a median  calculation 
or  that  the  Uniform  distribution  case  is  being  used; 
while  a value  of  1 indicates  that  the  user  desires  the 
median  calculation  to  be  performed. 

NPTS(MAXREG) 

INT 

1 -D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

NSYM 

INT 

Symmetry  number,  usually  equal  to  the  multiplicity 
of  the  modeling  unit  in  the  component. 

NUMREG 

INT 

R in  Equation  2-11,  the  number  of  life  regions  of 
interest  in  the  S/N  curve. 

PHI 

RE 

<p  in  Equation  2-11,  the  materials  intrinsic  variation, 
or  scatter,  given  by  a Weibull(/30,  rj0(fi0))  random 
variate. 

PSIG 

RE 

o in  Equation  2-48,  the  value  of  SQRT(PVAR). 

PVAR 

RE 

a2  in  Equation  2-48,  characterizes  the  extent  of 
departure  from  the  multiple  heat  median  S/N  curve 
warranted  by  the  available  information. 

RAND 

DRE 

Random  number  seed. 

RANGEM(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  posterior 
credibility  ranges  on  the  materials  model  shape 
parameter  m for  each  life  region  in  the  S/N  curve. 
RANGEM(1  ,L)  is  the  lower  bound  and 
RANGEM(2,L)  is  the  upper  bound  in  region  L6 

REFSPD 

RE 

REFerence  SPeeD  u>Q  (rpm)  in  Equation  2-94,  the 
speed  corresponding  to  the  nominal  mechanical 
stress  SMM  due  to  rotor  speed. 

SBND(0:MAXREG) 

RE 

1 -D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = —1.0,  corresponding  to  the  “life 
boundary”  values  for  each  life  region  of  the  S/N 
curve  contained  in  array  NBND( ). 

SG 

RE 

SG  (psi)  in  Equation  2-98,  the  nominal  stress  due 
to  tfte  thermal  gradient  alone,  at  reference  speed 
REFSPD  and  nominal  coolant  fluid  temperature. 

SIG(MAXREG) 

RE 

1 -D  array  containing  the  posterior  Normal  distribu- 
tion standard  deviation^  of  the  materials  model 
shape  parameter  m,  for  each  life  region  of  the 
truncated  Normal  S/N  curve. 
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Table  7-6  List  of  Variables  For  Program  TRBPWA  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

SMM 

RE 

SM  (psi)  in  Equation  2-94,  the  nominal  mechanical 
stress  due  to  centrifugal  effects  only  at  the  refer- 
ence speed  REFSPD. 

SPDMU 

RE 

Mean  n of  Normally  distributed  speed  (rpm). 

SPDSIG 

RE 

Standard  deviation  o of  Normally  distributed  speed 
(rpm). 

SPEED 

RE 

w (rpm)  in  Equation  2-94,  the  randomly  selected  rota- 
tional speed  for  rotational  speed  correction  factor  CS. 

SR 

RE 

SR  (psi)  in  Equation  2-103,  the  value  of  the  maximum 
reference  stress  used  to  calculate  life.  The  stress  ratio 
is  assumed  to  be  greater  than  or  equal  to  0. 

STM 

RE 

Sm  (psi)  in  Equation  2-97,  the  nominal  stress  due  to 
the°metal  temperature  alone,  at  the  reference  speed 
REFSPD  and  nominal  coolant  fluid  temperature. 

STR(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  stress  points  with  stress  ratio 
= -1.0,  for  the  specific  material  S/N  data  set  parti- 
tioned into  life  regions. 

SZERO 

RE 

Stress  tensile  test  point,  SQ  (psi).8 

TEST 

RE 

Uniform(0, 1)  random  variate  used  to  determine 
Beta  distribution  for  A Tf. 

TRBIGK(0:MAXREG) 

RE 

1 -D  array  containing  values  of  the  materials  model 
location  parameter  K consistent  with  the  tensile 
point  S0.8 

TRSBND(0:MAXREG) 

RE 

1 -D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1.0,  corresponding  to  the  “life 
boundary”  values  for  each  region  of  the  S/N  curve 
contained  in  array  NBND( ) for  each  PHI  draw  con- 
sistent with  the  tensile  point  SQ  8 

VARY 

INT 

Controls  type  of  S/N  curve  variation  desired.  A 
value  of  0 indicates  that  no  variation  is  required;  a 
value  of  1 means  that  intrinsic  materials  variation 
only;  a value  of  2 indicates  that  the  user  desires  a 
Uniform  distribution  on  m\  while  a value  of  3 indi- 
cates that  a truncated  Normal  distribution  is 
desired. 

Z 

RE 

Z in  Equation  2-48,  the  randomly  selected  process 
variation  shift  factor  given  by  a Lognormal  (0,  PVAR) 

random  variate. 
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Table  7-6  List  of  Variables  For  Program  TRBPWA  (Cont’d) 


VARIABLE  NAME  TYPE  DESCRIPTION 

ZROREG  I NT  ZeRO  REGion.  the  variable  permits  the  inclusion  of 

the  tensile  point  SQ.  The  value  of  0 implies  a DO 
loop  from  zero  to  NUMREG,  while  a value  of  1 
causes  the  DO  loop  to  be  executed  from  one  to 

NUMREG.8 


1 The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

2 See  variable  BLFPERf ) for  a description  of  B-life. 

3 The  median  S/N  curve  for  the  truncated  Normal  case  is  discussed  on  Page  2-15. 

4 See  Section  2. 1.2.3  for  a discussion  on  process  variation  in  materials. 

5 m*  of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

6 The  posterior  credibility  ranges  n (m)  are  discussed  on  Page  2-13. 

7 a*  of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

8 Extension  of  the  S/N  curve  to  the  left  using  the  tensile  point  is  discussed  on  Page  2-17. 
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7.2.1. 4 Program  TRBPWA  Listing 


Routine 

Program  TRBPWA  Listing  Temporal  Order,  Uniform  Distribution 

Program  TRBPWA  Listing  Temporal  Order,  Truncated  Normal  Distribution 


Page 

7-256 

.7-257 


TRBPWA  .. 

PRYRV  

BETAGN  ... 

GAM 

INSORT .... 
INFAGG  ... 
TRMNAT ... 

INIT  

RCE 

CONVRT  . 
SW2SU2  . 
INTRVL .... 
FINDMC  .. 
GTPVAR  .. 
FNDRNG . 
ADDREG  . 
CONCAV . 
MEDIAN  .. 
EXPCTD  .. 
MUSIG  .... 
NORRNG 
ADDRGN . 
PAREST  .. 

FINDM 

RANDOM 
FINDMN  .. 
NORMGN 
TRNSFM 
SMNVAR 

KBETA  

FINDK  

FINDSB  ... 
WEIBGN 
KOMO  .... 
GTLIFE  ... 
SORTM  .. 
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TRBPWA  Version  3 
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Program  TRBPWA  Listing  Temporal  Order,  Uniform  Distribution 
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Program  TRBPWA  Listing  Temporal  Order,  Truncated  Normal  Distribution 


Routine 
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TRBPWA  .. 
INFAGG  ... 

INIT  

RCE 

CONVRT  .. 
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FINDMC  ... 

MUSIG  
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NORMGN 
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FINDK 
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RANDOM 
BETAGN .. 

GAM 

RANDOM 
NORMGN 
RANDOM 
PRYRV  ... 
RANDOM 
WEIBGN 
RANDOM 
KOMO  .... 
GTUFE  ... 
INSORT .. 
SORTM  .. 
EXPCTD  . 
TRNSFM 
SMNVAR 
KBETA .... 
FINDK  .... 
FINDSB  .. 


7-259 

7-269 

7-275 

7-276 

7-283 

7-284 

7-290 

7-302 

7-292 

7-304 

7-306 

.7-298 

.7-312 

.7-266 

.7-312 

.7-308 

.7-312 

.7-314 

.7-312 

.7-315 

.7-316 

.7-317 

.7-318 

.7-319 

.7-314 

.7-312 

.7-267 

.7-267 

.7-312 

.7-314 

.7-312 

.7-266 

.7-312 

.7-320 

.7-312 

.7-321 

.7-322 

.7-268 

..7-323 

..7-300 

..7-315 

..7-316 

..7-317 

..7-318 

..7-319 


7-257 


Routine 

KOMO  ... 


Page 

.7-321 


7-258 


irwwww~ww~w  „ - - *★★*****★★★**★★*★**★* *****  

PROGRAM  TRBFWA  CONTROLS  THE  FLOW  OF  LOGIC  OF^TOE  LOW  CYCLE 
FATIGUE  ANALYSIS  OF  THE  ATD-HPFTP  2ND  STAGE  TURBINE  DISK 
PROGRAMMERS  L.  NEWLIN 

DATE:  9SEP91  , 

VERSION:  3 (MATCHR  V8.5,  INSORT  V2.1) 


PROGRAM  TRBPWA 


C 

C 

C 

C 

c 


SUBPROGRAMS : 
FILES: 


BETAGN,  NORMGN,  WEIBGN, 


INFAGG,  PAREST,  PRYRV,  BETAGN , NORMGN, 

GTLIFE,  INSORT,  TRMNAT,  SORTM,  EXPCTO 

1 : TRBPWD-OLD ; 3 :TRBPWO-NEW:  5 sRELATD-QLD; 
7 : DUMP-NEW;  8 :IOUTPR-NEW?  9 :LCWLIF-NEW; 
NOTE:  566  ARE  OPENED  IN  'INFAGG' 


6 : RELATO-NEW ; 


C IMPLICIT  NONE 

INTEGER  MAXBLF,  MAXDAT,  MAXLIF , MAXMM,  MAXREG 

PARAMETER  (MAXBLF^  10 , MAXDAT  * 50,  MAXLIF  * 10000, 
fi  MAXMM  - 20601,  MAXREG  ■ 3) 


COMMON  I OUT 


INTEGER 

fc 

& 


BLFPOS ( MAXBLF ) 
MPROC,  NBLIFE, 
NPTS ( MAXREG ) , 


, I,  I OUT,  J,K,  L,  M,  MCOUNT, 
NHYPER,  NLIFE,  NLIFET,  NMED, 
NSYM,  NUMREG,  VARY,  ZROREG 


MID, 


DOUBLE  PRECISION  RAND 


REAL 

& 

& 

& 

i 

& 

& 

t 

& 

& 

& 

& 

& 


ALLM( MAXMM,  MAXREG),  BIGK( 0 : MAXREG) , BIGKl, 

BLFPER ( MAXBLF ) , BZERO,  CG,  CGI,  CG2 , CM,  CMF,  CS , 

DELGT,  DELTA,  DELTB,  DELTC,  DELTD,  DELTE,  DELTF,  DELTHI, 
DELTLO,  DELTM,  DELTR,  DELTRl,  DELTR2,  DELTR3,  DELTR4, 
DELTT,  DELTTl,  DELTT2,  DELTT3,  DELTT4,  FACTR,  FIFTY, 

FTU,  FTY,  GTLIFE,  KD,  KRATIO,  KT,  LAMG,  LAMKD,  LAMKDA, 
LAMKDB,  LAMKT,  LAMKTA,  LAMKTB,  LAMM,  LlFE( MAXLIF ) , LNZ , 
MEDM( MAXMM) , MINPHI,  MM ( 0 : MAXREG ) , ^(MAXREG), 

NBND ( 0 : MAXREG) , NEWLIF,  NF (MAXDAT,MAXREG) , PHI , PSIG, 
PVAR,  RANGEM(2,  MAXREG),  REFSPD,  SBND( 0 i MAXREG),  SG, 

SIG( MAXREG) , SMM,  SPDMU,  SPDSIG,  SPEED,  SR,  STM, 

STR( MAXDAT,  MAXREG),  SZERO,  TEST,  TRBIGK( 0: MAXREG ) , 
TRSBND(OsMAXREG) , Z 


C **  SEE  BOTTOM  OF  PROGRAM  FOR  LIST  OF  VARIABLES 


OPEN  (1,  FILE  - 'TRBPWD' , 

OPEN  (3,  FILE  “ 'TRBPWO' , 

OPEN  7,  FILE  - 'DUMP', 

OPEN  (8,  FILE  * ' IOUTPR' , 

OPEN  (9,  FILE  * 'LOWLIF', 


STATUS  ■ 'OLD') 
STATUS  = 'NEW' ) 
STATUS  - 'NEW' ) 
STATUS  = 'NEW' ) 
STATUS  » 'NEW' ) 


READ(1,*)  RAND 
WRITE ( 8,  *)  ' 

READ( 1,*)  I OUT 
WRITE ( 8 , * ) ' 

READ ( 1 , * ) NLIFE 
WRITE(8,*)  ' 

READ( 1* ) NHYPER 
WRITE{ 8,*)  ' 

READ( i,* ) NSYM 
WRITEJ 8,*)  ' 

READ(1,*)  VARY 
WRITE! 8,*)  ' 

READ! 1, * ) NMED  _ , , , , 

WRITE ( 8 , * ) ' NORMAL  MEDIAN  CURVE  (0  - NO,  1 - YES) 

READ ( 1 , * ) MPROC 

WRITE! 6,*)  ' MATERIALS  PROCESS  VARIATION  DESIRED' 
WRITE! 8,*)  ' (0  - NO,  1 - YES) 


RANDOM  NUMBER  SEED 
I OUT  (MATCHR  = 10,  TRBPWA  = 15) 
INNER  LOOP  SIZE 
OUTER  LOOP  SIZE 
SYMMETRY  NUMBER 
TYPE  OF  S/N  VARIATION  DESIRED 


',  RAND 
',  IOUT 
',  NLIFE 
',  NHYPER 
',  NSYM 
',  VARY 
',  NMED 

' , MPROC 
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IF  JSSmWlJ’irTAl  VARIATION  DESIRED' 

CALL  TOMNAT 
ENDXF 

lr  iffi8;^^SiR6^D•IfflD•®SP0A^ETTO'»0RHAL  MEDIAN 
& 'CURVE  QUESTION' 

CALL  TRMNAT 
END  IF 


IF  ((MPROC  .LT. 
WRITE ( 8 , * ) ' 

CALL  TRMNAT 
ENDIF 


0)  .OR.  (MPROC  .GT. 
ERROR:  INVALID  TYPE 
VARIATION  DESIRED' 


1))  THEN 

OF  MATERIALS  PROCESS 


t 


IF^lSlBLI^E  .GT.  0)  READ(1,*)  (BLFPER(J),  J * 1,  NBLIFE) 


C ★*  READ  DATA  FROM  TRBFWD 


& 

6 


READ(1,*)  DELTA, 
DELTC, 
delte 


DELTB , DELTRl , 
DELTD , DELTR3 , 


READ( 

READ( 

READ 

READ( 

READ( 

READ( 


1/* 

l.* 

I,* 

1#*> 

lf*> 


SPDMU,  SPDSIG 
LAMKDA,  LAMKDB 
LAMKTA,  LAMKTB 
KD,  KT,  SMM,  REFSPD 
STM,  CMF,  CM 
SG,  CGI,  CG2,  CG 


DELTR2,  DELTTl, 
DELTR4,  DELTT3, 


DELTT2, 

DELTT4, 


C **  ECHO  DATA  TO  TRBPWO 


WRITE(3,900) 
WRITE (3, 901) 


WRITE (3, 902) 
WRITE(3,903) 
WRITE(3,904) 
WRITE (3, 905) 
WRITE (3, 9 06) 
WRITE (3, 907 ) 


DELTA,  DELTB,  DELTRl, 
DELTC,  DELTD,  DELTR3, 
DELTE 

SPDMU.  SPDSIG 
LAMKDA,  LAMKDB 
LAMKTA,  LAMKTB 
KD,  KT,  SMM,  REFSPD 
STM,  CMF,  CM 
SG,  CGI,  CG2,  CG 


DELTR2,  DELTTl,  DELTT2 , 
DELTR4,  DELTT3,  DELTT4, 


C *★ 
C 


CALL  TO  PERFORM  THE  INFORMATION  AGGREGATION 

OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 


CALL  INFAGG  (RANGEM,  MU, 
* NBND,  STR, 


SIG, 

FTU, 


NF, 

FTY, 


NPTS, 

VARY, 


SZERO, 

MPROC, 


ZROREG,  NUMREG, 
KRATIO,  PVAR) 


IF  (MPROC  .EQ.  1)  PSIG  = SQRT  (PVAR) 


MCOUNT  = 0 


C **  INITIALIZE  VARIABLES 


DO  10  K * 1, 
LIFE(K)  - 
10  CONTINUE 


MAXLIF 

1.0E+36 


NLIFET  = NHYPER  * NLIFE 


C **  OUTER  LOOP  — THIS  LOOP  SAMPLES  HYPER-PARAMETER  SETS 
DO  150  K = 1,  NHYPER 

C **  CALL  PRYRV  TO  OBTAIN  RHO, THETA  PAIRS  FOR  INNER  LOOP  CALCULATIONS 

CALL  RANDOM  (TEST,  RAND) 

IF  (TEST  .LE.  DELTE)  THEN 
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CALL  PRYKV  ( RAND , DELTR1 , DELTR2 , DELTT 1 , DELTT2 , DELTR , DELTT ) 
DELTLO  - DELTA 
DELTHI  - DELTB 
ELSE 

CALL  PRYKV  ( RAND , DELTR3 , DELTR4 , DELTT 3 , DELTT4 , DELTR , DELTT ) 
DELTLO  * DELTC 
DELTHI  - DELTD 
ENDIF 

IF  (I OUT  .EQ.  15)  THEN  

WRITE ( 8 , * ) 'TEST  ■',  TEST,  ' DELTE  *»'  , DELTE 
WRITE ( 8 , * ) 'DELTLO  “ ' , DELTLO,  ' DELTHI  “' , DELTHI 
ENDIF 

C **  r&T.T.  PAREST  TO  PERFORM  THE  PARAMETER  ESTIMATION  ASPECT 
C OF  THE  MATERIALS  CHARACTERIZATION  MODEL  CALCULATIONS 

CALL  PAREST  (VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG, 
& RAND,  NBND,  STR,  BIGK,  BZERO,  MM,  SBND) 

C **  OBTAIN  MATERIALS  PROCESS  VARIATION  IF  DESIRED 


CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ ) 

IF  (MPROC  .EQ.  1)  THEN 
2 = EXP  (LNZ) 

ELSE 

KRATIO  * 1.0 
Z = 1.0 
LNZ  * 0.0 
ENDIF 


MCOUNT  * MCOUNT  + 1 
DO  175  L = 1,  NUMREG 

ALLM( MCOUNT, L)  - MM(L) 
175  CONTINUE 


C **  INNER  LOOP  — THIS  LOOP  GENERATES  FAILURE  LIVES 


DO  200  1=1,  NLIFE 


C **  SELECT  DRIVERS  FOR  CALCULATING  LIFE 


CALL  BETAGN  (RAND,  DELTR, 
CALL  NORMGN  (RAND,  SPDMU, 
CALL  PRYRV  (RAND,  LAMKDA, 


DELTT,  DELTLO,  DELTHI,  DELTF) 
SPDSIG,  SPEED) 

LAMKDB , LAMKTA,  LAMKTB  , LAMED , LAMKT ) 


MINPHI  = 1.0E+36 
DO  225  M = 1,  NSYM 

CALL  WEIBGN  (BZERO,  RAND,  PHI) 
MINPHI  “ MIN  (PHI,  MINPHI) 

225  CONTINUE 

PHI  = MINPHI 


IF  (VARY  .EQ.  0)  PHI  “1.0 
IF  ( IOUT  .EQ.  15)  THEN 

WRITE ( 8 , * ) 'DELTF  =',  DELTF,  ' SPEED  =' , SPEED 
WRITE (8,*)  'LAMKD  = ',  LAMKD,  ' LAMKT  =' , LAMKT 
WRITE ( 8 , * ) 'PHI  =',  PHI 
ENDIF 


C FIND  SO 

FACTR  = PHI  * KRATIO  * Z 

DO  230  L = ZROREG,  NUMREG 
TRSBND(L)  = FACTR  * SBND(L) 

TRBIGK(L)  *=  BIGK(L) 

230  CONTINUE 

TRSBND ( 0 ) = SBND ( 0 ) 

IF  (ZROREG  .EQ.  0)  CALL  KOMO  (SZERO,  BIGK,  MM,  NBND, 
C , TRSBND,  TRBIGK,  FACTR,  NUMREG) 
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250 


IF 


(IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITEi 8, 


15)  THEN 
' ZROREG  » 
'KRATIO 


',  ZROREG, 
' KRATIO, 

wklTE{8;*)  'PHI  « PHI,  ' Z - 

DO  250  L - ZROREG,  NUMREG 
WRITE ( 8, * | L, 


WRITE (8 
WRITE ( 8 , * 
CONTINUE 
ENDIF 


' SBND 
) 'BIGK 


MM  * 

, SBND(L) 
, BIGK(L) 


' NUMREG  * 

' FACTR  - ' 

z 


9 


MM(L) 

' TRSBND 
' TRBIGK 


NUMREG 
, FACTR 


« 9 , TRSBND (L) 
- 9 , TRBIGK (L) 


C ★*  PERFORM  DRIVER  TRANSFORMATION 

CS  - (SPEED  / REFSPD)  **  2 

DELTM  « CMF  * DELTF 
LAMM  - 1.0  + (CM  * DELTM  / STM) 
IF(DELTF.LT.O.O)  THEN 
DELGT  ■ CGI  * DELTF 
ELSE 

DELGT  * CG2  * DELTF 
ENDIF 

LAMG  - 1.0  + (CG  * DELGT  / SG) 


IF  (IOUT  .EQ.  15)  THEN 
WRITE ( 8, * ) 'CS  - ' , CS 

'l,*j  ' 


WRITE ( 8,  , 

WRITE ( 8 , * ) 


'DELTM 

'DELGT 


DELTM, 

DELGT, 


LAMM 

LAMS 


LAMM 

LAMG 


ENDIF 

SR  ■ LAMKD  * LAMKT  * (CS  * SMM  + LAMM  * STM  + LAMG  * SG) 
i,  * KD  / KT 

IF  (IOUT  .EQ.  15)  WRITE ( 8, * ) 'SR  - SR 

C **  CALL  GTLIFE  TO  CALCULATE  FATIGUE  LIFE 


GTLIFE  (SR,  MM,  TRBIGK,  PHI,  KRATIO,  LNZ,  TRSBND, 
ZROREG,  NUMREG,  SZERO) 


NEWLIF 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 


'SR 


SR, 


NEWLIF'-  ' ',  NEWLIF 
IF  (NLIFET  .GE.  100)  CALL  INSORT  (NEWLIF,  LIFE,  NLIFET) 
200  CONTINUE 
150  CONTINUE 

IF  (NLIFET  .GE.  100)  THEN 
C **  PRINT  SORTED  LIVES 


300 


DO  300  J - 1,  (NLIFET  / 100)  _ 

WRITE (9 , * ) J,  FLOAT(J) /FLOAT( NLIFET ) , LIFE(J) 
CONTINUE 


C **  INITIALIZE  VARIABLES 


325 


DO  325  J - 1,  MAXBLF 
BLFPOS(J)  « 0 
CONTINUE 


C **  PRINT  EMPIRICAL  BLIVES 
FIFTY  = 0.50E0 
WRITE(3, 910) 

DO  356  J = 1,  NBLIFE  

BLFPOS ( J ) - NINT  ( BLFPER ( J ) * FLOAT  (NLIFET)) 
WRITE(3,920)  BLFPER(J),  LIFT: ( BLFPOS (J) ) 

350  CONTINUE 

WRITE (3, 920)  FIFTY,  LIFE ( NLIFET / 2 ) 


7-262 


ENDIF 

C **  CALCULATE  NORMAL  MEDIAN  CURVE  IF  DESIRED 

IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  THEN 

CALL  SORTM  (ALLM,  NUMREG,  MCOUNT) 

MID  « MCOUNT  / 2 

DO  400  L ■ 1,  NUMREG 

MEDMfL)  “ ALLM(MID,L) 

400  CONTINUE 

rir.T.  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
S,  NBND,  BIGKl,  BZERO) 


ENDIF 


C **  FORMAT  STATEMENTS  TO  ECHO  INPUT  DATA  TO  TRBPWO 
900 


0 format f 2 X . 'Copyright  (C)  1990,  California  institute  of 
i ' ' Technology . U . S . Government ' , / , 2X , ' Sponsorship  under  , 

& 'NASA  contract  NAS7-918  is  acknowledged.', 

& ///^l^X^'DRXVERS^^Sxl  'PARAMETER  DISTRIBUTIONS'  , 

& //,48X, 'RHO',16X, 'THETA' ) 

(/,2X, 'DELTA  Tf',8X, 'Be< ' ,F6 . 1, ' , ' ,F7 . 1, ' ) ' , 3X, 
4i,'U(',F4.i,',',F5.1,')',/,l8X,'TEST  - ,F4.2) 


901  PORMAT(/,2X,  'DELTA  Tf ' ,8X,  ^(^F^l,  '^^7.1,  '^,3X, 
& 

902  FORMAT ( / , 2X , ' SPEED  (RPM1 ', 5X, 'NORMAL: 

& 'STAND.  DEV.  =',2X,F5.0) 


MEAN  -' ,2X,F6.0,5X, 

,',F9.5,')') 

, ’ »F9.5, ' ) ' ) 


903  FORMAT (/,2X, 'LAMBDA  Kd' , 7X, 'U( ' ,F8 .5, 

904  FORMAT ( / , 2X, 'LAMBDA  Kt' ,7X, 'U( ' ,F8.5, 

905  FORMATS ////, 28X, 'OTHER  LOADS  INPUT', 

& ' / / , ix, * STRESS  ADJUSTMENT,  » 37X.F5 .3, 

& 'STRESS  CONCENTRATION,  Kt'  ,34X,F5.3, 

£,  ///,2X, 'MECHANICAL  STRESS  (PSI)  ' , 30X.F8.1, 

& //,2X, 'ROTATIONAL  SPEED  (RPM) ' , J2X,F6 .0) 

906  FORMAT (//,2X, 'STRESS  DUE  TO  METAL  TEMPERATURE  (PSI)*, 16X,F8 . 1 

& //2X  'SENSITIVITY  OF  METAL  TEMPERATURE  TO  DELTA  Tf  ,14X, 

& F7. 5,/7 ,2X, 'SENSITIVITY  OF  STRESS  DUE  TO  Tmetal  (PSI/F)  , 

& 14X,F5.2) 

907  FORMAT (//, 2X, 'STRESS  DUE  TO  THERMAL  GRADIENT  ( PSI ) *, 17X, F8 . 1 , 

& //!2X, 'SENSITIVITY  OF  THERMAL  GRADIENT  TO  DELTA  Tf  , 

& /,7X, 'FOR  DELTA  Tf  < 0',37X,F5.3. 

t /.7X. 'FOR  DELTA  Tf  >■  0',36X,F5.3,  _ 

S,  // , ix , 5 SENSITIVITY  OF  STRESS  DUE  TO  THERM.  GRAD.  (PSI/F)  , 

f,  5X,f6.2) 


910  FORMAT (III, 2X, ' B LIVES: 
920  FORMAT (2X,F7 .5,5X,E13.6) 


EMPIRICAL' ,/) 


STOP 

END 


C SAMPLE 


C 675 
C 0 
C 100 
C 200 


t RANDOM  NUMBER  SEED 
t OUTPUT  DUMP  CONTROLLER 
1 INNER  LOOP  SIZE 
I OUTER  LOOP  SIZE 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c* 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


50 
2 
0 
0 
3 

0.0001 
0.001 
0.01 

-200.  200.  0.40  0.60 

200.  500.  0.50  0.50 

0.95 

37592.  507. 

0.80000  1.20000 
0.95000  1.05000 

1.41  2.18  159807. 

1915.  0.91325  4.4435 

14749.  0.04  0.70  101.72 

' FWA  HPFTP  2ND  TURBINE  DISK' 
00000.  198000.  1 9 

9 -1.0  1 


5.0 

0.1 


38600 


160000. 
160000. 
160000. 
140000. 
130000. 
130000. 
120000. 
120000. 
110000. 
198000. 

1 0 
500. 

1 . OE+36 
0.00 

0 0.000 
0.0  0.0 


600. 

700. 

1000. 

4800. 

3700. 

4300. 

3800. 

11000. 

40000. 


0.000 

0.0 


1 SYMMETRY  NUMBER 
i UNIFORM  S/N  VARIATION 
l NORMAL  MEDIAN  NOT  REQUIRED 
l MATERIALS  PR0C.  VAR.  NOT  REQUIRED 
1 NUMBER  OF  BLIVES  TO  BE  REQUIRED 
IB. 01  LIFE 
1B.1  LIFE 

1B1  LIFE  ^ „ _ 

10 • 1 DELTA  Tf  (A,B)  (Rl,R2)  (Tl,T2) 

0.51  lc ,Di  jR3,R4|  (T3,T4 ) 

l TEST  FOR  DELTA  Tf  HYPER  DIST. 
t ROTATIONAL  SPEED:  MU,  SIGMA 

1 LAMBDA  Kd  (A,B) 

! LAMBDA  Kt  (A,B)  

IKd,  Kt,  MECH.  STRESS  (PSI),  SPEED  (RPM) 

1 THERMAL  STRESS  (PSI),  Cmf , Cm 
1 THERM  GRAD  STRESS  (PSI) , Cql,  Cg2,  Cg 
I SPECIFIC  MATERIAL  DESCRIPTION 
l YIELD  6 ULTIMATE  STRENGTHS,  NDIV,  NPTS 
t*  PTS  IN  DIV,  STRESS  RATIO,  REGION 

- - RAW 

STRESS 
LIFE 

o 

POINTS 
FOR  THE 
SPECIFIC 
MATERIAL 

nuS  Test  point,  so 

1 NUMBER  OF  ERGION:  W/DATA,  W/O  DATA 

1LIFE  BOUNDARY  REGION  0 
I LIFE  BOUNDARY  REGION  1 
l CONSTRAINT  ON  COEFF.  OF  VARIATION 
10  PTS  IN  RANGE,  LOWER  BOUND,  UPPER  BOUND 
t NORMAL  DIST.  PRIORS:  DELTA,  MO,  SIGMA2 


LIST  OF  VARIABLES 


ALLM(  ) 
BIGKt  ) 
BIGK1 
BLFPER ( ) 
BLFPOS ( ) 
BZERO 
CG 


CGI 

CG2 


CM 


CMF 


CS 

DELGT 


DELTA 

DELTB 

DELTC 

DELTD 

DELTE 


DELTF 


2-D  ARRAY  CONTAINING  M VALUES  TO  BE  SORTED  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  K WHERE  A * K **  M 

DUMMY  VARIABLE  USED  DURING  CALLS  TO  EXPCTD  

1-D  ARRAY  CONTAINING  USER  SPECIFIED  BLIVES  TO  BE  PROVIDED 
1-D  ARRAY  CONTAINING  POSITION  IN  LIFEQ  OF  EMPIRICAL  BLIVES 
VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S-N  DATA  SET 
SENSITIVITY  OF  STRESS  DUE  TO  VARIATION  OF  THERMAL  GRADIENT 
DUE  TO  DEVIATION  FROM  NOMINAL  COOLANT  FLUID  TEMPERATURE 

SE^SITIVI^Y^F  THERMAL  GRADIENT  DUE  TO  DEVIATION  FROM  NOMINAL 
COOLANT  FLUID  TEMPERATURE  FOR  DELTA  Tf  < 0 
SENSITIVITY  OF  THERMAL  GRADIENT  DUE  TO  DEVIATION  FROM  NOMINAL 
COOLANT  FLUID  TEMPERATURE  FOR  DELTA  Tf  >-  0 
SENSITIVITY  OF  STRESS  DUE  TO  VARIATION  OF  METAL  TEMPERATURE 
DUE  TO  DEVIATION  FROM  NOMINAL  COOLANT  FLUID  TEMPERATURE 

SE^SITIVI?YF&F  STRESS  DUE  TO  VARIATION  OF  METAL  TEMPERATURE 
DUE  TO  DEVIATION  FROM  NOMINAL  COOLANT  FLUID  TEMPERATURE 

(PSI  / deg  F)  

ROTATIONAL  SPEED  CORRECTION  FACTOR  — EQUAL  TO  (SELECTED  SPEED 

/ REFERENCE  SPEED)  **  2 

DELTA  THERMAL  GRADIENT  (deq  F)  IS  THE  DEVIATION  FROM  NOMINAL 
THERMAL  GRADIENT  IN  THE  BLADE  ATTACHMENT  AREA  AS  A RESULT 
OF  THE  SELECTED  DELTA  Tf 
DELTA  Tf  LOWER  BOUND  - HYPER-DISTRIBUTION  1 
DELTA  Tf  UPPER  BOUND  - HYPER-DISTRIBUTION  1 
DELTA  Tf  LOWER  BOUND  - HYPER-DISTRIBUTION  2 
DELTA  Tf  UPPER  BOUND  - HYPER-DISTRIBUTION  2 
PERCENTAGE  OCCURRING  IN  HYPER-DISTRIBUTION  1 

DEVIATION  FROM  NOMINAL  COOLANT  FLUID  TEMPERATURE, 

DELTA  Tf 

SELECTED  DEVIATION  FROM  NOMINAL  COOLANT  FLUID  TEMPERATURE, 
DELTA  Tf 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DELTHI 


DELTLO 

DELTM 


DELTR 

DELTRl 

DELTR2 

DELTR3 

DELTR4 

DELTT 

DELTTl 

DELTT2 

DELTT 3 

DELTT4 

FACTR 

FIFTY 

FTU 

FTY 

GTLIFE 

I 

I OUT 
J 
K 
KD 

KRATIO 

KT 

L 

LAMG 

LAMKD 

LAMKDA 

LAMKDB 

LAMKT 

LAMKTA 

LAMKTB 

LAMM 

LIFE(  ) 

LNZ 

M 

HAXBLF 

MAXDAT 

MAXLIF 

MAXMM 

MAXREG 

MCOUNT 

MEDM( ) 

MID 

MINPHI 

SUc 

HU  ( ) 

NBLIFE 
NBND( ) 


NEWLIF 

NF<) 

NHYPER 

NLIFE 

NLIFET 

NMED 

NPTS  ( ) 


1 

1 

2 

2 


SELECTED  LAMBDA  UPPER  BOUND  FOR  DEVIATION  FROM  NOMINAL 

COOLANT  FLUID  TEMPERATURE,  DELTA  Tt  

SELITCTED  LAMBDA  LOWER  BOUND  FOR  DEVIATION  FROM  NOMINAL 
COOLANT  FLUID  TEMPERATURE,  DELTA  Tf 
DELTA  Tm  IS  THE  DEVIATION  F&OM  THE  NOMINAL  HETAL 

TEMPERATURE  IN  THE  BLADE  ATTACHMENT  AREA  AS  A RESULT 

SELECTED  RHO^FOR^ DEVIATION  FROM  NOMINAL  COOLANT  FLUID 

JSPSTSb  LOTOR  BOUND  - HYFER-DISTRIBUTION  1 
DELTA  Tf  - RHO  UPPER  BOUND  - DXSTRX3UTX0N  1 

DELTA  Tf  - RHO  LOWER  BOUND  - \ 

DELTA  Tf  - RHO  UPPER  BOUND  - HYPER- DISTRIBUTION  2 
SELECTED  THETA  FOR  DEVIATION  FROM  NOMINAL  COOLANT  FLUID 

TEMPERATURE,  DELTA  Tf  nin TTnrTm-.nvr 

DELTA  Tf  - THETA  LOWER  BOUND  - HYPER-DI»'i*MBOTIW 
DELTA  Tf  - THETA  UPPER  BOUND  - HYPER-DISTRIBUTION 

SB  S : 6®  lass : EfgSiiSSSiS! 

g EgFwtw*  IH  LIFE,, 

MATERIAL  ULTIMATE  STRENGTH  (PSI) 

SISS  SIS  SESES**™*  CYCLES  TO  FAILORE  AT  A GIVES 
STRESS 

CONTROLS  DO  LOOP  FOR  EACH  LIFE  CALCULAT I ON 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  BLIFE  __ 

CONTROLS  DO  LOOP  FOR  EACH  HYPER-PARAMETER  SET 
STRESS  FACTOR  TO  ADJUST  FOR  USING  2— D ^MAMSIS 
RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
STRESS  CONCENTRATION  FACTOR  USED  IN  ANALYSIS  TO  OBTAIN 
REFERENCE  STRESSES 
CONTROLS  DO  LOOP  FOR  EACHREGION^ 

THERMAL  GRADIENT  SENSITIVITY  FACTOR 

SELECTED  STRESS  CONCENTRATION  FACTOR  Rd  ACCURACY 

Kd  ACCURACY  FACTOR  LOWER  BOUND 

Kd  ACCURACY  FACTOR  UPPER  BOUND  L , „mlL,lr 

SELECTED  STRESS  CONCENTRATION  FACTOR  Kt  ACCURACY 
Kt  ACCURACY  FACTOR  LOWER  BOUND 
Kt  ACCURACY  FACTOR  UPPER BOUND 

SS'S.SS'SSSiSF 523g5Vi£0EivES  by  tbe 

SORTED  VALUES  OF  THE  LEFT-HAND  TAIL 

NORMAL ( 0,PVAR)  GENERATED  RANDOM  VARIATE 
CONTROLS  SYMMETRY  DO  LOOP  

SagSB  ms  S SSS 

MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA, 

ALPHA  CALCULATION  

MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 

MAXIMUM  NUMBER  OF  REGION  AVOWED  MPnraN  <5/N  CURVE 

NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  NORMAL  MEDIAN  S/N  CURVE 

iT!L£y  containing  the  median  m for  each  region 

POINTER  TO  THE  MEDIAN  M VALUES  — EQUAL  TO  HHjF  OF  MCOUNT 
EQUAL  TO  MIN  (PHI)  — THE  MINIMUM  OF  NSYM  ORMJS  OF  PHI 
1?D  ARRAY  CONTAINING  SELECTED  VALUES  OF  MFC®  EACH  REGION 
Materials  PROCess  variation  — C°OTROLS_MATERIALS  PROCESS 

1— D^ARRAY^ONTAINING°THE^POSTERioR  NORMM^DISTRIBUTION  MEAN 
FOR  EACH  REGION 

NUMBER  OF  BLIVES  TO  BE  CALCULATED  _ __ 

1- D ARRAY  CONTAINING  UPPER  BOUNDS 

REGIONS  OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE) 

MATERIAL  S/N  DATA  SET  __  __ 

LIFE  VALUE  RETURNED  FROM  CALL  TO  GTLIFE 

2- D  ARRAY  CONTAINING  RAWNF( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 

SIZE  OF  OUTER  LOOP 
SIZE  OF  INNER  LOOP 

^TOOLSmM  S^CTIAT^^tIe  NORMAL  DISTRIBUTION  CASE 

CO?IT?  1 - MEDIAN  CALCULATION  DESIRED 

l-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  LIFE  REdON 
FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 
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C NSYM 
C NUMKEG 
C PHI 
C PSIG 
C PVAK 
C RAND 
C RANGEM(  ) 
C 
C 

C REFSPD 
C 

C SBNDO 

C 

C 

C S G 

C 

C 

C SIG<) 

C 

C SMM 
C 

C SPDMU 
C SPDSIG 
C SPEED 
C 

C SR 
C 

C STM 
C 

c 

C STR( ) 

C 

C SZERO 
C TEST 
C 

C TRBIGKO 
C 

C TRSBND() 
C 

c 

C VARY 

C 

C 

C Z 

C ZROREG 

C 

C 


SYMMETRY  NUMBER  

NUMBER  OF  REGIONS  OF  INTEREST 

WEIBULL  (BETAO,  ETAo)  GENERATED  RANDOM  VARIATE 

EQUAL  TO  SQRT(PVAR)  — MATERIALS  PROCESS  STANDARD  DEVIATION 

MATERIALS  PROCESS  VARIATION 

RANDOM  NUMBER  SEED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND 
AND  RANGEM  ( 2 , L ) IS  THE  UPPER  BOUND 
REFERENCE  SPEED  (RPM)  CORRESPONDING  TO  THE  NOMINAL  MECHANICAL 
STRESS,  SMM,  DUE  TO  ROTATIONAL  SPEED  ONLY 

l-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PS I,  R - - 1-0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) 

NOMINAL  STRESS  DUE  TO  THERMAL  GRADIENT  ONLY  (PSI),  AT 
REFERENCE  SPEED,  REFSPD,  AND  NOMINAL  COOLANT  FLUID 

1- D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION 
STANDARD  DEVIATION  FOR  EACH  REGION 

NOMINAL  MECHANICAL  STRESS  DUE  TO  ROTATION  ONLY  (PSI)  AT 
REFERENCE  SPEED,  REFSPD 
MEAN  SPEED,  RPM  (NORMAL  DISTRIBUTION ) 

STANDARD  DEVIATION  OF  SPEED,  RPM  (SIGMA,  NORMAL  DISTRIBUTION) 
gFT.BtrPF.n  ROTATIONAL  SPEED,  RPM,  FOR  ROTATIONAL  SPEED 
CORRECTION  FACTOR 

VALUE  OF  MAXIMUM  REFERENCE  STRESS  USED  TO  CALCULATE  LIFE  — 
STRESS  RATIO  IS  ASSUMED  TO  BE  GREATER  THAN  OR  EQUAL  TO  0 
NOMINAL  STRESS  DUE  TO  METAL  TEMPERATURE  ONLY  (PSI),  AT 
REFERENCE  SPEED,  REFSPD,  AND  NOMINAL  COOLANT  FLUID 
TEMPERATURE 

2- D  ARRAY  CONTAINING  STRESS  POINTS  (STRESS  RATIO  * -1.0)  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  LIFE  REGIONS 

STRESS  TENSILE  TEST  POINT.  So  

UNIFORM ( 0 , 1)  RANDOM  VARIATE  USED  TO  DETERMINE 
HYPER-DISTRIBUTION  TO  SELECT  FROM 
l-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  BRING  CURVE 
DOWN  IF  SBND(O)  > SO  FOR  EACH  TRIAL 
l-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R - - 1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND ( ) FOR  EACH  TRIAL 
CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
LOG-NORMAL (0,PVAR)  RANDOM  VARIATE 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C* 


SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH01,RH02)  AND  U ( THE 1 , THE2 ) 
INDEPENDENT  RANDOM  VARIATES 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE : 9MAR87 

SUBPROGRAM:  RANDOM 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THEl,  THE 2 , X,  Y) 

COMMON  I OUT 

DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02,  THEl,  THE2,  X,  Y 
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INTEGER  I OUT 


CALL  RANDOM  (FRAC,  RAND) 

IF  (IOUT  .EQ.  15)  WRITE(8,*)'FRAC 
X * FRAC  * (RH02  - RHOl)  + RHOl 

CALL  RANDOM  (FRAC,  RAND) 

tiT  <ioot  iSi  i?; 


FRAC 


FRAC 


RH02 

\ x. 


' RH02 , 

y y 


RETURN 

END 


C 


_ _ _ ***★*★*★★★★★****** 

THIS  SUBROUTINE  GENERATES  A BETARANDOM  VARIABLE 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  9MAR87 

SUBPROGRAM:  GAM 

The  random  variates  JflStiS^S^cSntiAuous 

°Univariate  Distributions  - 1,  Houghton  Mifflin  Company,  1970, 
181-182. 


C 
C 

c 
c 
c 
c 
c 
c 

£****? 


SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 


COMMON  IOUT 

DOUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 


C 

C 


INTEGER  IOUT 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 

™ m __  i fHU  L’l'H  A 


'RAND 
A 


Yl 

Y2 


«'  RAND, 
A,  ' B = 


' RHO 

r o i 
/ at 


RHO, 

X 


THETA  , THETA, 

GAMMRHO  * THETA  + l.j,  RAW U) 

GAM( ( ( 1 . - RHO)  * THETA  + 1 . ) , RAND) 

IF= { IOUT  1eQ.+15^  WRITE(  8,  *)  'Yl  , Yl,  ' Y2  , Y2,  ' W 

PRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 


X=W*(B-A)+A 
IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 


'W 


W,  ' X 


X 


w 


RETURN 

END 


407-409 


C The  random 
C Fishman,  Geor 
C Computer, " Camnunications 
C pp  *“*’ 


REAL  FUNCTION  GAM  (ALPHA,  RAND) 
C SUBPROGRAM:  RANDOM 

COMMON  IOUT 
INTEGER  IOUT 
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REAL  A,  ALPHA,  ARG,  Ul,  U2,  Vl,  V2 
DOUBLE  PRECISION  RAND 

C IF* (ICWT^.EQ^ " 15)  WRITE ( 8 , * ) 'A-',  A,  ' ALPHA-',  ALPHA 

10  CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

VI  - - ALOG(Ul) 

C IF  TlSu^nS,  WRITE (8,*)  'Ul  Ul,  ' U2  -',  U2,  ' Vl  -' , 

C i Vl,  ' Vi  -',  V2 

ARG  - A * (Vl  - ALOGJVl ) - 1.) 

IF  (V2  .LT.  ARG)  GOTO  10 

GAM  - ALPHA  * Vl 

C IF  (IOUT  .EQ.  15)  WRITE(8,*)  'GAMMA  GAM 

RETURN 

END 


C 


C 

C 

C 

c 

c 

c 

c 

c 


SUBROUTINE  INSORT  PERFORMS  AN  INSERTION  SORT  FOR  EACH  LIFE  CALCULATED 
PROGRAMMER:  L.  NEWLIN 

DATE:  20JUN90 

VERSION:  2.1 


Copyright  (C)  1990,  California  Inatitute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  contract  NAS7— 918 
is  acknowledged. 


SUBROUTINE  INSORT  (NEWLIF,  LIFE,  NLIFET) 

C INPUTS:  NEWLIF,  LIFE,  NLIFET 

C OUTPUTS : LIFE 

C IMPLICIT  NONE 

INTEGER  MAXLIF 

PARAMETER  (MAXLIF  - 10000) 

COMMON  IOUT 

INTEGER  I,  IOUT,  NLIFET,  NUM,  PLACE 
REAL  LIFE (MAXLIF) , NEWLIF,  TEMP (MAXLIF) 


C 

c 

C I 
C IOUT 
C LIFE() 
C 

C MAXLIF 
C 

C NEWLIF 
C NLIFET 
C NUM 
C PLACE 
C TEMPO 
C 


LIST  OF  VARIABLES 
CONTROLS  DO  LOOP  FOR  INSERTION 

OUTPUT  DUMP  CONTROLLER  „„  __ 

1-D  ARRAY  CONTAINING  TAIL  VALUES  OF  THE  LIVES  GENERATED  BY  THE 

PFM  TO  BE  SORTED  

MAXIMUM  NUMBER  OF  FATIGUE  LIVES  ALLOWED  FOR  BETA,  THETA,  ALPHA, 
CALCULATION 

LIFE  VALUE  TO  BE  INSERTED  INTO  LIFEO 
rOTAL  NUMBER  OF  LIVES  CALCULATED  BY  PFM 

NUMBER  OF  LIFE  VALUES  IN  LIFE ( ) 

POSITION  WHERE  NEWLIF  IS  TO  BE  INSERTED  INTO  LIFEO 
1-D  ARRAY  CONTAINING  VALUES  OF  LIFE()  TO  BE  SHIFTED  UPON 
INSERTION  OF  NEWLIF 


NUM  - NLIFET  / 2 
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ouuuuu 


c FIND  POSITION  IN  LIFE( ) FOR  NEWLIF 

IF  (NEWLIF  .GT.  LIFE (NUM) ) GOTO  400 

DO  100  I - 1,  NUM 

IF  (NEWLIF  .LT.  LIFE(I))  THEN 
PLACE  - I 
GOTO  110 
END  IF 
100  CONTINUE 
110  CONTINUE 

C STORE  VALUES  OF  LIFE ( ) TO  BE  SHIFTED  DUE  TO  NEWLIF  INSERTION  IN  TEMP ( ) 

DO  200  I * (PLACE  + 1),  NUM 
TEMP(I)  - LIFE ( I— 1 ) 

200  CONTINUE 

C INSERT  NEWLIF 

LIFE (PLACE)  * NEWLIF 

C SHIFT  VALUES  OF  LIFE ( ) FOLLOWING  NEWLIF 

DO  300  I ■ (PLACE  + 1),  NUM 
LIFE(I)  = TEMP ( I ) 

300  CONTINUE 

C IF  NEWLIF  IS  LARGER  THAN  ALL  LIVES  IN  LIFE ( ) THEN  RETURN 

400  CONTINUE 


RETURN 

END 


*************************************** 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  INFAGG  CONTROLS  THE  OU^CI^ATIONS  FOR  Tra  iNF^JttTION 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 


FOR  THE  STRESS  FORMULATION 

PROGRAMMER:  L.  NEWLIN  

DATE:  13JUL89  FORMAT/COMMENTS: 

VERSION:  MATCHR  V8.4,  V8.5  MATGRM  V4. 


12AUG91 
4,  V4.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7— 918 
is  acknowledged. 


SUBROUTINE  INFAGG  (RANGEM,  MU,  SIG,  NF,  I^FNP,SZERO,ZROREG, 

£ NUMREG,  NBND,  STR,  FTUZ,  FTYZ , VARY,  MPROC, 

£ KRATIO,  PVAR) 

INPUTS:  READS  DATA  FROM  SPECFD  AND  RELATD; 

OUTPUTS:  RANGEM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

NBND,  STR,  FTUZ,  FTYZ,  KRATIO,  PVAR 
SUBPROGRAMS:  INIT,  RCE,  SW2SU2 , FINDMC,  INTRVL,  ^IDRNG,  ADDREG, 

CONCAV,  MEDIAN,  EXPCTD,  MUSIG,  NORRNG,  ADDRGN,  GTPVAR 
FILES : 5 : RELATD- OLD ; 6 : RELATO-NEW 


C 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 
PARAMETER  (MAXDAT  * 50,  MAXREG 
COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT  ( MAXREG ) 
£ NP(0 : MAXSET,  MAXREG), 


* 3,  MAXSET  » 

, MPNT (MAXREG) 
NPPR ( MAXREG ) , 


5) 

, MPROC,  NNODAT 
NPTS ( 0 : MAXSET ) , 


f 
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REAL 


BIGKHT 

BZERO 

CZERO 

DEL^A(  ) 

FTUZ 
FTYZ 
IOUT 
IZERO(  ) 

JZERO( ) 

KRATIO 

L 

LAMN 

LNNF( ) 

LNSTR(  ) 

MAXDAT 

MAXREG 

MAXSET 

HC() 


MCHAT( ) 


MCPNT( ) 

MEDM( ) 
MO<) 

MPNT( ) 

HPROC 

MU() 

MZERO(  ) 


NBND { ) 

NF() 

NNODAT 

NP() 

NPPR() 

NPTS ( ) 
NSETS 


NSETS , NUMREG,  REFNP ( MAXREG ) , VARY,  ZROREG 


MCHAT ( 2 , MAXREG) 

MZER0(2,  MAXREG),  no«y\winiui*\Bw,/  — 

PVAR,  RAHGEM( 2 , MAXREG),  RATSTR( MAXDAT,  0 : MAXSET) , 
RAWN^f MAXDAT,  6 s MAXSET) , RAWSTRcMAXDAT,  0: MAXSET) , 
SI^MAXREG)  , SIGMA2 (MAXREG) , STR(MAXDA*,  MAXREG), 
SUHAT2  ( MAXREG ) , SWHAT2  (MAXREG)  , SX2  (MAXREG)  , 

SXY (MAXREG) , SY2(MAXREG),  SZERO 


LIST  OF  VARIABLES 

EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 

VALUE  OF  WEI BULL  PARAMETER,  BETAO,  CHARACTERIZING  THE  S/N 
DATA  SETT 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 
1— D ARRAY  CONTAINING  SXY(L)/SX2^  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) 

AND  SIG()  CALCULATION  

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  ( PSI ) FOR  SPECIFIC  MATERIAL 
OUTPUT  DUMP  CONTROLLER  

2- D  ARRAY  CONTAINING  Io,  THE  95*  CONFIDENCE  INTERVALS  ON  C 

2- D°ARRAYHCOOTAINING  JO,  THE  95*  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var(Ln  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- D  ARRAY  CONTAINING  LN(RAWNF(  ) ) , 

3-D  ARRAY  CONTAINING  UI(RATSTRO  ), ..ALSO  INOTXED  FOR 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 

MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 

BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1,L)  * -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L)  * SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC()  FOR  EACH  REGION  

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION  . , 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO( ) FOR  EACH  REGION 

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

DISTRIBUTION  MEAN  FOR  EACH  REGION  _ 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  MFOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZER0(2,L) 
IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNFO  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )-l)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
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NUMREG 
PVAR 
RAN GEM ( ) 

RATSTR( ) 
RAWNF ( ) 
RAWSTR( ) 
REFNP ( ) 

SIG() 

SIGMA2 ( ) 

STR(  ) 

SUHAT2 ( ) 

S WHAT 2 ( ) 

SX2<) 

SXY(  ) 

SY2() 

SZERO 

VARY 

ZROREG 


NUMBER  OF  REGIONS  OF  INTEREST 

2-D^*ARRAY  SSSUSTSSS  of  the  posteriorranges  on  m 

FOR  EACH  REGION  — RANGEMf 1 ,L)  IS  THE  LOWER  BOUND  AND 

RANGEM ( 2 , L ) IS  THE  UPPER  BOUND  ___ 

2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CCraECTOD  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 

1-DAARRAY > CCNTATOIN^THE^NOTffi^OF  TO:D^r^K^HNSPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1 -S  I^Y  OBTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION  . , , , 

2- D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR%) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - LnS,  N) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  * Ln  S,  Y = Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

l-^ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 


REGION  (X  ■ Ln  S,  Y 


_ Ln  N) 

1-D  ARRAY 'CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  * Ln  N) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED — 0 - NO 
VARIATION:  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 

VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  OO  LOOP  _ 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


OPEN ( 5 , FILE 
OPEN ( 6 , FILE 


'RELATD' 

'RELATO' 


STATUS 

STATUS 


'OLD 

'NEW 


:1 


RELATD  CONTAINS  THE  RELATED  MATERIAL  S/N  DATA 

RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 

INFORMATION 

PERFORM  CALCULATIONS  COMMON  TO  BOTH  UNIFORM  AND  NORMAL  TYPE  OF  VARIATION 
INITIALIZE  PRIMARY  ARRAYS 

CALL  INIT  (NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  I2INF , I2JSTR,  REFNP, 

& NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2) 

READ,  CONVERT,  ECHO  INFORMATION 

CHi  RCE  (MMY,  HPROC.  MTS. 


i 

& 

& 


LNNf'  REFNP J STR, ' NF , SZERO,  ZROREG,  NUMREG,  NNODAT, 
NSETS,  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO, 
SIGMA2,  KRATIO,  LAMN) 


CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (NUMREG,  NSETS.  NP,  LNSTR,  LNNF 
t,  SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  M CONTRAINT  BASED  ON  CO 

CALL  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


SX2,  SXY,  SY2,  DD, 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2))  THEN 
C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 
C CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 
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CALL  INTKVL  (NUMREG,  SX2 , DD,  SWHAT2 , SUHAT2 , NPPR,  I ZERO, 
JZERO , MCHAT) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 


lr  (^ALL^GTPVAR  (^SETC^  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

END  IF 

C COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  TO 
C OBTAIN  POSTERIOR  RANGES  ON  M 

rn.T.  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT, 
fc  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 


CALL  CONCAV  (NUMREG,  RANGEM) 


C WRITE  RESULTS  TO  FILE  DUMP 


WRITE(7,900) 


& 

25 


DO  25  L - 1.  NUMREG 

WRITE (7 ,905)  L,  IZERO(l,  L)  , 
JZERO ( 1 , L), 

CONTINUE 


IZERO(2,  L), 
JZERO(2,  L) 


WRITE (7, 9 10) 

DO  50  L - 1,  NUMREG 

WRITE(7,915)  L,  MCHAT(2,L),  MCHAT ( 1,L) 
50  CONTINUE 


150 


IF  (CZERO  .GT.  0.0)  THEN 
WRITE(7,960) 

DO  150  L - 1,  NUMREG 

IF  ( MCPNT  (L)  .EQ.  1)  THEN 

WRITE(7,965)  L,  MC(l.L) 

ELSE IF  (MCPNT(L)  .EQ.  2)  THEN 

WRITe(7,970)  L,  MC(1,L),  MC(2,L) 
END  IF 
CONTINUE 
ENDIF 


WRITE(7, 920) 

WRITE (7, 930) 

DO  100  L - 1,  NUMREG 

WRITE(7,940)  L,  RANGEM ( 1,L) , RANGEM ( 2 , L ) 
100  CONTINUE 


WRITE(7,950) 

C CALCULATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 


CALL  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 

CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
& NBND,  BIGKHT,  BZERO) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 

IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1))  THEN 
DO  200  L - 1,  NUMREG 

RANGEM( 1,L)  “ MEDM(L) 

RANGEM ( 2, L)  « MEDM(L) 

200  CONTINUE 
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END  IF 


ELSE 


C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION  FOR  EACH  REGION 

CALL  MUSIC  (NUMREG,  SX2 , DD,  SWHAT2 , SUHAT2,  NPPR,  DELTA,  MO, 
t SIGMA2,  MCHAT,  MU,  SIG) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  (AsSS  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

ENDIF 

C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 

4 MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 


WRITE  RESULTS  TO  FILE  DUMP 

WRITE(7 ,975) 

DO  350  L * 1,  NUMREG 

WRITE(7,9pO)  L,  MCHAT(1,L) 

350  CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE (7 ,960) 

DO  360  L * 1,  NUMREG 

IF  ( MCPNT (L)  .EQ.  1)  THEN 
WRITE (7 ,965)  L,  MC(1,L) 

ELSEIF(  MCPNT  jfL)  .EQ.  2 ) THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 
ENDIF 

360  CONTINUE 

ENDIF 

WRITE(7,920) 

WRITE (7 ,930) 

°°  TOITE(7,9iOM^ERANGEM(1*L)»  RANGEM<2'L> 

370  CONTINUE 

WRITE (7 ,950) 

WRITE(7 ,985) 

DO  380  L * 1.  NUMREG 

WRITE(7,990)  L,  MU(L),  SIG(L) 

380  CONTINUE 


ENDIF 

C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 

IF  (MPROC  .EQ.  1)  THEN 
WRITE (7, 995)  PVAR 
ENDIF 


C FORMAT  STATEMENTS 


7-273 


oonoooo 


900  FORMAT ( 2X, ' Copyright  (C ) 1990,  California  Institute  of  ', 

4 ' * Technology . U . S . Government ' , / , 2X, ' Sponsorship  under 

& 'NASA  Contract  NAS7-918  is  acknowledged. ',////, 

I 2x7- RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 

4 /// ,2X, '95%  CONFIDENCE  INTERVALS  ON  C AND  m ', 

4 'FOR  EACH  REGION',/) 

»oS|KM«*,  Wj  ;kkio»=  , : 

V,'fc  REGI0H'' 

915  FORMAT ( 9X,Il, 8X,Fll .9 , 5X,F9 .6 ) 

920  FORMAT ( / / / , 2X , ' POSTERIOR  CREDIBILITY  RANGE  ON  m FOR  EACH  ' 

4 'REGION') 

930  FORMAT(//,2X, 'REGION', 5X, 'LOWER  BOUND' ,5X, 'UPPER  BOUND',/) 

940  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

950  FORMAT (III) 

960  FORMAT ( / / , 2X, 'RANGE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 

L 1 CONSTRAINT ' 

4 //,2X, 'REGION ',5X, 'LOWER  BOUND' ,5X, 'UPPER  BOUND',/) 

965  FORMAT(6X, 11, 8X,F8. 4, 8X, 'INFINITY') 

970  FORMAT(6X,Il,8X,F8.4,8X,F8.4) 

975  FORMAT (2X, 'Copyright  (C)  1990,  California  institute  of  ' , 

' Technology . U . S . Government ' , / , 2X, ' Sponsorship  under 
'NASA  Contract  NAS7-918  is  acknowledged.',////, 

2X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 
///,2X, 'ESTIMATE  OF  m FOR  EACH  REGION' , 

//,7X, 'REGION' ,12X, 'E(m) ' ,/) 

980  FORMAT(9X,Il, 11X,F10.6) 

985  FORMAT(2X, 'POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS', 

4 //,2X, 'REGION' ,5X, 'MEAN' ,8X, 'STD  DEV',/) 

990  FORMAT( 5X, II, 5X,F7 .4, 5X,E11 .5) 

995  FORMAT ( / , 2X , ' THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  ' , 
4 'MEDIAN  S/N  CURVE' ,/, 2X, 'WARRANTED  BY  THE  AVAILABLE  , 

4 ' INFORMATION ',//,7X, El 1.5) 


RETURN 

END 


C*** ******************* ******** 


SUBROUTINE 
ONE  OF  THE 
PROGRAMMER 
DATE 
VERSION 


TRMNAT  HANDLES  THE  TERMINATION  OF  THE  PROGRAM  RUN  WHEN 
PROGRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 


: L.  NEWLIN 

* 50CT87 

: MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3 

V8 . 4 , V8 . 5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  TRMNAT 

WRITE (8,*)  'PROGRAM  EXECUTION  TERMINATED' 

STOP 

END 
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C SUBROUTINE  IN  IT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
C OOTDra  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 
C PROGRAMMERS  L.  NEWLIN  „ „ 

C DATE:  CODE:  21JUN88  CEMENTS:  13JUL89 

C VERSION!  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INIT  (NPTS,  RAWNF , RAWSTR,  RATSTR,  NP,LNNF,  ^STR, 

& REFNP,  NF,  STR,  MPNT,  MZEROr  DELTA,  MO,  SIGMA2) 


TNPUTS 9 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  ^NNF,  LNSTR,  REFNP, 

NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3,  MAXSET  * 5) 

IOUT 


COMMON 
INTEGER  I,  IOUT 


REAL 


& 

& 

& 

& 

& 


DELTA < ) 

I 

IOUT 

J 

K 

L 

LNNF ( ) 

LNSTR() 

MAXDAT 

MAXREG 

MAXSET 

MO() 

MPNT( ) 

MZERO ( ) 

NF() 

NP() 

NPTS ( ) 
RATSTR ( ) 

RAWNF  ( ) 

RAWSTR ( ) 

REFNP  ( ) 

SIGMA2  ( ) 

STR( ) 


J,  K,  L,  MPNT  (MAXREG)  , NP(0:MAXSET,  MAXREG), 

NPTS ( 0 : MAXSET ) , REFNP ( MAXREG ) 

DELTA  (MAXREG),  LNNF  ( MAXDAT , 0:  MAXSET,  MAXREG), 

LNSTR ( MAXDAT , 0 : MAXSET,  MAXREG).  MO(MAXREG), 

MZERO { 2 , MAXREG),  NF  (MAXDAT,  MAXREG)  , 

RATSTR  (MAXDAT,  6:MAXSET),  RAWNF  (f  MAXDAT,  OsMAXSET), 

RAWSTR (MAXDAT,  OsMAXSET),  SIGMA2 (MAXREG) , 

STR  (MAXDAT,  MAXREG) 

LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU(  ) AND 
SIG(  ) CALCULATION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION  

3-D  ARRAY  CONTAINING  LN ( RAWNFf  ) ) , ? T nM 

3-D  ARRAY  CONTAINING  LN  ( RATSTR  ( ) ) , _^LSO  INMXED  FOR  REGICMJ^ 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED  

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

1- dE^rayRc^taining°the  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

2- lf  ARRA.1  CONTAININ^VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
LcHMGION  ^ — MZEROU ,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  thf  UPPER  BOUND 

2-D  ARRAY  CONTAINING  RAWNFf ) (CYCLES  TO  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INT0I,R?<fJ0Sf ___ 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 

1- ?* ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
9— n array  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  f % ) FOR  ALL  S/N  DATA  SETS 

2- D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 

DATA  (%)  FOR  ALL  S/N  DATA  SETS  

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION  | . , 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  ulim_TJ1. 

2- D  ARRAY  CONTAINING  RATSTR ( ) FOR  THE  SPECIFIC  MATERIAL 
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S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

DO  100  J - 0,  MAXSET 
NPTS(J)  - 0.0 
100  CONTINUE 

DO  200  L - 1,  MAXREG 
DO  250  J - 0,  MAXSET 
NP(  J,  L)  » 0.0 
250  CONTINUE 
200  CONTINUE 

DO  300  J « 0,  MAXSET 
DO  350  I - 1,  MAXDAT 
RAWNFfl.J)  ■ 0.0 
RAWSTR(I,J)  “ 0.0 
RATSTR(I, J)  ” 0.0 
350  CONTINUE 

300  CONTINUE 

DO  400  L « 1,  MAXREG 
DO  425  K - 1,  MAXDAT 
DO  450  J - 0,  MAXSET 
LNNF(K,J,L)  - 0.0 
LNSTR(K,J,L)  - 0.0 
450  CONTINUE 

425  CONTINUE 

400  CONTINUE 


DO  500  L « 1, 
DO  550  K - 
NF(K,Lj 
STR(K,L) 
550  CONTINUE 
500  CONTINUE 


MAXREG 
1,  MAXDAT 
■ 0.0 
- 0.0 


DO  600  L - 1,  MAXREG 
REFNP(L)  - 0 


MPNT (L 


(1,1*) 
<2,L) 


mzer6< 

MZERO<  , 
DELTA(L) 

MO(L)  - 0.0 
SIGMA2 (L)  - 0.0 
600  CONTINUE 


- 0.0 
- 0.0 
0.0 


RETURN 

END 


SUBROUTINE  RCE  "READS"  THE  DATA  FROM  SPECFD  AND  RELATD;  "CONVERTS" 
THE  STRESS  DATA  TO  A STRESS  RATIO  OF  -1.0;  AND  "ECHOES"  THE  DATA  TO 
SPECFO  AND  RELATO.  RCE  ALSO  BREAKS  S/N  DATA  SETS  INTO  REGIONS  AS 
SPECIFIED  BY  USER 


PROGRAMMER: 
DATE: 
VERSION: 


L.  NEWLIN 
21JUN88 
MATCHR  V8 . 
MATGRM  V4 . 


FORMAT/ COMMENTS : 12AUG9 1 

1,  V8.2,  V8.3,  V8.4,  V8.5 
1,  V4.2,  V4.3,  V4 .4,  V4.5 


SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP, 

& LNSTR,  LNNF,  REFNP.  STR,  NF,  SZERO,  ZROREG, 

& NUMREG,  NNODAT,  NSETS,  NBND,  CZERO,  MPNT,  MZER0, 

& FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2,  KRATIO,  LAMN) 


INPUTS: 

OUTPUTS: 


VARY  MPROC 

NPTS ! RAWNF,  RAWSTR,  RATSTR,  NP,  LNSTR,  LNNF,  REFNP, 
STR,  NF,  SZERO,  ZROREG,  NUMREG,  NNCOAT,  NSETS,  NBND, 
CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2, 
KRATIO,  LAMN 
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C SUBPROGRAMS : TRMNAT,  CONVRT 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 
PARAMETER  (MAXDAT  - 50,  MAXREG 
COMMON  I OUT 

INTEGER  COUNT,  I.  MOT,  J,  K,  L,  M,  4 MPNTJMA^) ^ROC, 


3,  MAXSET  - 5) 


& 

& 


REAL 


& 

& 

& 

& 

& 

& 


N^A*,  HSETS, 

NUM,  NUMREG,  REFNP ( MAXREG ) , REG,  VARY,  ZROREG 

CZERO,  DELTA  (MAXREG)  , FTU,  ^?,PTnf,rTYZ, 

KRATIO,  LAMN,  UINF (MAXDAT,  0: MAXSET,  MAXREG) , 

LNSTR ( MAXDAT , 0 : MAXSET,  MAXREG),  MO (MAXREG) , 

MZERO(2,  MAXREG),  NBND ( 0 : MAXREG ) , NT (MAXDAT,  MAXREG), 
RATIO,  RATSTR  ( MA&DAT , USMAXSET),  RAWNE  (MAXDAT,  0 '.MAXSET), 
RAWSTR ( MAXDAT , 0: MAXSET),  SIGMA2 (MAXREG) , 

STR( MAXDAT,  MAXREG) , SZERO 

CHARACTER*  4 0 DESCRP ( 0 : MAXSET ) 


C 

c 

C COUNT 
C 

C CZERO 

c 

C DELTA () 

C 

C DESCRP () 
C FTU 
C FTUZ 
C FTY 
C FTYZ 
C I 
C I OUT 
J 
K 

KRATIO 
L 

LAMN 

LNNF ( ) 
LNSTR () 
M 

MAXDAT 
MAXREG 
MAXSET 
MO() 

MPNT( ) 

MPROC 

MZEROO 


NBND( ) 

NDIV 

NF() 

NNODAT 

NP() 

NPTS ( ) 

NSETS 

NUM 

NUMREG 

RATIO 


LIST  OF  VARIABLES 

INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 

CONVERSION,  AND  BREAK  UP  __ 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  CO  _ 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
gjG/  j CALCULATION 

l-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 
ULTIMATE  STRENGTH  (PSI)  OF  MATERIAL  DATA  SET 
ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION  

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION. 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  ALL  REGIONS  AND  COMPONENTS 
3-D  ARRAY  CONTAINING  LN ( RAWNFf ) ) , inm  V«  RBgDOII 

3-D  ARRAY  CONTAINING  LN(RATSTR( j ),  ALSO  INDEXED  FOR  REGION 
CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED  , ....... t.-l» 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

1- DE^RAYRCOOTAINING°THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

Materials  PROCessHvariation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGESCX4  M FOR_ 

EACH  REGION  — MZERO  ( 1 , L ) IS  THE  LOWER  BOUND  AND  MZERO  ( 2 , L ) 
IS  THE  UPPER  BOUND  

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO, 

REGION  PAIRS  DURING  INPUT  

2- D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAn,URE )FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISION 
NUMBER  OF  REGIONS  OF  INTEREST 
STRESS  RATIO  (R  = -1.0  IS  DESIRED) 
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C RATSTRO 
C 

C RAWNF ( ) 

C 

C RAWSTR() 
C 

C REFNP( ) 

C 

C REG 
C SIGMA2 ( ) 
C 

C STR( ) 

C 

C SZERO 
C VARY 
C 
C 

C ZROREG 

C 

C 


2-D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  FOR  STRESS 
RATIO  OR  TOTAL  STRAIN  DATA  (%)  TOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  ( % ) FOR  ALL  S/N  DATA  SETS  

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

REGION  OF  INTEREST  IN  A PARTICULAR  DIVISION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  RATSTRQ  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  «) 

STRESS  TENSILE  TEST  POINT,  So 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION:  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 

VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C INITIALIZE  COUNT  AND  NBND( ) 
COUNT  - 0 


C 


c 


DO  10  L - 0,  MAXREG 
NBND(L)  - 0.0 
10  CONTINUE 

INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 


READ( 1, *)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(0) 

IF  (NPTS(0)  -GT.  MAXDAT)  THEN 

WRITE ( 8.  *)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ', 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
END  IF 


WRITE(3,900) 
IF  (IOUT  .EQ. 


DESCRP ( 0 ) , FTY,  FTU,  NPTS(0) 
10)  WRITE (8, 9 00)  DESCRP ( 0 ) , 


FTY, 


FTU,  NPTS(0) 


WRITE { 3,9 05 ) _ _ 

IF  (TOUT  .EQ.  10)  WRITE (8, 905) 

STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 


FTUZ  “ FTU 
FTYZ  - FTY 

C INPUT  STRESS /LIFE  INFORMATION  — INCLUDING  STRESS  RATIO  AND  REGION 

C INFORMATION  FROM  SPECFD  AND  ECHO  TO  SPECFO 

DO  100  M - 1,  NDIV 

READ  (1,*)  NUM,  RATIO,  REG 

IF  (ABS( RATIO)  .GT.  1.0)  THEN  

WRITE (8,*)  'ERROR:  INVALID  VALUE  FOR  RATIO:  ',  RATIO 

CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  MAXREG)  THEN 

WRITE (8,*)  'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

DO  110  I - (COUNT  +1).  (COUNT  + NUM) 

READ( 1, *)  RAWSTR( 1,0),  RAWNF(I,0) 

110  CONTINUE 


C CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 
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IF  (RATIO  .EQ.  -1.0)  THEN 

STRESS  RATIO  IS  CORRECT 

DO  120  I - (COUNT  + 1),  (COUNT  + NUM) 
RATSTR(I, 0)  « RAWSTR(I, 0) 

120  CONTINUE 


C 


c 


ELSE 

STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR,  RATSTR, 
RATIO,  FTU,  FTY) 


S, 

i 


ENDIF 

ECHO  STRESS /LIFE  DATA  ON  SPECIFIC  MATERIAL 


DO  130  I - (COUNT  +1),  (COUNT  + NUM) 

WRITE(3,910)  RAWSTR(I,0),  RAWNF(I,0) , RATIO,  REG, 
RATSTR(I,0),  RAWNF (1,0) 


IF  ( IOUT  .EQ.  10)  WRITE( 8,910)  RAWSTR(I,0),  RAWNF(I,0), 
' RATIO,  REG,  RATSTR(I, 0) , RAWNF(I,0) 


130  CONTINUE 

C BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 

C EXPCTD,  AND  PAREST 


K - NP( 0,REG) 

DO  140  I = (COUNT  +1),  (COUNT  + NUM) 


K = K + 1 
LNSTR(K,0,REG) 


UiSTKIK.  “ ALOG (RATSTR (1,0) ) 

LNNF(K,6,REG)  - ALOG (RAWNF (1,0)) 
STR(K.REG)  * RATSTR (1,0) 

NF(K,REG)  - RAWNF (1,0) 


140  CONTINUE 


IF  WRITE^" 8 , ^t^roROR^ OVER  NUMBER  OF  POINTS  LIMIT  IN  ', 
'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 


NP ( 0 , REG ) = K 
REFNP(REG)  **  K 
COUNT  = COUNT  + NUM 


100  CONTINUE 


IF  (NPTS(0)  .NE.  COUNT)  THEN  

WRITE ( 8 , * ) 'ERROR:  NUMBER  OF  POINTS  PER  DIVISION 

& ' 'INCORRECTLY  SPECIFIED' 

WRITE (8,*)  'IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 


» 


READ ( 1 , * ) SZERO 
IF  (NINT  (SZERO)  .GT.  0)  THEN 
ZROREG  = 0 
ELSE 

ZROREG  = 1 
ENDIF 

*IF  V^ITE(8F*i  '’s^ERO  - ',  SZERO,  ' ZROREG  = ',  ZROREG 
INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORMATION 
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READ(1,*)  numreg,  nnodat 


IF  ((NUMREG  + NNODAT) 
WRITE( 8, *)  'ERRORS 
CALL  TRMNAT 
END  IF 


.GT.  MAXREG)  THEN  

EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS' 


DO  150  L ■ ZROREG,  (NUMREG  + NNODAT) 
READ(1.*)  NBND(L) 

150  CONTINUE 


READ(1,*)  CZERO 

DO  160  L - 1,  (NUMREG  + NNODAT) 

READS  1,*)  MPNT(L),  MZERO(l,L),  MZERO(2,L) 
160  CONTINUE 

iFTz^ofel^lEQ.  0)  WRITE( 3, 914)  SZERO 
IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8,913)  _ „ . „„„„ 

IF  (ZROREG  .EQ.  0)  WRITE(8,914)  SZERO 
ENDIF 


WRITE (3, 9 15)  NUMREG.  NNODAT 

IF  (lOlrf?  .EQ.  10)  wfclTE(8,915)  NUMREG,  NNODAT 

DO  170  L - ZROREG,  (NUMREG  + NNODAT) 
WRITE(3,920)  NBND(L) 

IF  (IOUT  .EQ.  10)  WRITE(8,920)  NBND(L) 
tTINUE 


170  CONTI 

WRITE (3, 925)  CZERO 

IF  (IOUT  .EQ.  10)  WRITE(8,925)  CZERO 

DO  180  L - 1.  (NUMREG  + NNODAT) 

WRITE(3,930)  L.  MPNT(L),  MZERO(l,L),  MZERO(2,L) 

IF  (IOUT  .EQ.  10) 

fc  WRITES  8,930)  L,  MPNT(L) , MZERO( 1,L) , MZERO(2,L) 

IF  ((VARY  .EQ.  3)  .AND.  (MPNT(L)  .EQ.  0))  THEN  

WRITE ( 8 , * ) 'ERROR:  NORMAL  VARIATION  REQUIRES  A PRIOR 

& 'RANGE  ON  M' 

CALL  TRMNAT 
ENDIF 
180  CONTINUE 

IF  (VARY  .EQ.  3)  THEN 

READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 
WRITE (3, 945) 

IF  (T — 

DO  15 


& 

& 

& 


IOUT  .EQ.  10)  WRITE( 8, 945) 

90  L » 1,  (NUMREG  + NNODAT) 

£AD( 1, *)  DELTA(L),  MO(L) , S 

--TE(3,§50)  L.  DELTA(L),  MO(L),  SI 
(IOUT  .EQ.  10) 

WRITES 8, 950)  L,  DELTA(L),  MO(L), 
.TA(*  ‘ " A' 


!I<34A2(L) 

SIGMA2<L) 


190 


SIGMA2 (L) 

IF  ((DELTA(L)  .LT.  0.0)  .OR.  « 

(DELTASL  .GT.  0.0)  .AND.  (MO(L)  .LE.  0.0)))  THEN 
WRITE ( 8,*)  'ERROR:  BAD  VALUE  FOR  DELTA  OR  VALUE  OF 

' INCONSISTENT  WITH  DELTA  IN  REGION  ' , L 

CALL  TRMNAT 
ENDIF 
CONTINUE 
ENDIF 

IF  (MPROC 


MO 


(MPROC  .EQ.  1)  THEN 
READ( 1,*)  KRATIO.  LAMN 
WRITE (3, 955)  KRATIO,  LAMN 


nivllal  J,  lUVlixvi 

IF  (IOUT  .EQ.  10)  WRITE( 8, 955)  KRATIO,  LAMN 
ENDIF 


C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  TO  RELATO 

READ( 5, *)  NSETS 
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IF  ^!rafs;*T‘  ' error! ’ OvIr  LIMIT  ON  NUMBER  OF  RELATED  DATA  SETS' 
CALL  TRMNAT 
END  IF 

WRITE (6, 935)  NSETS 
DO  200  J - 1,  NSETS 
COUNT  - 0 

IF  (IOUT.  EQ.  10)  WRITE(8,*)'J  “',  J,  ' NSETS  “',  NSETS 
READ(5,*)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

ir  ON  NUMBER  OP  POINTS  IN 

s,  'SET  ',  J 

CALL  TRMNAT 
END  IF 

WRITE (6, 9 40)  DESCRP(J),  FTU,  FTY,  NPTS(J)  T. 

IF  (IOUT  .EQ.  10)  WRITE(8,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 

WRITE (6, 9 05)  „ 

IF  (IOUT  .EQ.  10)  WRITE (8, 9 05) 

DO  300  M - 1,  NDIV 

READ(5,*)  NUM,  RATIO,  REG 

IF  inar^^*V ' error : * ° Invalid  value  of  ratio:  ',  ratio 

CALL  TRMNAT 
ENDIF 

IF  (REG_.GT.  MAXREG)  THEN 

OVER  REGION  LIMIT  IN  RELATED  MATERIAL  ' , J 


write! 8,*) 
'ERROR: 


CALL  TRMNAT 
ENDIF 


IF  (IOUT  .EQ.  10)  THEN 
WRITE (8,*  'NUM  ■ ' , N 
WRITE (8,*)  'RATIO  * ', 


NUM,  ' COUNT  “ ' , COUNT 
RATIO,  ' REG  - ',  REG 


ENDIF 


DO  310  I = (COUNT  + 1),  (COUNT  + NUM) 

READ(5,*)  RAWSTR(I, J) , RAWNF(I, J) 

310  CONTINUE 

C CHECK  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  320  I - (COUNT  + 1),  (COUNT  + NUM) 

RATSTR ( I , J ) “ RAWSTR(I, J) 

320  CONTINUE 

ELSE 

C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

C CALL  CONVRT(J,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR, 

t RATSTR,  RATIO,  FTU,  FTY) 


ENDIF 

RECORD  BOTH  S/N  DATA  SETS  TO  RELATO 
DO  330  I - (COUNT  + 1),  (COUNT  + NUM) 

WRITE (6, 9 10)  RAWSTR(I,J),  RAWNF(I,J),  RATIO,  REG, 
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& 


<1 


RATSTR(I,J),  RAWNF(I,J) 


IF  (TOUT 


.EQ.  10 
RAT 


WRITE(8,910)  RAWSTR(I,J),  RAWNF(I,J) 
IQ,  REG,  RATSTR(I,J),  RAWNF(I,J) 


> 


330  CONTINUE 


K - NP(J,REG) 

DO  340  I - (COUNT  + 1),  (COUNT  + NUM) 


K « K + 1 
LNSTR(K, J,REG) 
LNNF(K,J,REG) 


- ALOG(RATSTR(I,J)) 
- ALOG(RAWNF(I, J) ) 


340  CONTINUE 

IF  fK  .GT . MAXDAT)  THEN 

^ra(8,M^S»SOR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  ', 

4 'IN  SET  J 

CALL  TRMNAT 
ENDIF 


NP(J,REG)  « K 
COUNT  - COUNT  + NUM 


300  CONTINUE 

IF  (NPTS(J)  .NE.  COUNT)  THEN 

WRITE ( 8 , * ) 'ERROR:  NUMBER  OF  POINTS  PER  DIVISION 

4 'INCORRECTLY  SPECIFIED  IN  SET  ',  J 

CALL  TRMNAT 
ENDIF 


200  CONTINUE 


C FORMAT  STATEMENTS  USED  TO  WRITE  TO  S PE CFO  AND  RELATO 

900  FORMAT: ////. 13X. 'MATERIAL  INPUT' , ///,2X, 'DESCRIPTION: V2X,A40, //, 
900  FORMAT  ( 2X,  ' YIEL6  STRENGTH'  , 18X,Eil.  S' //',2X.  'ULTIMATE  STRENGTH', 

4 15&,E11.5,//,2X, 'NUMBER  OF  POINTS' , 16X, 12) 

905  FORMAT://, 7X, 'ORIGINAL  S/N' .9X, 'STRESS' , 15X. 'TRANSFORMED  S/N', 
90S4FOKMAT( ,, STRESS  • Llfe , ; 7X> , , 3fc, 'REGION ' , 5X, 

4 'STRESS' ,7X, 'LIFE'/) 

910  FORMAT (2X, Ell. 5, 2X,F9 .0,5X,F5.2,5X,Il,5X,Ell.5,2X,F9.0) 

913  FORMAT( // ) 

914  FORMAT: 2X, 'THERE  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  So  OF', 

& 5X,E11.5) 

915  FORMAT: 2X. 'THERE  IS  ',12,'  REGION(S)  WITH  DATA  ' , 

4 /,^X,'AND  ',12,'  ReGION(S)  TO  THE  RIGHT  WITHOUT  DATA', 

4 /'2X, 'THE  uRpER  BOUND(S)  OF  THE  REGION(S)  ARE  ', 

4 '(CYCLES):  ’,/) 

920  FORMAT( 10X,E9 .3) 

925  FORMAT (///,2X, 'EXOGENOUS  INFORMATION' ,///,2X, 

4 ''CONSTRAINT  ON  COEFFICIENT  OF  VARIATION,  C:',2X,F6.4, 

t //,2X, 'EXPLICIT  CONSTRAINT  ON  n FOR  EACH  REGION:', 

& // ' 2X,  'REGION'  ,5X,  '#  OF  POINTS ',  5X,  'MWER  BOUND', 

4 5X, 'UPPER  BOUND' ,/) 

930  FORMAT(6X,Il, 11X, II, 12X,F7 .4, 9X,F7 .4) 

935  FORMAT (2 OX, 'NUMBER  OF  DATA  12,//, 17X. 

4 'NOTE:  ALL  Kt  ASSUMED  TO  BE  1.0' , ////,23X, 

4 'TRANSFORMED  DATA') 
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940  FORMAT (///.2X, 'DESCRIPTION: ' ,2X,A40, 

V VA.ix. 'YIELD  STRENGTH'  , 18X,F7 .0, 

S,  //,2X, 'ULTIMATE  STRENGTH' ,15X,F7.0, 

S,  //,2X, 'NUMBER  OF  POINTS' , 16X, 12) 

o^c  ironM&T < / 2X  'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS: ' , 
945sFORMAT(/^2Xi  PMOKqNOKM^^  DELTAf  ^ ^ fjno,  ^ 10Xf  » SIGMA2  , /) 

950  FORMAT (5X, II ,5X,F7 .2, 5X,F7 .4,5X,Ell.5) 

qcc  FORMAT  ill  2X  ' MATERIALS  PROCESS  VARIATION  INFORMATION  r 1 - 
955&FORMAT(//,2X,^™^DKjr  ^ /Ell . 5#  / r SX^LAMBDAN:  S 5XrEll  .5 ) 


RETURN 

END 


C 


C 

c 

c 

c 

c 

c 

c 


THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  ON  STR< ) WHEN  THE 
STRESS  RATIO,  R,  IS  NOT  -1.0 

PROGRAMMER.  COMMENTS : 13JUL89  „ , , 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5  „ ...  _ 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  CONVRT  ( J,  NUMl,  NUM2,  STR,  RSTR,  R,  FTU,  FTY) 


C INPUTS:  J,  NUMl,  NUM2,  STR,  R,  FTU,  FTY 

C OUTPUTS:  RSTR 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  = 50,  MAXSET  - 5) 


COMMON  I OUT 

INTEGER  I,  I OUT,  J, 

REAL  FTU,  FTY,  R, 

f,  STR  (MAXDAT, 


NUMl,  NUM2 

RSTR ( MAXDAT , 0: MAXSET) 
0: MAXSET) , TEST 


C 

c 

C FTU 
C FTY 
C I 
C I OUT 
C J 

C MAXDAT 
C MAXSET 
C NUMl 
C NUM2 
C R 

C RSTR( ) 
C STR( ) 

C TEST 


LIST  OF  VARIABLES 

ULTIMATE  STRENGTH  OF  MATERIAL  (PSI) 

YIELD  STRENGTH  OF  MATERIAL  (PSI)  _ _ 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

MAXIMUM1 NUlffiER^OF^POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

FIRST  INDEX  TO  BE  TRANSFORMED 

LAST  INDEX  TO  BE  TRANSFORMED 

STRESS  RATIO  (R  “ -1.0  IS  DESIRED) 

i/»  CURVE 

sST*  (1  - R>/2  , TO  BE  compared  with  pty 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I = NUMl,  NUM2 

TEST  * STR(I,J)  * (1.0  - R)/2.0 
IF  (IOUT.EQ.10)  WRITE ( 8 , * ) 'I  J 


,J, ’ TEST  =' ,TEST 
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uoououuu  ou  o uuooooouu 


RSTR(I,J) 


IF  (TEST  .GE.  FTY)  THEN 
RSTR( I , J)  - TEST 

IF  ( IOUT.EQ. 10 ) WRITE(8,*) ' 1:RSTR()  , 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .<ST.  FTY))  THEN 
RSTR(I,J)  - TEST/ (1.0  -((FTY  - TEST) /FTU) ) 

IF  (IOUT.EQ. 10)  WRITE(8,*)'2:RSTR()  -',RSTR(I,J) 

ELSE 

RSTR(I,J)  - TEST/ (1.0  - ((1.0  + R)  * STR(I,J) 
i /(2.0  * FTU))) 

IF  (IOUT.EQ. 10)  WRITE (8,*) '3sRSTO()  »',RSTR(I,J) 

END  IF 

100  CONTINUE 

RETURN 

END 


C 


SUBROUTINE  SW2SU2  CALCULATES,  SWHAT2,  THE  RESIDUAL  VARIANCES  OF  Y ON 
AND,  SUHAT2,  THE  X ON  Y REGRESSIONS  FOR  EACH  REGION  WHERE  Y - IH(NF) 
X - LN(STR) ; TO  BE  USED  IN  THE  CONFIDENCE  INTERVAL  CALCULATIONS 
PROGRAMMERS  L.  NEWLIN 

DATE:  CODES  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  SW2SU2  (NUMREG.  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY, 
£ SY2,  DD,  SWHAT2,  SUHAT2,  NPPR) 


INPUTS: 

OUTPUTS: 


NUMREG,  NSETS,  NP,  LNSTR.  LNNF 

SX2,  SXY,  SY2,  DD,  SWHAT2,  SUHAT2 , NPPR 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  - 3,  MAXSET  - 5) 

COMMON  I OUT 

INTEGER  I OUT,  J,  K,  L,  NP(0:MAXSET,  MAXREG),  NPPR ( MAXREG ) , 

& 

REAL 

& 

& 

& 

& 


NSETS,  NUMREG 

BB (MAXREG) , DD (MAXREG) , DIFFX (MAXDAT,  0 : MAXSET ) , 

DIFFY (MAXDAT,  6:MAXSET),  LNNF (MAXDAT,  OsMAXSET,  MAXREG), 
LNSTR  (MAXDAT,  0:MAXSET.  MAXREG),  MEANXjt  0 : MAXSET)  , 


MEANY ( 0 : MAXSET) , SUHAT^ (MAXREG) , SWHA 
SX2 (MAXREG),  SXY ( MAXREG ) , SY2 (MAXREG) 


SWHAT2 (MAXREG) , 


LIST  OF  VARIABLES 

BB()  1-D  ARRAY  CONTAINING  SXY (L) /SY2 (L)  FOR  EACH  REGION 

DD)  1-D  ARRAY  CONTAINING  SXY(L) /SX2|L)  FOR  EACH  REGION 

DIFFX ( ) 2-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNSTR(K, J ,L) 

AND  MEANX(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION 
DIFFY ( ) 2-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K,J,L) 

AND  MEANY (J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION 
IOUT  OUTPUT  DUMP  CONTROLLER 


X 

AND 


L 

L 
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noooonoooooooooooooooo 


j 
K 
L 

LNNF  ( ) 
LNSTR?) 
MAXDAT 
MAXREG 
MAXSET 
HEANX( ) 

MEANY ( ) 

NP<) 

NPPR<  ) 

NSETS 
NUMHEG 
SUHAT2 ( ) 

SWHAT2  ( ) 

C SX2  ( ) 

C 

C SXY ( ) 

C 

C SY2 ( ) 


CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION  

D ARRAY  CONTAINING  LN  ( RAWNF  ( ) ) r ALSO  INDEXED  FOR  REGION 
3Id  S8  cSJtAINING  LN  (rSsTkI]  ) ^ ^ TNDEXED  FOR  REGIO 


3-D  ARRAY  CONTAINING  LN  (RATSTRO  ) , ALSO  INDEXED  FUK 

MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED  

1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 

1- D  arrayAc^ntainin^XsL^leS1  mean  for  points  from  region 

2- D  ^RA^CONTAININ^  NUMBER  hr  POINTS  OF  EACH  S/N  DATA 

1-DEARRAYECWTMNING  VALUES  OF  ( (SUM  OF  (OT(  )-l)  )-l  > OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 
HUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST  „ „ v 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES^PTOM_X  ON  Y 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACTREGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANTCES_FRCT1_Y  ON  X 
REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  5^^HREGION 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

1-£Xarray  containing  sample  x,  sample  y,  covariance  for 

l-D*ARRMGCWTAININGnSAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  - Ln  N) 


C INITIALIZE  ARRAYS 


DO  50  L 
SY2  (L) 
SX2 (L) 
SXY (L) 
SWHAT2 
SUHAT2 
BB(L 
DD(L)  = 
NPPR(L) 
50  CONTINUE 


■ 1.  MAXREG 

= 6.o 
= o.o 
- o.o 

o.o 


Ai 


o.o 


DO  60  J - 0,  MAXSET 
DO  70  K = 1,  MAXDAT 
DIFFY(K,J)  = 0.0 
DIFFX(K,J)  =0.0 
70  CONTINUE 

MEANY (J)  = 0.0 
MEANX(J)  = 0.0 
60  CONTINUE 

C NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2,  SUHAT2  FOR  EACH  REGION 


DO  100  L = 1,  NUMREG 


C 

C 


DO  200  J = 0,  NSETS 

FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 
FOR  DATA  SET  J IN  REGION  L 
MEANY(J)  = 0.0 

MEANXJ  = 0.0  , _ 

IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) L = , L,  ' J 
t,  ' NP  =',  NP(J,L) 


J, 


6 

250 


& 


DO  250  K = 
MEANY ( J 
MEANX(J 


1,  NP(J,L) 
MEANY (J) 


1 : 


+ LNNF(K, J,L 


MEANX(J)  + LNSTR 


K,J,L) 

(K,J,L) 


IF  (IOUT  .EQ.  10)  WRITE (8,*)  'LNNF 
' LNSTR  =',  LNSTR(K,J,L) 


CONTINUE 


LNNF (K, J,L) , 


MEANY (J)  = MEANY (J) /FLOAT (NP(J,L) ) 

IF^IOU^  TeS^O  j JWR^Et 8 J *1 ( ^MeAnY  ( J ) 


MEANX(J) 


MEANX( J) 


MEANY ( J) , 
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c 

c 

c 


NOW  CALCULATE  SAMPLE  VARIANCES,  SY2 , SX2AND  SXY , 
OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  SET  IN  REGION  L 


i 

& 


300 


200 


DO  300  K - 1, 
DIFFY(K, J) 
DIFFX(K,J) 
SY2  " 

SX2 
SXY 


J.L)  - MEANY ( J 
C,J,L)  - MEANX( 


i) 


WRITE ( 8 , * ) 


ENDIF 

CONTINUE 


NP(J,L) 

- LNNF(K,J,L) 

- LNSTR(K, J,I 
DIFFY(fc,J)  **  2 
DIFFXfK, J)  **  2 
DIFFX(K,J)  * DIFFY(K,J) 

0)  THEN  

K K,  ' DIFFY(K, J)  , DIFFY(K, J) , 

DIFFX(K,J)  DIFrt(K,J) 

' L)«',SY2(L),  ' Sxi(L)  SX2(L), 

<L)  SXf(L) 


NPPR(L)  * 
IF  (I OUT 
CONTINUE 


NPPR(L)  + NP(J,L) 

• EQ.  10)  WRITE(M) 


1 

'NPPR(L) 


NPPR(L) 


IF  ifra(^LL^NCREA^ETOTTH  INCREASING  STRESS  — INVALID  FOR 
OUR  MODEL 

WRITE (8,*)  'ERROR:  SXY  >-  0 IN  REGION ' , L 
CALL  TRMNAT 
ENDIF 


NPPR(L)  - NPPR(L)  - 1 

IF  ^RITE 1 8 ! * phiilTi*  FEW  POINTS  FOR  REGRESSION  IN 
* 'REGION  ' ,L 

CALL  TRMNAT 
ENDIF 


C 

c 


SY2 (L)  - SY2 (L)  / FLOAT (NPPRfL) ) 

SX2 (L)  “ SX2 (L)  / FLOAT (NPPR(L) ) 

SXY(L)  - SXY (L)  / FLOAT ( NPPR (L ) ) 

NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 
REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 


& 


DD(L)  * SXY (L)  / SX2 (L) 
BB(L)  ■ SXY(L)  / SY2JL) 

IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'NPPR(L)  «' 

' /T.\  m' 

WRITE ( 8 , * ) 'SXY(i|  -' , 
' BB(L) 

ENDIF 


, NPPR(L) 
, SX2JL) 
SXY(L), 
BB(L) 


' SY2 (L)  SY2 (L) , 

DD(L)  DD(L) , 


DO  400  J • 0,  NSETS 

IF  (IOUT  .EQ.  10)  WRITE (8,*)  'J 


J,  ' NP(J,L) 


NP(J,L) 


& 

& 

& 

500 


DO  500  K 

SWHAT2  (L) 


1,  NP( J,L) 

SWHAT2(L) 


+ (DIFFY(K, J)  - DD(L)  * DIFFX(K, J) ) **  2 
SUHAT2 (L)  - SUHAT2 (L) 


+ 

IF  (IOUT  .EQ. 
SWHAT2 (L) , 
CONTINUE 


(DIFFXtK, J)  , . 

10)  WRITE ( 8 , * ) - 


SUHAT2 (L) 


- BB(L) 

SUHA^2?1) 


* DIFFY ( K, J) ) **  2 
K,  ' SWHAT2 (L)  *' 


400  CONTINUE 


SWHAT2 (L)  - SWHAT2 
SUHAT2 (L)  ■ SUHAT2 
IF  (IOUT  .EQ.  10) 

& > SWHAT2 (L) 

100  CONTINUE 


L)  / FLOAT ( 

L)  / float! 

IRITE<8,*) 
SWHAT2 (L) 


:i: 


NPPR(L) ) 
NPPR(L) ) 
NPPR(L) 

' SUHAT2 ( L ) 


NPPR(L 


iu^AT2 


(L) 


7-286 


RETURN 

END 


£*★*** *★***★ ***★★★** 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CONFIDENCE  INTERVAL,  Io,  ON 
C;  AND  THE  95%  CONFIDENCE  INTERVAL,  Jo,  ON  M 

PROGRAMMERS  L.  NEWLIN  _ , 

DATES  CODES  50CT87  COMMENTS s 15SEP89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.J, 

MATGRM  V4*  V4.l)  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  INTRVL  (NUMREG,  SX2 . DD,  SWHAT2,  SUHAT2 , NPFR,  IZERO, 
^ JZERO , MCHAT ) 

INPUTS:  NUMREG,  SX2 , DD,  SWHAT2,  SUHAT2,  NPPR 

OUTPUTS:  IZERO,  JZERO,  MCHAT 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  CHITAB,  MAXREG,  TTAB 
PARAMETER  (CHITAB  * 150,  MAXREG 
COMMON  I OUT 

INTEGER  I,  I OUT,  L,  NPPR ( MAXREG ) , NUM,  NUMREG 
REAL 


3,  TTAB  = 31) 


& 

& 

& 


SX2( MAXREG),  T,  T025 (TTAB) 


DATA  (CHl025(Ii'05098j66^)0^506356,  0.215795.  0.484419.  0.831211, 
1,237347 , 1.68987,  2.17973,  2.70039,  3.24697, 

3.81575,  4.40379,  5.00874,  5.62872,  £-26214, 

6.90766.  7.56418,  8.23075,  8.90655,  9-59083, 

10.28295,  10.9823,  11.6885,  12.4011,  13.1197, 

13.8439,  14.5733,  15.3079,  16.0471,  16.7908, 


DATA  (CHI025 (I 


17.53, 

21.33, 

25.21, 

29.15, 

33.16, 

37.21, 
41.30, 
45.43, 
49,  ~ 


18.28, 

22.10, 

25.99, 

29.95, 

33.96, 
38.02, 
42.12, 
46.26, 


DATA  (CHI975 (I 


1l  I = 76, 

150 ) / 

5$. 78, 

54.63, 

57.80, 

58.84, 

62.24, 

63.09, 

66.50, 

67.35, 

70.78, 

71.64, 

75.08, 

75.94, 

79.40, 

80.27, 

83.73, 

84.60, 

88.08, 

88.95, 

92.45, 

93.32, 

96.82, 

97.70. 

101.21, 

102.09, 

105.61, 

106.49, 

110.02, 

110.90, 

114.44, 

115.33, 

[),  I * 1, 

75}  / 

5.02389, 

7.37776 

19.04, 

22.87, 

26.78, 

30.75, 

34.77, 

38.84, 

42.95, 

47.09, 

51.26, 

55.46, 
59.69, 
63.94, 
68.21, 
72.50, 
76.80, 
81.13, 

85.47, 
89.83, 
94.19, 
98.57, 
102.97, 
107.37, 
111.79, 
116.21, 


19.80, 

23.65, 

27.57, 
31.55, 

35.58, 

39.66, 
43.77, 
47.92, 

52.10, 

56.30, 

60.54, 

64.79, 

69.07, 
73.36, 

77.67, 
82.00, 
86.34, 
90.70, 

95.07, 
99.45, 
103.85, 
108.25, 

112.67, 

117.10, 


20.56. 
24.4331, 
28.36, 
32.3574, 

36.39. 
40.4817, 
44.60. 
48.7576, 
52.94  / 

57.1532, 

61.39, 
65.6466, 
69.92. 
74.2219, 
78.53, 
82.87, 
87.21, 

91.57, 
95.94. 
100.33, 
104.73, 
109.14, 
113.56, 
117.98  / 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


14.4494,  16.0128, 

21.9200,  23.3367, 

28.8454,  30.1910, 

35.4789,  36.7807, 

41.9232,  43.1944, 

48.23,  49.48, 

54.44,  55.67, 

60.56,  61.77, 

66.62,  67.82, 

72.61,  73.81, 

78.57,  79.75, 

84.48,  85.65, 

90.35,  91.52, 

96.19,  97.35, 

DATA  ««97S(IltoI0j  7«fig«l4/ 

107.78,  108.94 

113.54,  114.69 

119.28,  120.43 

125.00,  126.14 

130.70,  131.84 

136.38,  137.52 

142.05,  143.18 

147.70,  148.83 

153.34,  154.47 

158.97,  160.09 

164.58,  165.70 

170.18,  171.30 

175.77,  176.88 

181.35,  182.46 


17.5346, 

24.7356, 

31.5264, 

38.0757, 

44.4607, 

50.72, 

56.89, 

62.99, 

69.02, 

75.00, 

80.93, 

86.83, 

92.69, 

98.52, 


104.31 
110.09 
115.84 

121.57 
127.28 
132.98 
138.65 

144.31 
149.96 
155.59 
161.21 
166.82 
172.41 
178.00 

183.58 


19.0228, 

26.1190, 

32.8523, 

39.3641, 

45.7222, 

51.96, 

58.12, 
64.20, 
70.22, 
76.19, 

82.12, 
88.00, 
93.86, 
99.68, 


105.47 

111.24 

116.99 

122.72 
128.42 

134.11 
139.79 
145.44 
151.09 

156.72 
162.33 
167.94 
173.53 

179.12 
184.69 


20.4831, 

27.4884, 

34.1696, 

40.6465, 

46.9792, 

53.20. 

59.3417, 

65.41. 

71.4202, 

77.38, 

83.2976, 

89.18. 

95.0231, 

100.84  / 

106.629, 

112.39, 

118.136, 

123.86. 

129.561, 

135.25, 

140.92, 

146.57, 

152.21, 

157.84, 

163.46, 

169.06, 

174.65, 

180.23, 

185.80  / 


VALUES  FOR  THE  TABLES  ABOVE  HERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 

1 - 30,  40,  50,  60,  70,  80,  90,  100  — Theil,  pp.  718-719 

31-39,  41-49,  51-59,  61-69,  71-79,  81-89,  91-99,  101-150 
— CALCULATED  USING  CUBE  RULE  APPROXIMATION 

DATA  T025  / 12.706,  4.303,  3.182,  2.776,  2.571,  2.447, 

& 2.365,  2.306,  2.262,  2.228,  2.201,  2.179, 

& 2.160,  2.145,  2.131,  2.120,  2.110,  2.101, 

& 2.093,  2.086,  2.080,  2.074,  2.069,  2.064, 

& 2.060'  2.056,  2.052,  2.048,  2.045,  2.042,  1.960  / 


LIST  OF  VARIABLES 

ARG  INTERMEDIATE  CALCULATION  VARIABLE 

CHI025O  TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 

CHI975 ( ) TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 

CHITAB'  MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI 02 5 AND  CHI975 
DD()  1— D ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION 

I CONTROLS  LOOP  FOR  CHI025<)  AND  CHI975() 

IOUT  OUTPUT  DUMP  CONTROLLER  _ „ __  „ „ 

IZERO( ) 2-D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 

FOR  EACH  REGION  

JZERO( ) 2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 

FOR  EACH  REGION 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  „ 

MCHAT ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 

FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) - -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L ) * SUHAT,  THE  ESTIMATE  FOR  C 
NPPR( ) 1— D ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )T1)  OVER  ALL 

DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUM  EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATIONS 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SUHAT  EQUAL  TO  SUHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 

SUHAT2  0 1— D ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 

REGRESSION  FOR  EACH  REGION  (X  « Ln  S,  Y - Ln  N) 

SWHAT  EQUAL  TO  SWHAT2  (L)  **0 . 5 FOR  A SET  OF  CALCULATIONS 
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C SWHAT2 ( ) 
C 

c sx 

C SX2 ( ) 

C 

C T 

C T025() 

C TTAB 


1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 

REGRESSION  FOR  EACH  REGION  (X  — Ln  S,  Y - -_T_Me 

EOUAL  TO  ( NPPR ( L ) * SX2 ( L ) ) * * 0 . 5 FOR  A SET  OF  CALCULAT I ONS 
1?6  ARRAY 'CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  ■ Ln  S) 

VALUE  OF  T02  5 ( ) USED  IN  CALCULATIONS 

TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 

MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  IZERO,  JZERO  AND  MCHAT 


C 


DO  50  L * 1, 

I ZERO ( 1 ,L) 
IZERO(2,L) 
JZERO ( 1 , L ) 
JZERO ( 2 , L ) 
MCHAT ( 1 , L ) 
MCHAT ( 2 , L ) 
50  CONTINUE 


MAXREG 
* 0.0 
- 0.0 
- 0.0 
« 0.0 
- 0.0 
« 0.0 


CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEEDED 


DO  75  L * 1, 
IF  (NPPR( 
WRITE  < 

& 


NUMREG 

8 } * 5 ^ERRORl^k^mED  LIMIT  ON  DEGREES  OF  FREEDOM 
'IN  CHI-SQUARE  TABLE,  IN  REGION  ' , L 


CALL  TRMNAT 
ENDIF 
75  CONTINUE 


C ASSIGN  VALUES  TO  NUM,  T,  SWHAT,  SUHAT  AND  THEN  CALCULATE 
C CONFIDENCE  INTERVALS  FOR  EACH  REGION 


DO  100  L * 1,  NUMREG 


NUM  = NPPR(L) 

IF  (NUM  .LT.  31)  THEN 
T - T025 (NUM) 

ELSE 

T - T025 (NUM) 

ENDIF 


SWHAT  = SWHAT2 (L)  **  0.5 
SUHAT  - SUHAT2 (L)  **  0.5 
SX  = (NUM  * SX2(L))  **  0.5 

CALCULATE  ESTIMATED  VALUES  OF  M AND  C 


ARG  - T * SWHAT  / SX 
MCHAT(1,L)  - - DD(L) 
MCHAT ( 2 , L ) - SUHAT 


C 


CALCULATE  CONFIDENCE  INTERVALS 


IZERO ( 1 ,L) 
IZERO( 2 ,L) 
JZERO ( 1 , L ) 
JZERO (2 ,L) 


MCHAT ( 

;2,l>  * 

( FLOAT  I 

[NUM) 

MCHATj 

2,L)  * 

( FLOAT  l 

(NUM) 

MCHAT! 

;i,L)  - 

ARG 

MCHAT! 

1.1.)  + 

ARG 

/ CHI975(NUM)  ) 
/ CHI025(NUM) ) 


**  0.5 
**  0.5 


& 

& 


( I OUT 
WRITE! 

• EQ. 
8,*) 

WRITE ( 

8,*) 

WRITE! 

8,* 

WRITE! 

8,*) 

WRITE! 

8,*) 

WRITE | 

8,* 

WRITE I 

8,* 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

in  v THEN 

V-',  L,  ' NPPR-',  NPPR(L) , ' NUM 
' SWHAT2  -',  SWHAT2 (L) , ' SWHAT  , SWHAT 


’ SUHAT2  - ' ',  SUHAT2 
’ SX2  -'  , SX2 (L) 


SUHAT 
SX 


1(8: ; 

' CHI025' -““cSi625 (NUM) ,'  '~CHI975  CHI975 

'T  -',  T,  ' DD  =',  DD(L) , ' ARG  =',  ARG 
' IZERO ( 1,L)  -',  I^ERO( 1 ,L) , ' IZERO(2,L)  =' , 


NUM 

I 

SUHAT 

CHI975(NUM) 


IZERO ( 2, L) 
' JZERO(l,L) 


JZERO(2,L) 

MCHAT( 1,L)  -',  MCHAT ( 1 , L ) , 


, JZERO ( 1 ,L) , ' JZERO(2,L)  =' , 
MCHAT (2 ,L)  =', 
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MCHAT(2,L) 


& 

END  IF 
100  CONTINUE 

RETURN 

END 


C 


C 

C 

C 

C 

C 

c 

c 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPON 
THE  CO  GIVEN  BY  THE  USER 

PR0GRASS$‘  CODeT^IoCTS?  COMMENTS:  13JUL89  „ o , 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.  , 

V8  4 V8  5 

MATGRM  V4*  $4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  FTNDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


C INPUTS:  NUMREG,  CZERO,  SX2,  SXY,  SY2 

C OUTPUTS:  MCPNT,  MC 


C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  « 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT(MAXREG) , NUMREG 

REAL  ARGl,  ARG2,  CZERO,  CZER02,  MC(2,  MAXREG),  SX2 (MAXREG) , 
& SXY  (MAXREG) , SY2  (MAXREG) 


ARGl 

ARG2 

CZERO 

CZER02 
I OUT 
L 

MAXREG 

MC() 


MCPNT ( ) 

NUMREG 
SX2  ( ) 

SXY  ( ) 

SY2  ( ) 


LIST  OF  VARIABLES 
INTERMEDIATE  CALCULATION  VARIABLE 

INTERMEDIATE  CALCULATION  VARIABLE  . __ 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 
EQUAL  TO  CZERO  **  2 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

^^^To^I^S^THE  RANGESONMFOR  each  region 
CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  Tig  DATA  — MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  ISTHE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2, 

MC ( ) FOR  EACH  REGION  

NUMBER  OF  REGIONS  OF  INTEREST  . 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

l-iXARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  F<» 

l-DAARRMGCOOTAININGnSAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  - Ln  N) 


IN 


INITIALIZE  VARIABLES 

DO  50  L - 1,  MAXREG 
MCPNT(L)  - 0 
MC ( 1 ,L)  - 0.0 
MC(2,L)  - 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS 
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c 
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CZER02  ■ CZERO  **  2 

ir  (IOUT  .EQ.  10) 

& WRITE (8,*)  'CZERO 

DO  100  L » 1,  NUMRBG 


CZERO,  ' CZER02 


CZER02 


ARG1  * SX2 (L)  - CZER02 
ARG2  -0.0 

IF  (CZERO  .EQ.  0.0)  THEN 

THEN  NO  M CONSTRAINT  IS  REQUIRED 
MCFNT(L)  - 0 

ELSEIF  (ABS(ARGl)  .LT.  1.0E-6)  THEN 

THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 


MCFNT(L) 
HC(1,L)  < 


- SY2(L)  / (2.0  * SXY(L) ) 


else 


THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOME 
COMMON  CALCULATIONS 

ARG2  - (SXY(L)  **  2 - SY2(L)  * ARGl) 

lr  j&M  liL»BOATliET^"lMPLJES  M IS  COMPLEX 
WRITE(8, * ) 'ERROR:  CO  TOO  LOW' 

CALL  TRMNAT 
ELSE 

ARG2  - ARG2  **  0.5 
ENDIF 

IF  (SX2(L)  .LT.  CZER02)  THEN 

AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 


MCPNT(L) 
MC(1,L)  > 


(-  SXY(L)  - ARG2)  / ARGl 

ELSE 

SX2 (L)  -GT.  CZERO 2 — THIS  TIME  THE  M CONSTRAINT  IS  A RANGE 
MCPNT(L)  - 2 
MC^lS  - i-  SXY ( 

ENDIF 
ENDIF 
100  CONTINUE 


■*ptrm  / T.  i — , 

MC(1,L)  « (-  SXYjLj  “ ^53  > '•  — ’ 


+ ARG2)  / ARGl 


200 


IF  (IOUT  .EQ.  10)  THEN 
DO  200  L - 1,  NUMREG 

WRITE ( 8 , * ) 'L  = ' , L,  ' MCPNT  * ',  MCPNT(L) 
WRITE  8| * 'ARGl  = ' , ARGl,  ' ARG2  - ',  Ar62 
WRITE ( 8 , * ) 'MC( 1,L)  - ',  MC(1,L),  MC(2,L)  « 

CONTINUE 

ENDIF 


, MC(2,L) 


RETURN 

END 
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c 

c 

c 

c 

c 

c 


SUBROUTINE  GTPVAR  CALCULATES  THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE 
HEAT  MEDIAN  S/N  CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 

L.  NEWLIN  

CODE:  21JUN88  COMMENTS:  13JUL89 

MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


PROGRAMMER: 

DATE: 

VERSION: 


SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 


C INPUTS:  NSETS,  NP,  NUMREG,  LAMN,  MCHAT 

C OUTPUTS : PVAR 


C IMPLICIT  NONE 


INTEGER  MAXREG,  MAXSET 
PARAMETER  (MAXREG  - 3,  MAXSET  - 5) 

COMMON  I OUT 

INTEGER  I OUT.  J,  L,  NP(0:MAXSET,  MAXREG),  NSETS,  NUM ( MAXREG ) , 
t NUMREG,  TOTAL 

REAL  LAMN,  MCHAT ( 2 , MAXREG),  PSIG2 (MAXREG) , PVAR,  SUM 


C LIST  OF  VARIABLES 

C 

c I OUT  OUTPUT  DUMP  CONTROLLER 

C J CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

C L CONTROLS  DO  LOOP  FOR  EACH  REGION 

C LAMN  LAMBDA-N  — RATIO  OF  Var  (LX1  N giVMl  S)  / (m**2  C**2), 

C CONSTANT  OVER  REGIONS  AND  COMPONENTS 

C MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

C MAXSET  MAXIMUM  NUMBER  OF  S/N  DATA  SETS  AUX3WED 

C MCHAT ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 

C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

C MCHAT ( 1,L)  » -DD(L) , THE  ESTIMATE  FOR  M AND 

C MCHAT(2,L)  * SUHAT,  THE  ESTIMATE  FOR  C 

C NPO  2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 

C SET  IN  EACH  REGION 

C NSETS  NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

C NUM( ) EQUAL  TO  Nj-1  FOR  EACH  REGION  WHERE  N]  IS  THE  SUM  OF  THE 

C NUMBER  OF  POINTS  IN  EACH  DATA  SET 

C NUMREG  NUMBER  OF  REGIONS  OF  INTEREST  

C PSIG2 ( ) 1-D  ARRAY  CONTAINING  ESTIMATES  OF  THE  MATERIALS  PROCESS 

C VARIATION  IN  EACH  REGION  , 

C PVAR  THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEDIAN  S/N 

C CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 

C SUM  WEIGHTED  SUM  OF  THE  PSIG2s  — USED  TO  CALCULATE  A WEIGHTED 

C AVERAGE 

C TOTAL  SUM  OF  NUM(  ) OVER  ALL  REGIONS 


C INITIALIZE  VARIABLES 

SUM  * 0.0 
TOTAL  =0.0 

DO  50  L = 1,  MAXREG 
PSIG2 (L)  =0.0 
NUM(L)  = 0 
50  CONTINUE 

DO  100  L ■ 1,  NUMREG 
DO  150  J = 0,  NSETS 
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150 

100 


NUM(L)  **  NUM(L)  + NP(J,L) 
CONTINUE 

NUM(L)  = NUM(L)  - 1 
TOTAL  «=  TOTAL  + NUM(L) 
CONTINUE 


00  PSIG2  (L)  ^L^0-  1.0)  * MCHAT  ( 2 , L ) **  2 

SUM  = SUM  + PSIG2(L)  * NUM(L) 

200  CONTINUE 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'LAMN  * LAMN 

DO  300  L m 1,  NUMREG  4 

SSSIS;:! 

300  WRITE  ) 'TOTAL  " TOTAL,  ' SOM  - SUM 
ENDIF 


, PSIG2 (L) 


PVAR  - SUM  / FLOAT  (TOTAL) 

RETURN 

END 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KNOTOjEDGE  <»»  BOTH 
M AND  CO  WITH  THE  95%  CONFIDENCE  INTERVALS  ( JZEROFROMINTOVL 
TO  OBTAIN  POSTERIOR  CREDIBILITY  RANGES  ON  M FOR  EACH  REGION 

PROGRAMMER:  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

MATGRM  V4)  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 

& MCHAT,  RANGEM) 

INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

OUTPUTS:  RANGEM 

SUBPROGRAMS : TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  = 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  MCPNT (MAXREG) , MPNT (MAXREG) , NUMREG 


REAL 


JZERO ( 2 , MAXREG),  LOWER,  MC(2,  MAXREG ),  MCHAT ( 2 , MAXREG), 
MZERO(2,  MAXREG),  RANGEM (2 , MAXREG),  UPPER 


IOUT 
JZERO ( ) 

L 

LOWER 

MAXREG 

MC<) 


MCHAT ( ) 


LIST  OF  VARIABLES 

^^RAYCONTAINI^JO,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
LOWER  BOUND  OF  INTERSECTION 

RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  TIE  DATA 
MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 

BOUND  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT  (1 , L ) = - DD  (L ) ' SJIMATE 

FOR  M AND  MCHAT ( 2 , L ) = SUHAT,  THE  ESTIMATE  FOR  C 
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C MCPNT ( ) 

C 

C MPNT( ) 

C 

C MZERO( ) 

C 

c 

C NUMREG 
C RANGEM() 
C 
C 

C UPPER 


1,  OR  2,  IN 
1,  OR  2,  IN 


1-D  ARRAY  CONTAINING  THE  NUMBER  OP  POINTS,  0, 

MC()  FOR  EACH  REGION  „ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0, 

MZERO  ( ) FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACHREGION  — MZERO  ( 1,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  

NUMBER  OF  REGIONS  OF  INTEREST  „ „ 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEMf  1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 


DO  50  L “ 1,  MAXREG 


RANGEM(1,L)  - 0.0 
RANGEM(2,L)  - 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 
DO  100  L “ 1,  NUMREG 


C 

c 


& 

& 


c 

c 


c 

c 


IF  (IOUT  .EQ.  10)  THEN 
WRITE  ( 8 , * ) 'L  - ' , L, 
,*)  »I- — 


WRITE (8 
END  IF 


'MPNT 


' NUMREG 
MPNT(L) , 


',  NUMREG 
MCPNT  - ' 


IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L) 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  Jo 


MCPNT(L) 
EQ.  0))  THEN 


RANGEM( 1,L)  - 
RANGEM ( 2, L)  - 

IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

END  IF 

ELSE IF  ( (MPNT(L) 


JZEROf 1,L) 
JZERO(2,L) 

10)  THEN 
'RANGEMf 1,L) 

' JZERO(l.L)  > 
•RANGEM(2,L) 

’ JZERO(2,L)  > 


RANGEM( 1,L) , 
',  JZERO( 1 , L ) 

',  RANGEM ( 2, L) , 
',  JZERO(2,L) 


.EQ.  0)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 


NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A LOWER  BOUND  ON  M DUE 
TO  Co,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 


LOWER 
UPPER 
IF  (UPPER 

WRITE (8,  *)  '1 

TRMNAT 


AMAXl ( JZERO( 1,L) , MC(1,L)) 

JZER0  ( 2 , L ) 

“ LT.  LOWER)  THEN  „ „ , 

ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Mc‘ 

CALL 
ELSE 

RANGEM( 1,L)  - LOWER 
RANGEM ( 2 , L ) - UPPER 
ENDIF 

IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' JZERO( 1,L 


WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 

ELSE IF  ( (MPNT(L) 


JZERO(2 
’MC(1,L) 
•LOWER 


:£! 


JZERO(l,L), 
, JZERO(2,L) 


LOWER,  ' UPPER 
RANGEM ( 1, 
RANGEM  2, 


RANGEM ( 2 , 


lAman  — , . 

RANGEM ( 1,L)  “ ',  RANGEM(1,L) 
,L)  - ',  RANGEM ( 2 , L ) 


UPPER 


.EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 


THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANGE 
CORRESPONDING  TO  THE  Co  CONSTRAINT,  ADJUST  Jo  ACCORDINGLY 

LOWER  - AMAXl (JZERO(l,L),  MC(1,L)) 
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non 


UPPER 
IF  (U 


CALL  TRMNAT 
ELSE 

RANGEMf 1,L)  = LOWER 
RANGEM(2,L)  * UPPER 
ENDIF 


2, Li,  MC(2,L) ) 

1 1 pputnj 

!:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 


IF  l IOUT  ,£0.  10)  THEN  _ „ _ v 


MC(2,L) 


WRITE (8,*)  'RANGEMf 1, Li 
’ RANGEM(2,L) 


RANGEMf 1, Li, 
RANGEMf 2 ,L) 


ENDIF 


ELSEIF  (MPNT(L)  .EQ.  1)  THEN 


THERE  IS  A POINT  PRIOR  on  m “ THIS  O^RMDESALL  OTTOR 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEMf 1,L) 
RANGEMf 2, L) 


MZEROf 1,L) 

0.0 


IF  (IOUT  .EQ.  10)  THEN 

WRITE  ( 8 , * i ' MZERO ( 1 , L ) = 
WRITE ( 8 , * ) 'RANGEMf 1,L) 
RANGEM(2,L) 


ENDIF 


’,  MZEROf 1,L) 

RANGEMf 1,L) , 
RANGEMf 2 ,L) 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT 
USE  INTERSECTION  BETWEEN  JO  AND  Mo 

LOWER  - AMAXlf JZEROf 1,L) , MZEROf 1,L)  ) 

UPPER  * AMINlf JZEROf 2, L),  MZEROf 2, L) ) 

IF  NO  INTERSECTION  BETWEEN  Jo  AND  MW 

CALL  TRMNAT 
ELSE 

RANGEMf 1,L)  - LOWER 
RANGEMf 2, L)  * UPPER 
ENDIF 

IF  (IOUT  .EQ.  10)  THEN  T, 

WRITE ( 8 , * ) ' JZERO ( 1 , L ) = , JZERO  ll,L  , 


' JZEROf 2 ,L)  = JZEROf 2 , Li 
WRITE ( 8 , * ) 'MZEROf 1, Li  = ',  MZ|RO  l,Li, 

' MZERO(2,L)  = ',  MZER0(2,L) 
WRITE ( 8 . * ) 9 LOWER  * ' , LOWER,  ' UPPER  — 

SSira  8 * 'RANGEMf  1 ,L)  - ' , RANGEM ( 1 r L T 
' ' RANGEMf 2 , L)  « \ RANGEM ( 2 , L ) 

ENDIF 


UPPER 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

TWERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  __ 
CONSTRAINT,  INTERSECT  Jo  AND  Mo,  ADJUSTING  THE  LOWER  BOUND 
BY  MC  ACCORDINGLY 

LOWER  * AMAXlf JZEROf 1,L) , MZEROf 1,L) , MC(1,L)) 


UPPER  = AMIN 1 ( JZEROf 2 , Li , MZERO(2,L) 
IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  ' ERROR:  NO  INTERSECTI 


'AND  Me 9 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  = LOWER 
RANGEM(2,L)  = UPPER 
ENDIF 


INTERSECTION  BETWEEN  Jo,  Mo,  ' , 
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IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
' JZERO  ( 1, L) 

' JZERO(2,L) 
'MZERO( 1,L) 

' MZERO? 2, L) 
'MC(1,L)  - ' 
'LOWER  “ ', 
'RANEGM(1,L) 
' RANGEM(2,L) 


JZERO( 1,L)  | 
JZERO? 2, L) 


- MZERO ( 1,L) . 

- * MZERO?2,L) 

, MC(1,L) 

LOWER.  ' UPPER  « ' , 

- RANGEM ( 1,L) , 

- RANGEM(2,L) 


UPPER 


ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (HCPNT(L)  .EQ.  2))  THEN 

C THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 

C INTERSECT  THESE  TWO  RANGES  WITH  JO 


LOWER 

UPPER  

IF  (UPPER  .LT. 
WRITE(8, *) 


AMAX1 (JZERO ( 1,L) , MZERO(l,L),  MC  1,L)) 
AMIN1(JZE1W]2,L);  MZERO(2,L),  MC?  2,L) ) 

“ — LOWER)  THEN  

ERROR:  NO  INTERSECTION  BETWEEN 

AND  Me' 


CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L ) - LOWER 
RANGEM ( 2 , L ) - UPPER 
ENDIF 


Jo, 


MO, 


f 


& 

& 


& 


IF 


(IOUT  .EQ. 
WRITE ( 8 * * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * 
WRITE ( 8 , * 
WRITE ( 8 r * 


ENDIF 


10)  THEN 
' JZERO(l,L 
r JZERO 
9 MZERO 
’ MZERO 

, 

' RANGEM ( 1,L) 
’ RANGEM ( 2, L) 


2, L) 

i'L 

2,L) 


- ',  JZERO ( 1,L) , 

- ',  JZERO(2,L) 

- ',  MZERO? 1 , L) , 
» ',  MZERO? 2, L) 

, MC(1,L) 

LOWER,  ' UPPER  ■ 
',  RANGEM ( 1,L) 
',  RANGEM ( 2, L) 


UPPER 


ELSE 

WRITE (8,*)  'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 

CALL  TRMNAT 


ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  « AMAXl (RANGEM( 1,L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'RANGEM( 1,L)  - ',  RANGEM( 1,L) 
100  CONTINUE 


C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 


DO  300  L - 1,  NUMREG 


& 

& 

& 


IF  ( (MCHAT(1,L 
.OR.  (Mcr 
WRITE ( 8 , * ) 


& 


LT.  RANGEM ( 1 , L) ) 

T ( 1 , L ) .GT.  RANGEM ( 2, L) ) ) 
NOTE:  E(m)  IS  NOT  IN  THE 
ON  m IN  REGION  ’,  L 


POSTERIOR  RANGE 


t 


300  CONTINUE 


RETURN 

END 


C** ************* 
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c 

c 

c 

c 

c 

c 


SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  FOR  REGIONS 


WITHOUT  DATA 
PROGRAMMER: 
DATE: 
VERSION: 


L.  NEWLIN 
CODE:  2FEB88 

MATCHR  V6.1,  V6.2 
V8.4,  V8.5 
MATGRM  V4f  V4.1, 


FORMAT /COMMENTS:  12AUG91 

, V7 , V7.1,  V8,  V8. 1,  V8.2, 

V4«2,  V4.3,  V4 . 4,  V4.5 


V8.3, 


SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT , NUMREG,  MZERO,  MPNT) 


C INPUTS:  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

C OUTPUTS:  RANGEM,  MCHAT,  NUMREG 


C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  LL,  MPNT ( MAXREG ) , NNODAT,  NUMREG 

REAL  MCHAT ( 2 , MAXREG),  MZERO(2,  MAXREG),  RANGEM(2,  MAXREG) 


C 

C 

C IOUT 
C L 
C LL 
C MAXREG 
C MCHAT  ( ) 

C 

C 

c 

C MPNT< ) 

C 

C MZERO ( ) 

C 

C 

C NNODAT 
C NUMREG 
C RANGEM ( ) 
C 
C 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT  ( 1 , L ) - - DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L ) - SUHAT,  THE  ESTIMATE  FOR  C 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

2- I^ARRa£  KSnSs  OF  THE  PRIOR  RANGES  ON  M FOR 
LcHTOGlSi^  ~ SeRO(1TlT  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATs  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST  M 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM  ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 


IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'NUMREG  , NUMREG 


DO  100  L * 1,  NNODAT 
NUMREG  « NUMREG  + 1 
LL  - NUMREG 


& 

& 


IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'L  , L, 

5 LL  LL,  ' MPNT(LL)  , MPNT (LL) 

( (MPNT(LL) 

POSTERIOR  < 


NUMREG 


NUMREG, 


,EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 

ON  M IS  SAME  AS  PRIOR  ON  M 

RANGEM ( 1,LL)  ■ MZERO(l,LL) 

RANGEM(2,LLi  =^M2ERO(2 ,LL) 

'rLjGEM(1,LL) 

' MZERO ( 1,LL) 

' RANGEM ( 2, LL) 

' MZERO(2,LL) 


IF  (IOUT  .E<). 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 


RANGEM ( 1 , LL ) , 
, MZERO ( 1 , LL ) 
RANGEM ( 2 , LL ) , 
, MZERO ( 2 , LL ) 


ENDIF 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 


IF  ( RANGEM  ( 2 , LL ) 
MCHAT ( 1,LL)  = 
ELSE 


.EQ.  0.0)  THEN 
RANGEM ( 1,LL) 
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MCHAT ( 1 , Ui ) « ( RANGEM ( 1,LL)  + RANGEM  ( 2 , LL ) ) / 2.0 
KNDXF 

IF  ( I OUT  .EQ.  10)  WRITE(8,*)  'MCHAT  MCHAT ( 1 , LL ) 

^ ^ WRITE ( 8 , * ) 'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY 

& ' 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
END  IF 
100  CONTINUE 


RETURN 

END 


c****** ********* 


SUBROUTINE  CONCAV  ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
RANGES  ON  M TO  BE  CONSISTENT  WITH  CONCAVITY  CONSTRAINTS 

PROGRAMMER:  L.  NEWLIN  

DATE:  2FEB88  FORMAT/COMMENTS:  15SEP89 

VERSION:  MATCHR  V6.1,  V6.2,  V7 , V7.1,  V8f  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4f  V4.5 
SUBROUTINE  CONCAV  (NUMREG,  RANGEM) 


INPUTS:  NUMREG,  RANGEM 

OUTPUTS : RANGEM 

SUBPROGRAMS : TRMNAT 


IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  RANGEM ( 2 , MAXREG),  TESTM 


IOUT 

L 

MAXREG 
NUMREG 
RANGEM ( ) 

TESTM 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

NUMBER  OF  REGIONS  OF  INTEREST  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 


RANGEM(2,L)  IS  THE  UPPER  BOUND 
UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-l 
CONCAVITY  ADJUSTMENT 


USED  DURING 


ADJUST  RANGE  TO  INSURE  CONCAVITY 

DO  100  L « NUMREG,  2,  -1 

IF  (RANGEM (2, L-l)  .EQ.  0.0)  THEN 

RANGE  IS  A POINT  IN  REGION  L-l  „ 

IF  ( RANGEM ( 1 , L- 1 ) .GT.  AMAXl ( RANGEM (1,L) , RANGEM (2, L) ) ) THEN 
WRITE ( 8 , * ) 'ERROR:  POSTERIOR  INTERVAL  IN  REGION  ' , L, 

j,  ' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGION  ' ,L-1 

CALL  TRMNAT 
ENDIF 
ELSE 

RANGE  IS  AN  INTERVAL  IN  REGION  L-l 
TESTM  - AMAXl (RANGEM ( 1. L) , RANGEM ( 2, L) ) 

IF  (TESTM  .LT.  RANGEM ( 1 , L- 1 ) ) THEN 
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& 

& 


WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  XNgEGION', 

' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN 
'REGION  ’ , L— 1 
CALL  TRMNAT 

else 

RANGEM(2,L-1)  = AMINl ( RANGEM ( 2 , L- 1 ) , TESTM) 

ENDIF 


END  IF 


L, 

t 


& 

& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE(8,*) 

WRITE ( 8 f * ) 
ENDIF 


10)  THEN 
' RANGEM ( j.,. 
RANGEM  (2 


EM(1,L-1)  RANGEM( l.L-1) 

— A k - 1)  RANGEM ( 2 r L- 1 


' RANGEM ( 2f L- 1 ) RANGEM ( 2 , ] 

9 RANGEM ( 1 /L)  RANGEM(1,L), 

' RANGEM(2,L)  *' , RANGEM(2,L) 


'TESTM 


TESTM, 


) 


100  CONTINUE 


RETURN 

END 


IT****************** 


SUBROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  Co 

PROGRAMMER:  L.  NEWLIN  1rx„„0_ 

DATE:  CODE:  50CT87  COMMENTS:  1DEC87  , 

VERSION : MATCHR  V6 , V6 . 1 , V6 . 2 , V7 , V7 . 1 , V8 , V8 . 1 , V8 . 2 , V8 . 3 , 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 


INPUTS:  NUMREG,  RANGEM 

I OUTPUT:  MEDM 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  LOWERM,  MEDM ( MAXREG ) , RANGEM ( 2 , MAXREG) 


LIST  OF  VARIABLES 


IOUT 

L 

LOWERM 

MAXREG 
MEDM( ) 
NUMREG 
RANGEM ( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION  

[,ameb  BOUND  OF  M RANGE  (DUE  TO  CONCAVITY  CONSIDERATION) 

TO  BE  USED  IN  MEDIAN  CALCULATION 

maximum  number  of  regions  allowed  _ 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 

NUMBER  OF  REGIONS  OF  INTEREST  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 


C INITIALIZE  ARRAY  MEDM 

DO  50  L * 1,  MAXREG 
MEDM < L ) =0.0 
50  CONTINUE 
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c 


BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L - 1,  NUMREG 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT 
HEDM(L)  - RANGEM( 1,L) 

ELSE  IF  (L  .EQ.  1)  THEN 


WE  ARE  IN  REGION  ONE  — - NOT  AFFECTED  BY  OTHER  REGIONS 
MEDIAN  WILL  JUST  BE  AVERAGE  OF  RANGEM  VALUES 

MEDM(L)  - (RANGEM( 1,L)  + RANGEM(2,L))  / 2.0 

ELSE 


MUST  TAKE  MEDIAN  OF  REGION  L-l  INTO  ACCOUNT 


LOWERM  » 
MEDM(L) 


AMAXl ( RANGEM (1,L) , MEDM(L-l) ) 
LOWERM  + RANGEM ( 2, L) ) / 2.0 


ENDIF 


IF  ( IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
ENDIF 


100  CONTINUE 


10)  THEN 
'L  m 9 L 9 
'RANGEM(l'L) 
RANGEM ( 2, L) 
'LOWERM  - 


NUMREG 


NUMREG 


RANGEM(1,L 
- ',  RANGEM ( 2 , L 
LOWERM,  ' MEDM( 


:£!• 

M(L) 


RETURN 

END 


MEDM(L) 


C SUBROUTINE  EXPCTD  CALCULATES  THE  EXPECTED  OR  MEDIAN  VALUES  OF  THE  S/N 
C CURVE  PARAMETERS 

C PROGRAMMERS  L.  NEWLIN  „ 

C DATE:  CODE:  13FEB89  FORMAT/COMMENTS:  15SEP89 

C VERSION:  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

Q 

c copyright  (C)  1990,  California  institute  of  Technology, 
c u.S.  Government  sponsorship  under  NASA  contract  NAS7— 918 
c is  acknowledged. 

SUBROUTINE  EXPCTD  (NCOMPS,  MEDM,  NPTS.  STR,  NF,  SZERO,  NUMREG, 
t ZROREG,  NBND,  BIGKl,  BZHAT) 

C INPUTS:  NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

C OUTPUTS:  BIGKl,  BZHAT  

C SUBPROGRAMS:  TRNSFM,  SMNVAR,  KB ETA,  FINDK,  FINDSB,  KOMO 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NCOMPS,  NP,  NPTS (MAXREG) , NUMREG,  ZROREG 

REAL  BIGK(0:MAXREG),  BIGKl.  BZHAT,  FACTO,  KHAT,  MEANZ, 

& MEDM ( MAXREG ) , MM(0: MAXREG) , NBND ( 0 : MAXREG ) , 
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& 

& 


MAXREG), 


BIGK( ) 

BIGKl 

BZHAT 

FACTR 

I OUT 

KHAT 

L 

MAXDAT 
MAXREG 
MEANZ 
MEDM(  ) 
MM( ) 
NBND  ( ) 

NCOMPS 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NF() 

NP 

NPTS() 

NUMREG 
SBND( ) 


STR( ) 

SZ2 
SZERO 
TRBIGK( ) 

ZROREG 

ZZ() 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K **  M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

A ( SCALE } FACTOR  = PHI  * KRATIO  * Z 
OUTPUT  DUMP  CONTROLLER 

lii^N^I^Sr^lSfraS/^DATA  SET  (PER  REGION)  ALLOWED 

2££KKf  * F(STR,  NF^  K'l^ioN 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

NnSh2r°of  C«IPo™^ST—  1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  — 2 FOR  DECOMPOSED  s»TRAIN  DATA 

2- DAARRAY  CONTAINING  RAWNFO  (CYCLES  TO  THE 

ewrTffTr  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 

1 - DDARRAYECONTAIN ING  NUMBER  OF  POINTS  in  each  region  for 

THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 1 a, 

hi& 

2- D0AraMEC0OTMNlSi*RATSTBn  F<*_™?_S^CIFIC  MATERZAL  S,  N 

!Tg*S“§Sll^P^  « K.  IN  THIS  ROUTINE 

®jg£a^”s:«ss, 


C INITIALIZE  VARIABLES 


DO  50  L = 0,  MAXREG 
MM(L)  =0.0 
50  CONTINUE 

C CREATE  MM( ) ARRAY  FROM  MEDM( ) ARRAY 


DO  100  L 
MM(L) 
100  CONTINUE 


1,  NUMREG 
MEDM(L) 


C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF , NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C CALCULATE  BETAO  AND  k 

CALL  KBETA  (MEANZ,  SZ2,  KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A = K **  M FOR  EACH  REGION 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 


BIGKl  = BIGK ( 1 ) 
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C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND ) 

C CALCULATE  Ko  AND  Ho  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 

DO  150  L - ZROREG,  NUMREG 
TRBIGK(L)  - BIGK(L) 

150  CONTINUE 

IF  (ZROREG  .EQ.  0)  THEN 
FACTR  ■10 

CALL  KOMO* (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK, 
f,  FACTR,  NUMREG) 

ENDIF 

C WRITE  RESULTS  TO  FILE 

IF  (NCOMPS  .EQ.  1)  THEN 


WRITE(7, 900)  NUMREG,  BZHAT,  KHAT 

IF  (IOOT  .EQ.  10)  WRITE(8,»00)  NUMREG,  BZHAT,  KHAT 
DO  200  L - ZROREG,  NUMREG  _ 

t,  ' NBND(L) , SBND(L) 

200  CONTINUE 

WRITE(7, 920) 

ELSE 

WRITE(7,930)  MM(1),  BIGK(l),  KHAT 
ENDIF 

C FORMAT  STATEMENTS 

900  FORMAT( ///, 2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE' ,//,2X, 

V 'NUMBER  OF  REGIONS : ' , 14 , 5X, ' E ( BETAo)  -' ,F8.4, 5X, 'E(k)  *' 

& F8. 4, //,2X, 'REGION', 7X,'m',15X,'K',9X, 'LIFE  BOUND', 7X, 

& 'STRESS  BOUND',/) 

910  FORMAT( 5X, II, 5X,F9 . 5, 5X,E12 .5, 5X,E9 .3,9X,E11.5) 

920  FORMAT (III) 

930  FORMAT (//,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE', 

& //, 11X, 'm' ,14X, 'K' ,13X, 'E(k) ' , 

i //'7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


C 


C 

C 

c 

c 

c 

c 


SUBROUTINE  MUSIG  CALCULATES  THE  POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS! 
MEAN,  MU,  AND  STANDARD  DEVIATION,  SIG;  FOR  EACH  REGION 

PROGRAMMER:  L.  NEWLIN  „ 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA, 
4 MO,  SIGMA2,  MCHAT,  MU,  SIG) 


C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO,  SIGMA2 

C OUTPUTS:  MCHAT,  MU,  SIG 
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IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG,  NPPR(MAXREG) 
BEAL 


fc 

& 


MAXREG), 

MAXREG) , 


ARG 

de£1a( 


I OUT 
L 

MAXREG 
MCHAT ( ) 


MO(  ) 

MU() 

NPPR( ) 

NUMREG 

SIG() 

SIGMA2 ( ) 

SUHAT2 ( ) 

SUMX2 
SHHAT2 ( ) 


, FOR  EACH  REGION 
tlPLIER  USED  IN  MU( ) AND 


SX2  ( ) 


LIST  OF  VARIABLES 

INTERMEDIATE  CALCULATION  VARIABLE 
1-D  ARRAY  CONTAINING  SXYJL ) /SX2  (L) 

1—  D ARRAY  CONTAINING  BAYESIAN  MULtI 
SIG( ) CALCULATION 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGION  ALLCWED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OFM  AND  C 
EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — BTCHAT(1,L) 

- DD(L) , THE  ESTIMATE  FOR  M AND  MCHAT(2,L)  * SUHAT, 

l-D^RRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION  

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION  , ,v  , , 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )T1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUMBER  OF  REGIONS  OF  INTEREST  

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  „ 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  * Ln  S,  Y “ Ln  N) 

EQUAL  TO  NPPR( ) * SX2 ( ) FOR  A PARTICULAR  REGION 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  v 
REGRESSION  FOR  EACH  REGION  (X  ■ J Ln  S,  Yj - Ln N) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH 
(X  * Ln  S) 


ION 


C INITALIZE  ARRAYS 

DO  50  L * 1,  MAXREG 
MCHAT (1,L)  - 0.0 
MCHAT ( 2 , L ) - 0.0 
■ 0.0 
) * 0.0 

50  CONTINUE 

C BEGIN  CALCULATION  FOR  EACH  REGION 

DO  100  L * 1 , NUMREG 


MU(L) 

SIG(L 


MCHAT ( 1,L)  - - DD(L) 

MCHAT ( 2, L)  * SQRT  (SUHAT2(L)) 
SUMX2  = NPPR(L)  * SX2 (L) 

ARG  - SUMX2  + DELTA (L) 


IF  (DELTA(L)  .EQ.  0.0) 
C THEN  NO  PRIOR  VALUE 

C USE  THE  ESTIMATE  OF 

MU(L)  “ MCHAT ( 1,L) 
ELSE 

C UPDATE  THE  ESTIMATE 

MU(L)  * (MCHAT( 1,L) 
END  IF 


THEN 

OF  THE  MEAN  WAS  SUPPLIED 
M 


OF  M WITH  MO  USING  DELTA 
* SUMX2  + MO(L)  * DELTA(L) ) / ARG 


7-303 


nooooonooononon 


c 

c 


IF  VAPIMCP  WAS  SUPPLIED 

USE  SWHAT2  AS  AN  ESTIMATE  OF  SIGMA-HAT-2 
SIG(L)  “ SQRT  (SWHAT2  (L)  / ARG) 

ELSE 

SIG(L)  * SQRT  (SIGMA2 (L)  / ARG) 

ENDIF 


& 

& 

& 


& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE(8,*) 

ENDIF 


10)  THEN 
'L  - L 


i-»  — f 

MCHAT^lpL) 


* MCHAT1  - 
MCHAT2  - 
. ',  SX2(L), 

OUnAA  “ / wwrui* 

'DELTA  - DELTA (L) , ' ARG  - ' , ARG 

'MO  - ' , MO(L) , ' MO  - ' , HBW,  , 

' SWHAT2  - ',  SWHAT2 (L) , ' SIGMA2  - 
SIG  » SIG(L) 


DD  - DD(L) , 

' SUHAT2  - SUHAT2 (L) , ' 

MCHAT(2,L) 

'NPPR  - NPPR(L),  * SX2  ■ 
SUMX2  - SUMX2 


SIGMA2 (L) 


» 


100  CONTINUE 


RETURN 

END 


C 

C 

c 

c 

c 

c 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 


ON  BOTH  M AND  CO  TO 


PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 
CODE:  10FEB88 

MATCHR  V7,  V7.1, 
MATGRM  V4,  V4.1, 


FORMAT /COMMENTS:  12AUG91 

V8,  V8.1,  V8.2,  V8.3,  V8.4, 
V4.2,  V4.3,  V4.4,  V4.5 


V8.5 


SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 


C INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 

C OUTPUTS:  RANGEM 

C SUBPROGRAMS : TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  MCPNT ( MAXREG ) , MPNT (MAXREG)  , NUMREG 

REAL  LOWER,  MC(2,  MAXREG) , MCHAT (2,  MAXREG),  MZERO(2,  MAXREG), 
& RANGEM ( 2 , MAXREG),  UPPER 


LIST  OF  VARIABLES 


IOUT 

L 

LOWER 

MAXREG 

MC<) 


MCHAT ( ) 
MCPNT ( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
LOWER  BOUND  OF  INTERSECTION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 

MC ( 1 ,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 

BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 

...  J T \ mu  L*  POiPTlIKnTr 


FOR  EACH'REGION~--  MCHATfl^L)  « - D^L),  THE  ESTIMATE 
FOR  M AND  MCHAT ( 2 ,L ) - SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC()  FOR  EACH  REGION 
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MPNT( ) 
MZERO ( ) 

NUMREG 
RAN GEM ( ) 

UPPER 


1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

2 Ibarra!  containing^alues  of  the  prior  ranges  on  m for 

- MZERoTl , L ) IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
is  THE  UPPER  BOUND  

NUMBER  OF  REGIONS  OF  INTEREST  M 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
PLEACH REGION^ ~ RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


INITIALIZE  VARIABLES 
DO  50  L * 1,  MAXREG 


RANGEMf 1,L)  - 0.0 
RANGEMf2,L)  - 0.0 
50  CONTINUE 

PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 
DO  100  L * 1,  NUMREG 


C 

C 


& 

& 


c 

c 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'L  - L, 

'I 


WRITE (8 
END  IF 


' MPNT 


' NUMREG 
MPNT(L), 


NUMREG 
MCPNT  - 


MCPNT(L) 


IF  (MPNT(L)  .EQ.  1)  THEN 


THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATIONS  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEMf 1,L) 
RANGEM<2,L) 


MZERO ( 1,L) 

0.0 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' MZERO ( 1 , L ) 

WRITE (8,*)  'RANGEMf 1,L 


RANGEMf 2 


»L) 

,L) 


MZEROf 1,L) 

, RANGEMf 1,L), 
, RANGEM  2,L) 


ENDIF 

ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT  USE  MO 


RANGEMf 1,L) 
RANGEMf 2, L) 


MZERO ( 1 , L ) 
MZERO f 2 , L ) 


IF  (IOUT  .EQ.  10)  THEN 
WRITE (8,*)  ' MZERO f 1 , L 

' MZEROf 2. L 
WRITE (8,*)  'RANGEMf! 

' RANGEMf 2 

ENDIF 


a : 

■i 


MZEROf 1,L), 
MZEROf 2, L) 


, RANGEMf 1,L 
' RANGEMf 2 “ 


»!•) 


ELSEIF  ((MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  MO  BY  MC 

LOWER  - AMAX1 ( MZERO ( 1, L) , MC(1,L)) 

UPPER  = MZERO( 2 ,L)  

IF  WMTE^8**T"  'ERROR:  TNON INTERSECTION  BETWEEN  MO  AND  Me  ‘ 
CALL  TRMNAT 
ELSE 


51 : 


LOWER 

UPPER 


RANGEMf 1,L 
RANGEMf 2 
ENDIF 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' MZERO ( 1 ,L) 
' MZEROf 2, L) 
WRITE ( 8 , * ) 'MC( 1,L)  = 


MZEROf 1,L), 
MZEROf 2, L) 


MC( 1,L) 
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c 

c 


WRITE  | 

[8,*) 

'LOWER  ■ ', 

LOWER,  ' UPPER  » ' , UPPER 

WRITE  i 

[8,*) 

'RANEGM(1,L] 

> - RANGEM(1,L), 

fc 

' RANGEM(2»I*! 

- ',  RANGEM(2,L) 

END  IF 


ELSEIF  ( (MFNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 


LOWER  - AMAXl(MZERO(l,L),  MC(1,L)) 
UPPER  - AMIN1 (MZERO( 2 ,L),  MC(2,L) ) 
IF  (UPPER  .LT.  LOWER) 

WRITE(8,*)  'ERRORS 
CALL  TRMNAT 

else 

RANGEM(1,L)  - LOWER 
RANGEH(2,L)  * UPPER 
END  IF 


then 

NO  INTERSECTION  BETWEEN  Mo  AND  Me' 


& 


& 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * 
WRITE  8 , * 
WRITE ( 8 , * 

ENDIF 


10)  THEN 
'MZERO( 1,L 
’ MZERO(2,L 
'MCQ.L) 
'LOWER  » , 

'RANGEM(1,L) 
’ RANGEM ( 2 , L ) 


) - ',  MZERO( 1,L) , 

) - ',  MZERO(2,L) 

',  MC( 1,L) 

LOWER,  ' UPPER  - ', 
',  RANGEM ( 1,L) , 
',  RANGEM ( 2 , L) 


UPPER 


ELSE 

WRITE ( 8 , * ) 'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 

CALL  TRMNAT 


ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  - AMAX 1( RANGEM ( 1,L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)  ' RANGEM ( 1,L)  - RANGEM(1,L) 
100  CONTINUE 


CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 
DO  300  L ■ 1,  NUMREG 


& 

& 


IF  ( (MCHAT( 1,L)  .LT.  RANGEM ( 1 , L) ) 

" “ (MCHAT( 1,L)  .GT.  RANGEM (2,L 


.OR.  , . . 

WRITE (8,*)  'NOTE 


E(m)  IS  NOT  IN 


ON  Bl  IN  REGION 


POSTERIOR  RANGE 


300  CONTINUE 


RETURN 

END 


C 

C 

c 

c 

c 

c 


SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  M RANGES  AND  NORMAL 
)I STRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 
PROGRAMMER:  L-  NEWLIN  , , 

DATE:  CODE:  10FEB88  FORMAT /COMMENTS:  12AUG91 

VERSION:  MATCHR  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG, 
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c 

c 

c 


& 

MZERO, 

MPNT 

INPUTS: 

RANGEM, 

MCHAT, 

MU, 

SIG, 

MO,  SIGMA2 

SIG, 

OUTPUTS: 

RANGEM, 

MCHAT, 

MU, 

IMPLICIT  NONE 
INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  LL,  MPNT ( MAXREG ) , NNODAT,  NUMREG 
REAL 


& 

& 


MCHAT ( 2 , MAXREG),  MO< 
MZERO(2,  MAXREG), 
SIGMA2  (MAXREG) 


MU(ruuuu*v9i  , 

),  SIG(MAXREG), 


IOUT 

L 

LL 

MAXREG 
MCHAT () 


HO(  ) 
MPNT( ) 
MU<) 
MZERO() 


NNODAT 
NUMREG 
RANGEM( ) 


SIG() 
SIGMA2 ( ) 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  «!LY  — 

MCHAT ( 1 , L ) - - DD(L) , THE  ESTIMATE  FOR  M AND 

1 -I^ARRAY ' CONTAINING * VALUeI^^THE  PRIOR  NORMAL  DISTRIBUTION 

1-DE^RMRCWTAINING0THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO<)  FOR  EACH  REGION  , . n 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  HEGION 

o n ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACHOTGION  — ffiEROOiL)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 

Number^of^^DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST  , M 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  P^TmiOTt  RAWSES  ON  M 

FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND  M«t>uaT 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NO^AL 

DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION  ______ ______ 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 


IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'NUMREG  NUMREG 


DO  100  L = 1,  NNODAT 
NUMREG  = NUMREG  + 1 
LL  = NUMREG 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 
& ' LL  =',  LL,  ' MPNT(LL)  - 


& 

& 


'L  L, 

, MPNT(LL) 


NUMREG 


NUMREG, 


IF  ( (MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR*  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM ( 1,LL)  = MZEROf 1,LL> 

RANGEM (2 ,LL)  ■ MZERO(2,LL) 

MU (LL)  - MO(LL) 

SIG(LL)  - SQRT(SIGMA2(LL) ) 

IF  (IOUT  .EQ.  10)  THEN  , 

WRITE(8,*)  'RANGEM(1,LL)  =' , RANGEM (1,LL) , 

' ' MZERO( 1 , LL ) » ',  MZEROl,LL 

WRITE (8,*)  'RANGEM(2,LL)  «' , RANGEM(2,LL)  , 

' , , f ^ '2 Vl  « MZERO(2,LL) 

WRITE(8,*)  'MU(LL)  * ',  MU(LL) , ' MO(fiL)  * ',  MO(IL) 
WRITE ( 8 , * ) 'SIG(LL)  * ',  SlG(LL),  ' SIGMA2(LL)  * , 

SIGMA2(LL) 
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c 

c 


ENDIF 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 


& 


IF  (RANGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT(l.LL)  - RANGEM(1,LL) 

MU(LL)  - RANGEM( 1,LL) 

SIG(LL)  « 0.0 

prer 

MCHAT ( 1 , LL ) » ( RANGEM ( 1 , LL ) + RANGEM ( 2 , LL ) ) / 2.0 
ENDIF 

IF  (IOUT  .EQ.  10)  WRITE (8,*)  'MCHAT-',  MCHAT(1,LL) , 
' MU  — ' , MU  (III) , ' SIG  - SIG(LL) 


ELSE 

WRITE ( 8 , * ) 

& 


CALL  TRMNAT 
ENDIF 
100  CONTINUE 


r ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY 

'SPECIFIED  IN  REGION  WITHOUT  DATA' 


f 


RETURN 

END 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  PAREST  CONTROLS  THE  CALCULATIONS  FOR  THE  PARAMETER 
ESTIMATION  MOC^  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 


PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 
CODE:  13FEB89 

MATCHR  V8 .3,  V8.4, 
MATGRM  V4.3,  V4.4, 


FORMAT /COMMENTS:  15SEP89 

V8.5  — FOR  USE  WITH  PFM'S 
V4.5 


copyright  (C)  1990,  California  Institute  of  Technology. 
U.S:  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  PAREST  (VARY,  RANGEM,  MU, 

* ZROREG,  RAND,  NBND 

* SBND) 


SIG,  NF,  NPTS,  NUMREG, 
, STR,  BIGK,  BZERO,  MM 


C 

C 

c 

c 


INPUTS:  VARY,  RANGEM,  MU,  SIG,  NF, 

NBND,  STR 

OUTPUTS:  BIGK,  BZERO,  MM,  SBND 

SUBPROGRAMS:  FINDM,  FINDMN,  TRNSFM, 


NPTS,  NUMREG,  ZROREG, 
SMNVAR,  KBETA,  FINDK, 


RAND, 


FINDS  B 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  * 50,  MAXREG  « 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NP,  NPTS  (MAXREG) , NUMREG,  VARY,  ZROREG 


RANGEM(2,  MAXREG),  SBND ( 0 :MAXREG) , S] 
& STR  (MAXDAT,  MAXREG),  SZ2,  ZZ  (MAXDAT) 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


BIGK  ( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A * K **  M FOR 

' 9 EACH  REGION 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 
IOUT  OUTPUT  DUMP  CONTROLLER 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


K 

L 

MAXDAT 
MAXREG 
MEANZ 
MM(  ) 

MU() 

NBND( ) 

NF() 

NP 

NPTS ( ) 

NUMREG 

RANGEM() 


RAND 
SBND( ) 


SIG() 

STR() 

SZ2 

VARY 


ZROREG 

ZZ() 


VALUE  OF  k PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL  DATA  BASE 

MAXIMU^ NUmro°OFFpOINTCHINES/NN DATA  SET  (PER  REGION)  ALLOWED 

?RA^FO^AmS^DZ  « F (STO,  OT,  OTN^MM) 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

FOR  THE  NUMREG 

2- DEARRAY  CONTMNINGTRAWNr(|  (CYCLES  TO  FAn.URE)  FOR  THE 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST  ^ ™ „ 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOREACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM(2,L)  IS  THE  UPPER  BOUND 

RANDOM  NUMBER  SEED  _ _ . 

^ OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 

STANDARD  DEVIATION  FOR  EACH  REGION  

2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PS I OR  %) 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F (STR, 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — — 0 — NO  VARIATION, 

1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION; 

3 - TRUNCATED  NORMAL  VARIATION  _ 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGIONTC_LOOP____ _ 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 — NO  ZERO  REGION 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z - F(STR,NF,NBND,MM) 


C OBTAIN  THE  VALUES  OF  M FOR  EACH  REGION 
IF  (VARY  .LE.  2)  THEN 

C UNIFORM  OR  NO  VARIATION  IN  M IS  DESIRED 

CALL  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 

ELSE 

C NORMAL  VARIATION  IN  M IS  DESIRED 

CALL  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 
ENDIF 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z * Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z « Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C CALCULATE  THE  VALUES  FOR  k AND  BETAO  FROM  THE  SAMPLE  MEAN 
C AND  VARIANCE 

CALL  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

C CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A = K **  M 
CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

C CALCULATE  STRESS  TIE-POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C WRITE  RESULTS  TO  FILE 
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c 


WRITE (7, 900)  HUHREG,  BZERO 


C 

C 

c 


DO  200  L - ZROREG,  NUMREG 
WRITE <7 ,910)  L,  MM(L) , 
200  CONTINUE 


BIGK(L) , 


NBND(L) , 


SBND(L) 


C WRITE(7,  920) 


C FORMAT  STATEMENTS 


RETURN 

END 


C 


C 

C 

C 

C 

C 

c 


SUBROUTINE  FINDM  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  M RANGE 

PROGRAMMER:  L.  NEWLIN  „„„ 

DATE:  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDM  (RAND,  NUMREG,  RANGEM,  MM) 


C INPUTS:  RAND,  NUMREG,  RANGEM 

C OUTPUTS:  MM 

C SUBPROGRAMS:  RANDOM,  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 
COMMON  I OUT 


INTEGER  I OUT,  L,  NUMREG 

REAL  MM( 0: MAXREG) , PICK(2),  RANGEM(2,  MAXREG),  X 


DOUBLE  PRECISION  RAND 


IOUT 

L 

MAXREG 
MM( ) 
NUMREG 
PICK() 
RAND 
RANGEM  ( ) 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST  

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 
RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 ,L)  IS  THE  UPPER  BOUND  

UNIFORM (0,1)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


C INITIALIZE  MM( ) 


7-310 


DO  50  L * 0,  MAXREG 
MM(HAXREG)  * 0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 

DO  100  L * 1 , NUMREG 

PICK(l)  =0.0 
PICK ( 2 ) =0.0 


C 

C 


C 

C 


IF 


(RANGEM(2,L)  .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 


IF^IOUT  .EQ.  io)  WRITE(8,*)  #RANGEM(1,L)  = '#  RANGEM(1,L), 

* MM(L)  ■'/  MM(L) 

ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

- RANGEM(1,L))  * X + RANGEM(1,L) 

IF  ( IOUT  .EQ.  10)  THEN 
WRI1 


• by  • -AVI  M 

ITE(8,*)  'RANGEM(I.L)  , RANGEM(l.L), 
1 ' RANGEM(i ,£)  «' , RANGEM(2,L) 

(8,*)  'L  L,  ' X X,  ' MM(L) 


MM(L) 


WRITE ( 

ENDIF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  - AMAXl (MM(L— 1 ) , RANGEM( 1,L)  ) 

PICK (2 ) ■ RANGEM ( 2 , L ) 

IF  (PICK(l)  .GT.  PICK(2) ) THEN 

NO  RANGE  EXISTS  — THIS  SHOULD  NOT  HE  POSSIBLE 
STOP  PROGRAM 

WRITE ( 8 , * ) 'IMPOSSIBLE  M RANGE  IN  REGION',  L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 

CALL  RANDOM  (X.  RAND)  

MM(L)  - (PICK(2)  - PICK(l))  * X + PICK(l) 

ENDIF  

10)  THEN 

'L  L,  ' MM(L-l)  MM(L-l), 

' RANGEM ( 1,L)  , RANGEM(1,L) 

'PICKfl)  PICK<1),  ' PICK(2)  PICK(2) 

' RANGEM ( 2, L)  . RANGEM ( 2, L) , ' X «' , X, 

' MM(L)  MM(L) 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * 


WRITE (8 


ENDIF 

ENDIF 

100  CONTINUE 

RETURN 

END 


Q+  ********** ******** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


rvwirxxvvvinnrwinnilH************^ 

SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 

Milas  R.  F. . The  RANDOM  Computer  Program:  A Linear  Congruential 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 

PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE  * 1DEC87 

VERSION;  MftTCHR  V4,  «,«.!,  W.2,  V|.3,  W, .Vi  U, 

MATGRM  V2 , V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 
********************** 
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SUBROUTINE  RANDOM  (FRAC,  RAND) 

IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I OUT 

REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANC, 
i RANT,  RANX 


RAND, 


RANDIV,  RANM, 


RAN SUB, 


C 


LIST  OF  VARIABLES 


FRAC  UNIFORM  (0,1)  RANDOM  VARIATE 

I OUT  OUTPUT  DUMP  CONTROLLER 

RANA  CONSTANT  FOR  LOG 

RANC  CONSTANT  FOR  LOG 

RAND  RANDOM  NUMBER  SEED 

RANDIV  INTERNAL  CALCULATION 

RANM  CONSTANT  FOR  LOG 

ransub  internal  calculation 

rant  INTERNAL  CALCULATION 

RANX  INTERNAL  CALCULATION 


C USING  LCG  RANDOM  # GENERATOR 

RANA  - 671093.0 
RANC  - 7090885.0 
RANM  - 33554432.0 

10  RANX  ■ RANA  * RAND  + RANC 
RANDIV  - RANX  / RANM 
RANT  - DINT (RANDIV) 

RANSUB  - RANT  * RANM 
RAND  - RANX  - RANSUB 
FRAC  - SNGL ( RAND  / RANM) 


IF  ((FRAC  .EQ.  0.0)  .0 
IF  ( I OUT  .EQ.  2)  WRITE 
& ' RANT  RANT,  ' 

6 ' FRAC  «' , FRAC 

RETURN 
END 

C NOTES:  IOUT“2  DUMPS  TO  SCREEN 


R.  (FRAC  .EQ.  1.0))  GOTO  10 

(8,*) 'RANX  »' , RANX,  ' RANDIV  «' , RANDIV, 

RANSUB  «' , RANSUB,  ' RAND  , RAND, 


********4 


c 

c 

c 

c 

c 

c 


SUBROUTINE  FINDMN  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  TRUNCATED  NORMAL  M DISTRIBUTION 
PROGRAMMER:  L.  NEWLIN  , , 

DATE:  CODE:  7JUN88  COMMENTS:  13FEB89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 


C INPUTS:  RAND,  NUMREG,  MU,  SIG,  RANGEM 

C OUTPUTS : MM 

C SUBPROGRAMS:  NORMGN,  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 
COMMON  I OUT 
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INTEGER  IOUT,  L,  NUMREG 

REAL  MM(OsMAXREG)  , MU ( HAXREG ) , PICK(2),  RANGEM(2,  MAXREG)  , 
& SIG(MAXREG),  X 

DOUBLE  PRECISION  RAND 


IOUT 

L 

MAXREG 

MMM 

NUMREG 
PICK() 
RAND 
RANGEM( ) 

SIG<) 

X 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

OF  M BREACH  REGION 

1-D  ARRAY  CONTAINING  THE  MEAN  OF  M FOR  EACH  REGION 

5SB5rS  WOTMNlSS  RANGE  ON  H TO  BE  SAMPLED  FROM 

2^D^ARRAY**COOTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
^ FOR^EACH  REGION  --  RANGEM(1.L)  IS  THE  LOWER  BOUND  AND 

1-DRARR^<COT'1'AININGE ThFItANDARD  DEVIATION  OF  M FOR  EACH 

NORMAL?MU, SIGMA)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


C INITIALIZE  MM( ) 

DO  50  L * 0,  MAXREG 
MM(MAXREG)  * 0.0 
50  CONTINUE 

C BEGIN  CALCULATIONS 

DO  100  L = 1 , NUMREG 


10 


C 

C 


C 

C 


20 


PICK( 1 
PICK (2 


i 


0.0 

0.0 


IF 


( RANGEM (2 , L ) .EQ.  0.0)  THEN 
M IS  SPECIFIED  AS  A POINT  V. 


VALUE 


iF<tlouTI^EQf1io)LvnaTE(8,*)  1,L> ' 

ELSEIF  (L  -EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 

CALL  NORMGN  (RAND,  MU(L),  SIG(L)  , X)  nrw>  10 

IF  ((X  .LT.  RANGEM( 1,L) ) .OR.  (X  .GT.  RANGEM ( 2 , L ) ) ) GOTO  10 

MM(L)  * X 

IF  (IOUT  .EQ.  10)  THEN 

waTE<8'*> 

WRITE ( 8 , * ) 'L  L,  ' X =',  X,  ' MM(L)  = , MM(L) 

ENDIF 

PTCP 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE  , „ , „ 

PICK ( 1 ) * AMAXl (MM(L-1 ) , RANGEM( 1,L) ) 

PICK (2 ) * RANGEM(2,L)  

IF  ESs^I“<JiisTi5SoLD  NOT  BE  POSSIBI* 

STOP  PROGRAM 

WRITE (8 , * ) ' IMPOSSIBLE  M RANGE  IN  REGION ' , L 

CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 

CALL  NORMGN  (RAND.  MU(L),  SIG(L),  X)  _ 

IF  ((X  .LT.  PICK(i))  .OR.  (X  .GT.  PICK(2)))  GOTO  20 

MM(L)  = X 
ENDIF 

IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'L  =',  L, 


MM(L-l)  =',  MM(L-l) , 
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& 


END  IF 
END  IF 


' RANGEM( 1,L)  RANGEM(1,L) 

'RANG^MhTLj  ”,  A»i6EM{2^!  ^ X 
' MM(L)  , MM(L) 


PICK(2) 

X, 


100  CONTINUE 


RETURN 

END 


C 


SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  3 FEB 8 8 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


The  random  variates  are  generated  using  the  "Direct  Method" 
Abramowitz,  M. , and  stegun,  I,  A.,  editors.  Handbook  of 

Mathematical  Functions,  National  Bureau  of  Standards,  Applied 
Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 
1970  with  c°JJ®°^j°5®^#5fi#^|2*********************************** 


SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  - 3.1415926536) 

INTEGER  I OUT 


C 

C 

C FRAC 
C I OUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM( 0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0,1) 

UNIFORM  RANDOM  NUMBER  U(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0, 1) 

NORMAL  RANDOM  NUMBER  ON  N( 0, 1) 


IF  ( ( IOUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15)) 

& WRITE  ( 8 , * ) 'RAND  «=' , RAND,  ' MU  MU,  ' SIGMA 


SIGMA 


CALL  RANDOM  (FRAC,  RAND) 
Ul  - FRAC 


CALL  RANDOM  (FRAC,  RAND) 
U2  - FRAC 
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X 


Zl 

Z2 


SQRT 

SQRT 


★ ALOG 


(Ul) ) 

* COS( 

(Ul)i 

* SIN( 

2. 

2. 


* PI  * U2) 

* PX  * U2) 


SIGMA  * Zl  + MU 


IF  (JIOUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15))  . 

& WRITE ( 8 , * ) 'Zl  ■'*  Zl,  Z2  Z2,  X * f 


RETURN 

END 


C 

C 

c 

c 

c 

c 


SUBROUTINE  TRNSFM  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  TRANSFORM 
THE  S/N  DATA  INTO  THE  VARIABLE  Z - Ln(X) 

PROGRAMMERS  L.  NEWLIN  vaTTirflO 

DATE:  CODE:  7JUN88  COMMENTS.  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4f  V4.5 

SUBROUTINE  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 


C INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

C OUTPUTS:  NP,  ZZ 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  * 50,  MAXREG  * 3) 


COMMON  IOUT 

INTEGER  I,  IOUT,  K,  L,  LL,  NP,  NPTS ( MAXREG ) , NUMREG 

REAL  MM ( 0 : MAXREG ) , MML,  NBND ( 0 : MAXREG ) , NF ( MAXDAT , MAXREG), 

, STR  (MAXDAT,  MAXREG),  ZZ  (MAXDAT) 


C 

C 

C I 
C IOUT 
C K 
C L 
C LL 
C MAXDAT 
C MAXREG 
C MM(  ) 

C MML 
C NBND ( ) 
C 

C NF  ( ) 

C 

C NP 
C NPTS ( ) 
C 

C NUMREG 
C STR( ) 

C 

C ZZ(  ) 

C 


LIST  OF  VARIABLES 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT 

OUTPUT  DUMP  CONTROLLER  

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  EACH  REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION^^^ 

CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION  r/wn 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  REGIONS  ALLO^  pfjGTON 

1- D  ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 

for  the  rumreg 

2- DEARRAY  CONTAIN INGTRAWNF(  ) (CYCLES  TO  FAILUREli  roR  THE 

T^^bhay^ontaining  the  number  of  points  per  region  for  the 

SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST  

2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S-N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 
NP  - 0 

DO  50  I - 1.  MAXDAT 

zz(i)  * o.o 

50  CONTINUE 
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C BEGIN  CALCULATIONS 


DO  100  L - 1,  NUMREG 
MML  * MM(L) 


& 

& 


MML 


IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) ' L L,  9 MM  ■' , MM(L) , ' 

MML,  ' NPTS  NPTS(L) 

200  K « 1,  NPTS(L) 

NF  * NP  4*  1 

ZZ(NP)  - ALOG(STR(K,L))  + ALOG(NF(K,L) ) * (1.0  / H ML) 

IF  (IOUT  .EQ.  10)  WRITE (8 , * ) ' K , K,  ‘ NP  , NP,  'NT  , 

NF(K,L),  ' STR=',  STR(K,L),  ' ZZ  ZZ(NP) 


2,  L 


00  SW : / hmi^u  , 

ir  <5§!SuSi,”!  a&sri^feSj. ■•ss&a: ■ * 


MM(LL) , 
300  CONTINUE 

200  CONTINUE 

100  CONTINUE 


ZZ  ZZ (NF) 


RETURN 

END 


C 


********** 


SUBROUTINE  SMNVAR  CALCULATES  THE  Sample  MeaN  and  VARiance  OF 


Z - F( STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  24AUG87  COMMENTS: 

VERSION:  MATCHR  V5.3,  V6,  V6.1,  V6.2, 

V8.3,  V8.4,  V8.5 
MATGRM  V3.3,  V4,  V4.1,  V4.2, 


13JUL89 

V7,  V7.1,  V8,  V8.1, 
V4.3,  V4.4,  V4.5 


V8.2, 


SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 


INPUTS:  NP,  ZZ 

OUTPUTS:  MEANZ,  SZ2 

IMPLICIT  NONE 

INTEGER  MAXDAT 

PARAMETER  (MAXDAT  - 50) 

COMMON  IOUT 


INTEGER  I,  IOUT,  NP 

REAL  MEANZ,  SZ2,  ZZ (MAXDAT) 


LIST  OF  VARIABLES 


I 

IOUT 

MAXDAT 

MEANZ 

NP 

SZ2 

ZZ() 


CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F (STR,  NF,  NBND,  MM) 
TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F (STR,  NF,  NBND,  MM) 
1-D  ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z = F(STR,NF,NBND,MM) 
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C INITIALIZE  VARIABLES 

MEANZ  « 0.0 
SZ2  * 0.0 


C CALCULATE  THE  MEAN  OF  ZZ( ) , MEANZ 


DO  100  I 
MEANZ 
IF 


( I OUT 

I zz  < 


1,  NP 

MEANZ  + ZZ(I) 

“ WRITE (8,*) 'NP 


.EQ.  10)  \ 
, ZZ(I), 


MEANZ 


MEANZ 


NP, 


100  CONTINUE  , _ 

MEANZ  * MEANZ  / FLOAT (NP) 

IF  ( IOUT  .EQ.  10)  WRITE(&,*)'  MEANZ 

C CALCULATE  THE  VARIANCE  OF  ZZ(),  SZ2 


MEANZ 


I, 


DO  200  I - 1,  NP 
SZ2  - SZ2  + (ZZ 
IF  (IOUT  .EQ.  1 


(I)  - MEANZ)  ** 
0)  WRITE (8,*) 'I 


200  CONTINUE 

SZ2  * SZ2  / FLOAT  (NP  - 1 
IF  (IOUT  .EQ.  10)  WRITE ( 


l. 


*) 


SZ2 


2 


I,  ' SZ2 


SZ2 


SZ2 


RETURN 

END 


k ********** *********** 


SUBROUTINE  KB ETA  CALCULATES  k AND  BETAO  FROM  THE  SAMPLE  MEAN  AND 
VARIANCE  OF  Z = F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN  „„ 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89  , 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3, 

MATGRM  V4)  V4.lj  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  KBETA  (MEANZ,  SZ2,  K,  BZERO) 


INPUTS:  MEANZ,  SZ2 

OUTPUTS:  K,  BZERO 

IMPLICIT  NONE 

REAL  PI 

PARAMETER  (PI  “ 3.1415926536) 


COMMON  IOUT 


INTEGER  IOUT 

REAL  BZERO,  K,  MEANZ,  SZ,  SZ2 


BZERO 

IOUT 

K 

MEANZ 

PI 

SZ 

SZ2 


LIST  OF  VARIABLES 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

VALUE1  OF^--°PAR^TER  CHARACTERIZING  SPECIFIC  MATERIAL 
DATA  BASE 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F (STR,  NF,  NBND,  MM) 
SELF  EXPLANATORY  CONSTANT 
SZ2  **  0.5 

SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z = F(STR,  NF,  NBND,  MM) 
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C PERFORM  CALCULATIONS 


SZ  * SZ2  **  0.5 

BZERO  - PI  / (SZ  * (6.0  **  0.5)) 
K - MEANZ 


C DATA  DUMP  STATEMENTS 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
END  IF 


10)  THEN 
' SZ2 

'MEANZ  * 


SZ2 , ' SZ 
, MEANZ, 


SZ 


K, 


BZERO 


BZERO 


RETURN 

END 


C 


C 

C 

C 

c 

c 

c 


c 

c 


SUBROUTINE  FINDK  CALCULATES  THE  VALUE  OF  K,  WHERE  A ■ K **  M FOR 
EACH  REGION 
PROGRAMMER : L . NEWLIN 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

INPUTS:  BZERO,  K,  MM,  NBND,  NUMREG 

OUTPUTS:  BIGK 

IMPLICIT  NONE 

INTEGER  MAXREG 

REAL  GAMMA 

PARAMETER  (GAMMA  **  0.57721566490,  MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  BIGK( 0: MAXREG ) , BZERO,  K,  MM(0:MAXREG) , NBND ( 0 : MAXREG ) 

LIST  OF  VARIABLES 

BIGKO  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A « K **  M 
' ' wAp  RACH  REGION 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAo,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
GAMMA  EULER'S  CONSTANT 

K0UT  vSuETOFUkP--°PiS^CTER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE  

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

or  M FOR  EKtt  KEOIO. 

»reM()  l-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 


C INITIALIZE  VARIABLES 
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DO  50  L = 0,  MAXREG 
BIGK(L)  * 0.0 
50  CONTINUE 

C CALCULATE  K FOR  REGION  ONE 


BIGK(l) 
WRITE 
IF  JIO 


.)  * (ALOG(2.0)  **  (1.0  / BZERO) ) * 
1(7,*)  'REGION:  1,  K BIGKjl) 

>UT  .EQ.  10}  WRITE(8,*) 'BZE®0  "Ll  ® 


EXP(K  + GAMMA  / BZERO) 


& ' GAMMA  GAMMA,  ' 

CALCULATE  K FOR  REMAINING  REGIONS 


- , BZERO, 
, BIGK(l) 


K, 


DO  100  L = 2,  NUMREG 

BIGK(L)  * BIGK(L-l)  * NBND(L-l) 

S,  **  ((1.0  / MM(L)  ) - (1.0  / MM^L-1))) 


& 

& 


'S'’ U 

NBND (L-l ) , ' MM(L)  , MM(L)  , MM(L-l)  * , MH(L-l)f 


100  CONTINUE 


BIGK(L) 


BIGK(L) 


RETURN 

END 


C 

C 

c 

c 

c 

c 

c 

c 


SUBROUTINE  FIND  SB  CALCULATES  THE  REGION  ' TIE-POINTS  STRESi S 

VALUES  WHICH  CORRESPOND  TO  THE  "LIFE  BOUNDARIES  ^C°BDING^TO  THE 
RANDOMLY  SELECTED  Ms,  AND  THE  Kfl  CALCULATED  FROM  THE  BETA  AND  k 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER:  L.  NEWLIN 

DATE:  22DEC88 

VERSION:  MATCHR  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4  • 2 , V4.3f  V4.4,  V4.5 


SUBROUTINE  FINDS B (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 


C INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

C OUTPUTS : SBND 


C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG,  ZROREG 

REAL  BIGK ( 0 : MAXREG ) , MM ( 0 : MAXREG ) , NBND ( 0 : MAXREG ) , 

& SBND ( 0 : MAXREG ) 


BIGK( ) 

I OUT 
L 

MAXREG 
MM(  ) 
NBND( ) 

NUMREG 
SBND( ) 


LIST  OF  VARIABLES 


WHERE  A * K **  M 


L-D  ARRAY  CONTAINING  VALUES  OF  K, 

FOR  EACH  REGION 
XJTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

L-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH 
L-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE 

REGIONS  OF  INTEREST  

DUMBER  OF  REGIONS  OF  INTEREST  , 

1— D ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R * -1*0)  ^ 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND( ) 


REGION 

NUMREG 
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C ZROREG 

c 


ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGIONDO^LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


C INITIALIZE  SBND() 

DO  50  L - 0,  MAXREG 
SBND(L)  * 0.0 
50  CONTINUE 

C CALCULATE  SBND(0)  IF  ZROREG  » 0 

IF  ^BOT^O?  -EBIGK  ( ” NBND  ( 0 ) **  (-1.0  / MM(1)) 
END  IF 

C CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 


DO  100  L ■ 1,  NUHREG  

IF  (NBND(L)  .GE.  1.0E+36)  THEN 
SBND(L)  * 0.0 
ELSE 

SBND(L)  - BIGK(L)  * NBND(L)  **  (-1.0  / MM(L)) 
ENDIF 
100  CONTINUE 


RETURN 

END 


THIS  SUBROUTINE  GENERATES  WEIBULL( BETA. ETA ) RANDOM  VARIATES  WITH 
MEDIAN  OFDISTOIlHJTia*^ CONSTRAIN!!*  TO  k oAe  USING  THE  "INVERSE 
TRANSFORM  METHOD" 

PR°°“nS!  COOE^lSMAM?  COMMENTS : l5Sg»» 

VEFSIC«=  HATCH*  V4,  VS, , Wa.  V|.2,  V5.3, 

MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 

copyright  (C)  1990,  Califpmia  institute  of  Technology. 

U.S.  Government  sponsorship  under  NASA  Contract  NAS 7— 9 18 
is  acknowledged. 


SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

C INPUTS:  BETA,  RAND 

C OUTPUTS:  WEIB 

C SUBPROGRAMS : RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I OUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


C 

C 

C ARG 
C BETA 
C ETA 
C FRAC 
C I OUT 


LIST  OF  VARIABLES 

INTERMEDIATE  CALCULATION  VARIABLE 
4EIBULL  DISTRIBUTION  SHAPE  PARAMETER 
UEiBULL  DISTRIBUTION  LOCATION  PARAMETER 


IN I FORM  (0,1)  RANDOM  VARIATE 
WTPUT  DUMP  CONTROLLER 
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C RAND 
C WEIB 


RANDOM  NUMBER  SEED  

WEIBULL  ( BETA,  ETA ) GENERATED  RANDOM  VARIATE 


C CALCULATE  CONSTRAINED  ETA 

ETA  « 1.0  / (ALOG(2 • 0)  **  (1.0  / BETA)) 
C GENERATE  WEIBULL  RANDOM  VARIATE 


CALL  RANDOM (FRAC,  RAND) 
ARG  - - ALOG (1.0  - FRAC \ 
WEIB 


„ ETA  * ARG** (1.0/BETA) 

IF  ( IOUT  .EQ.  10}  WRITE (8 ,* j ' BETA 
& > FRAC  FRAC,  ' ARG  , ARG, 


' , BETA, 
' WEIB  «' 


' ETA 
WEIB 


ETA, 


RETURN 

END 


C****** 


cTiAPOi rr  r nf  KOMO  caTjCI JLATES  Ko  AND  Mo  FOR  THE  ZERO  REGION  (NO  DATA 

aIcoSntS  for  tying  up  the  ttosile  point 
AT  SZERO,  AND  SCALING  DOWN  THE  CURVE  IF  IT  WENT  ABOVE  SZERO. 
PROGRAMMER  : L.  NEWLIN 

DATE:  1AUG91  . _ 

VERSION:  MATCHR  V8.5  MATGRM  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  sponsorship  under  NASA  Contract  NAS7— 918 
is  acknowledged. 


SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 
t,  FACTR,  NUMREG) 

C INPUTS:  SZERO.  BIGK,  MM,  NBND,  TRSBND,  FACTR 

C OUTPUTS:  TRBIGK,  MM,  TRSBND 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  BIGK( 0 : MAXREG) , FACTR,  MM( 0 : MAXREG) »*®ND(0: MAXREG) , 

1 SCLK,  SZERO,  TRBIGK(0:MAXREG) , TRSBND ( 0 : MAXREG) 


C LIST  OF  VARIABLES 

C BIGK( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K **  M FOR 

C EACH  REGION 

C FACTR  SCALE  FACTOR  = PHI  * KRATIO  * Z 

C IOUT  OUTPUT  DUMP  CONTROLLER 

C L CONTROLS  DO  LOOP  FOR  EACH  REGION 

C MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED  mv-ton 

n urn  / \ 1 - n ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

C NBND()  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

C REGIONS  OF  INTEREST 

C SCLK*5  AD^ItMENT^ACTOR  FOR  BIGK  IF  TRSBND ( 0 ) > SZERO 
C S, ) ?^S^^aTnM^SSO0F  K,  ADJUSTED  TO  KEEP 
i TRSBND  ( ) 1 JSffl  CONTAINING^STRESS^VALUES  CORRESPONDING  TO  THE 
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c 

c 


LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND() 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK(O)  - SZERO 


100 


C 


IF  ( TRSBND ( 0 ) *GT.  SZERO)  THEN 


(TRS: 
SCLK 
DO  100 


>(0)  .GT.  SZERO) 
SZERO/TRSBND ( 0 ) 
L ■ 0,  NUMREG 


TRBIGK(L)  ■ BIGKfL) 
TRSBND ( 


:1 


TRSBND (L 
CONTINUE 
ELSE 

TRBIGK(O)  - SZERO/FACTR 


* SCLK 
(L)  * SCLK 


*<5>  pasm- 


END  IF 


(0)))) 


IF  (IOUT  .EQ. 
NRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

'SZERO  - ',  SZERO, 
'FACTOR  - ' , FACTR, 
'MM1  - MM( 1) , ' 


' BIGKO  * ' , TRBIGKfO) 

' BIGK1  - ' , TRBIGK ( 1 ) 
MHO  « ' , MM(0) 


RETURN 

END 


C 


C 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  GTLIFE  CALCULATES  THE  CYCLES  TO  FAILURE  FOR  A PARTICULAR  STRESS 
BASED  UPON  THE  MATERIALS  CHARACTERIZATION  S/N  EQUATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  1 0 FEB 8 9 „ _ 

VERSION:  MATO HR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  sponsorship  under  NASA  Contract  NAS7— 9 18 
is  acknowledged. 


REAL  FUNCTION  GTLIFE  (S,  MM,  BIGK,  PHI,  KRATIO,  LNZ,  SBND, 

* ZROREG,  NUMREG,  SZERO) 

C INPUTS:  S,  MM,  BIGK,  PHI,  KRATIO,  LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 

C OUTPUTS : GTLIFE 

C IMPLICIT  NONE 

INTEGER  IOUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

REAL  BIGK(0: MAXREG) , GETLIF,  KRATIO,  LNZ,  MM( 0 :MAXREG) , PHI, 

& S,  SeND ( 0 : MAXREG) , SZERO,  TEMP 


LIST  OF  VARIABLES 


BIGK() 

GETLIF 


IOUT 

KRATIO 

L 

LNZ 

MAXREG 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A - K **  M 
FOR  EACH  REGION 

VALUE  TO  BE  ASSIGNED  TO  GTLIFE  — CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRESS  LEVEL 
OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
NORMAL ( 0 , PVAR)  GENERATED  RANDOM  VARIATE 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 
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PHI 

s 

SBND( ) 


SZERO 

TEMP 

ZROREG 


WE  I BULL  ( BET  AO , ETAO)  GENERATED  RANDOM  VARIATE  „ 

VALUE  Or  STRESS  f PS I ) FOR  WHICH  A VALUE  OF  LIFE  (CYCLES  TO 
FAILURE)  IS  REQUIRED  _ . n. 

REGION 

CONTAINED  IN  NBND() 

SSSJ? 5B&J!F o^"t6  prevent  arithmetic  order  and  over 

UTAUg 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  IOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 — NO  REGION 


GETLIF  » 0.0 

CALCULATE  CYCLES  TO  FAILURE 


IF  ((S  .GE.  SZERO) 
GETLIF  ■ 1.0 
ELSE 


.AND.  (ZROREG  .EQ.  0))  THEN 


DO  100  L 
IF 


ZROREG,  NUMREG 
SBND(L) ) THEN 


• 


IF  (TEMP  .GT.  86.0)  THEN 
TEMP  = 86.0 
END  IF 

GETLIF  = EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 


GTLIFE  * GETLIF 


RETURN 

END 


C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SUBROUTINE  9 SORTM 9 SORTS  THE  ARRAY,  ALLM( ) , FROM  LOWEST  TO  HIGHEST 
M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  10FEB88  _ 

VERSION:  MATCHR  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  Calif pmia  Institute  of  Technology. 

U.S.  Government  sponsorship  under  NASA  contract  NAS 7— 918 
is  acknowledged. 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUM) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS : ALLM 

C IMPLICIT  NONE 

COMMON  IOUT 

INTEGER  I,  INC,  IOUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 
PARAMETER  (MAXMM  * 20001,  MAXREG  * 3) 

LOGICAL  INORDR 

REAL  ALLM (MAXMM,  MAXREG),  TEMP 
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c 

c 

C ALLM() 
C I 
C INC 
C INORDR 
IOUT 
L 

MAXMH 
MAXREG 
NUM 
NUMREG 
TEMP 


LIST  or  VARIABLES 


2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGION 
CONTROLS  INSERTION  POINTER 

SORT  INCREMENT  VARIABLE  

FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  ELEMENTS  IN  ALLM( ) TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400  L - 1,  NUMREG 

5 INC  - NUM 
10  IF  (INC  -GT.  1)  THEN 
INC  * INC  / 2 
20  INORDR  * .TRUE. 


300 


DO  300  I - 1,  (NUM  - INC) 

IF  (ALLM(I,l}  .GT.  AIiJi(I  + 
TEMP  » ALLM(I,L) 

ALLM(I,L)  « ALLM(I  + INC, 
ALLMiI  + INC,  L)  ■ TEMP 
INORDR  « .FALSE. 

ENDIF 

CONTINUE 


INC,  L))  THEN 

L) 


IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 


400  CONTINUE 


RETURN 

END 
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Section  7.3 

Materials  Characterization  Program 


The  program  tree  structure,  a list  of  subprograms,  a description  of  the  key  variables, 
and  the  FORTRAN  source  listing  for  the  materials  characterization  model  code 
MATCH R are  given  here.  The  pertinent  materials  characterization  methodology  is 
given  in  Section  2. 1.2.  The  overall  description  of  the  program  and  the  flowcharts  are 
given  in  Section  4.1.  The  user’s  guide  for  running  MATCHR  is  given  in  Section  6.3. 

7.3.1  MATCHR  Program 

7.3.1 .1  Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  the  stress  formulation  of  MATCHR  using  Uniform 
variation  on  the  materials  shape  parameter  m is  given  in  Figure  7-7,  and  the  tree 
structure  for  the  truncated  Normal  case  is  given  in  Figure  7-8.  The  tree  structure  for 
the  strain  formulation  of  MATCHR  using  Uniform  variation  on  the  materials  shape 
parameters  mp  and  is  given  in  Figure  7-9,  and  the  tree  structure  for  the  truncated 
Normal  case  is  given  in  Figure  7-10.  In  all  four  trees,  those  subprograms  not 
“shadow-boxed”  are  random  number  generators  and  are  described  in  Section  4.4. 
The  program,  subprogram,  and  file  names  are  indicated  by  UPPERCASE  letters. 

7.3.1 .2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-7.  The  section  numbers 
where  the  subprograms  are  described  by  means  of  flowcharts  are  given  next  to  the 
names. 


Table  7-7  List  of  Subprograms  for  Program  MATCHR 
(Footnotes  are  at  the  end  of  the  table) 


NAME 

SECTION 

PURPOSE 

ADDREG1 

4. 1.3.9 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  Uniform  distribution  case  of  the  stress  formulation 

of  the  S/N  curve. 

ADDRGN1 

4.1.3.15 

Adds  the  m ranges  for  the  non-data  life  regions  to  the  right  of  those 
with  data,  for  the  truncated  Normal  case  of  the  stress  formulation  of 

the  S/N  curve. 

ADJSTM 

4.1.7 

Adjusts  the  lower  bound  of  the  posterior  ranges  on  mE  to  be  consis- 

tent  with  the  randomly  selected  value  of  mp  of  the  strain  formulation 
of  the  S/N  curve. 
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Figure  7-7  T ree  Structure  for  the  Stress  Formulation  of  the 
Program  MATCHR  for  the  Uniform  Variation  in 
Materials  Shape  Parameter  m 
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Figure  7-8  Tree  Structure  for  the  Stress  Formulation  of  the 

Program  MATCHR  for  the  Truncated  Normal  Variation 
in  Materials  Shape  Parameter  m 
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Figure  7-9  Tree  Structure  for  the  Strain  Formulation  of  the 
Program  MATCHR  for  the  Uniform  Variation  in 
Materials  Shape  Parameters  mp  and  mp 
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Figure  7-9  Tree  Structure  for  the  Strain  Formulation  of  the 
Program  MATCHR  for  the  Uniform  Variation  in 
Materials  Shape  Parameters  mP  and  mE  (Cont’d) 
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Figure  7-10  Tree  Structure  for  the  Strain  Formulation  of  the 

Program  MATCHR  for  the  Truncated  Normal  Variation 
in  Materials  Shape  Parameters  mp  and  mp 
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Figure  7-10  Tree  Structure  for  the  Strain  Formulation  of  the 

Program  MATCHR  for  the  Truncated  Normal  Variation 
in  Materials  Shape  Parameters  mP  and  n?£  (Cont’d) 
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Table  7-7  Ust  of  Subprograms  for  Program  MATCHR  (Cont’d) 


NAME 

SECTION 

PURPOSE 

CONCAV2 

4.1.3.10 

Adjusts  the  upper  bound  of  the  posterior  ranges  on  m to  be  consis- 
tent with  concavity  constraints  of  the  stress  formulation  of  the  S/N 
curve. 

CONVRT3 

4. 1.3.3 

Transforms  stress  data  to  equivalent  zero-mean  stresses  with  stress 
ratio  of  - 1 .0  for  the  stress  formulation  of  the  S/N  curve. 

DECOMP4 

4.1.4 

Controls  the  logical  flow  for  the  plastic-elastic  strain  decomposition 
and  the  information  aggregation  portion  of  the  strain  formulation 
materials  characterization  model. 

EXPCTD5 

4.1.3.12 

Calculates  the  median  S/N  curve  parameters  from  the  results  of  the 
information  aggregation  calculations. 

FCT 

4. 1.9.2 

Calculates  the  value  of  the  function  and  its  derivative  at  the  current 
iteration  value  of  life,  in  order  to  find  the  solution  of  the  strain  for- 
mulation S/N  curve  given  by  Equation  2-50. 

FINDK 

4. 1.5.6 

Calculates  the  value  of  the  location  parameter  K (where  A = Km)  for 
each  life  region  by  using  Equations  2-37  and  2-41. 

RNDM6 

4. 1.5.1 

Obtains  the  value  of  m for  each  life  region  by  adjusting  the  range 
(to  ensure  concavity)  and  then  sampling  from  the  Uniform  distribu- 
tion over  the  appropriate  m range. 

FINDMC 

4. 1.3.5 

Calculates  the  m range  for  each  life  region  implied  by  the  constraint 
on  the  coefficient  of  variation  of  fatigue  strength  C by  using  Equa- 
tions 2-28  through  2-32  for  the  stress  formulation  of  the  S/N  curve. 

RNDMN6 

4. 1.5.2 

Obtains  the  value  of  m for  each  life  region  by  sampling  from  the 
appropriate  truncated  Normal  distribution  on  m. 

FINDSB 

4. 1.5.7 

Calculates  the  life  region  ‘tie-points”  or  stress  values  which 
correspond  to  the  “life  boundaries”  conditional  on  the  randomly 
selected  m for  each  region.  Also  calculates  K,  characterizing  the 
specific  material  S/N  data  set.  which  is  a function  of^Q  and  k. 

FNDRNG7 

4. 1.3.8 

Combines  the  95%  confidence  interval,  J0,  with  the  implicit  and 
explicit  constraints  on  m to  obtain  posterior  credibility  ranges  on  m 
for  each  life  region. 

GTUFE 

4.1.8 

Calculates  the  cycles  to  failure  for  a particular  stress  based  upon 
the  materials  characterization  model  stress  formulation  S/N  curve  of 
Equation  2-48. 

GTUF2 

4.1.9 

Calculates  the  cycles  to  failure  for  a particular  strain  based  upon 
the  materials  characterization  model  strain  formulation  S/N  curve  of 
Equation  2-50. 

GTPVAR 

4.1. 3.7 

Calculates  o2,  Equation  2-49,  the  extent  of  departures  from  the  mul- 
tiple heat  median  S/N  curve  warranted  by  the  information  available. 
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Table  7-7  List  of  Subprograms  for  Program  MATCHR  (Cont’d) 


NAME 

SECTION 

PURPOSE 

INFAGG8 

4.1.3 

Controls  the  logical  flow  for  the  information  aggregation  portion  of 
the  stress  formulation  materials  characterization  model. 

INIT 

4. 1.3.1 

Initializes  the  entries  of  the  arrays  used  In  the  stress  formulation 
information  aggregation  subroutine,  INFAGG,  to  zero. 

INITD 

4.1. 4.1 

Initializes  the  entries  of  the  arrays  used  in  the  strain  formulation 
information  aggregation  subroutine,  DECOMP,  to  zero. 

INTRVL 

4. 1.3.6 

Calculates  the  95%  confidence  intervals  l0  for  C,  and  J0  for  m,  for 
each  region  by  using  Equations  2-24  and  2-26. 

KB  ETA 

4. 1.5.5 

Calculates  k and  /90  from  the  sample  mean  and  variance  of  Z,  where 
Z is  a function  of  stress,  life,  the  life  region  boundaries,  and  the  m's 
by  using  Equation  2-42. 

KOMO9 

4.1.6 

Calculates  K0  and  m0  for  the  zero  region,  the  no  data  region  to  the 
left  of  the  first  data  region.  Extends  the  stress  formulation  S/N  curve 
consistent  with  the  tensile  point  at  S0. 

MATCHR 

4.1.2 

The  main  routine  that  controls  the  logical  flow  of  the  calculations  of 
the  materials  characterization  model. 

MEDIAN 

4.1.3.11 

Calculates  the  median  values  of  m based  on  the  posterior  credibility 
ranges  of  m by  using  Equation  2-34  for  the  stress  formulation  S/N 
curve. 

MUSIG10 

4.1.3.13 

Calculates  the  posterior  Normal  distribution  parameters:  mean  m, 
and  standard  deviation  ct,,  for  each  life  region  of  the  S/N  curve. 

NEWTON 

4. 1.9.1 

Solves  the  general  nonlinear  equations  of  the  form  /(x)  = 0 by 
means  of  Newton’s  iteration  method. 

NORMGN11 

4.4.3 

Generates  Normal^,  ct2)  random  variates. 

NORRNG7 

4.1.3.14 

Combines  the  implicit  and  explicit  constraints  on  m to  obtain  the 
posterior  credibility  ranges  of  m for  each  life  region. 

PAREST12 

4.1.5 

Controls  the  logical  flow  for  the  parameter  estimation  model 
portion  of  the  materials  characterization  model. 

PECOMP 

4. 1.4.4 

Calculates  the  plastic-elastic  strain  decomposition  by  using 
Equations  2-45  through  2-47  for  the  information  aggregation 
calculations  of  the  strain  formulation  S/N  curve. 

PREP 

4.1. 4.3 

Places  the  plastic-elastic  decomposition  strain  data  into  arrays  of 
the  appropriate  data  structure  to  allow  usage  of  routines  of  the 
stress  formulation  S/N  curve  calculations. 

RANDOM13 

4.4.2 

Uses  a Linear  Congruential  random  number  Generator  (LCG)  to 
generate  Uniform(0, 1)  random  variates. 
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Table  7-7  List  of  Subprograms  for  Program  MATCHR  (Cont’d) 


NAME  SECTION 

RCE  4. 1.3.2 

RDECHO  4. 1.4.2 
SMNVAR  4. 1.5.4 

SORTM14  4.1.10 
SW2SU2  4. 1.3.4 

TRMNAT  4.1.11 
TRNSFM15  4.1. 5.3 

WEIBGN  4.4.6 


PURPOSE 

Reads  the  data  from  SPECFD  and  RELATD;  calls  CONVRT  to  trans- 
form the  stress  data  to  a stress  ratio  of  -1 .0;  and  echoes  the  data 
to  SPECFO  and  RELATO  for  the  stress  formulation  S/N  curve.  RCE 
also  breaks  S/N  data  sets  into  regions  as  specified  by  the  user. 

Reads  the  data  from  SPECFD  and  RELATD  and  then  echoes  the 
data  to  SPECFO  and  RELATO  for  the  strain  formulation  S/N  curve. 

Calculates  the  sample  mean  and  variance  of  Z,  where  Z is  a func- 
tion of  stress,  life,  the  life  region  boundaries,  and  the  m's  by  using 
Equation  2-42. 

Sorts  the  m values  in  increasing  order  for  each  life  region  for  the 
truncated  Normal  distribution  case. 

Calculates  the  residual  variances  from  the  Y on  X and  X on  Y regres- 
sions for  each  life  region  where  Y = \n(Endurance  cycles ) and 
X = ln(Stress)  by  using  Equations  2-20  and  2-21 ; to  be  used  in  the 
credibility  range  calculations. 

Performs  premature  program  termination,  when  required. 

Performs  the  calculations  necessary  to  transform  the  specific 
material  S/N  data  into  the  variable  Z,  where  Z is  a function  of  stress, 
life,  the  life  region  boundaries,  and  the  m's. 

Generates  Weibull(/3,  rj(p))  random  variates. 


I No  data  regions  to  the  right  are  discussed  on  Page  2-17. 

3  Concavity  constraints  are  discussed  on  Pages  2-13  through  2-14. 

3 The  stress  transformation  is  discussed  on  Page  2-7. 

4 Plastic-elastic  strain  decomposition  is  discussed  on  Page  2-20",  the  information  aggregation 
calculations  are  discussed  on  Pages  2-6  through  2-14. 

5 The  median  S/N  curve  parameter  estimation  calculations  are  described  on  Pages  2-15  through  2- 18. 

6 Selection  of  the  {ntj } parameters  is  discussed  on  Page  2-15. 

7 Combining  information  to  obtain  the  posterior  credibility  ranges  onm  is  discussed  cm  Page  2-13. 

8 The  information  aggregation  calculations  are  discussed  on  Pages  2-6  through  2-14. 

9 Extension  of  the  S/N  curve  to  the  left  is  discussed  on  Page  2-17. 

10  Calculation  of  the  truncated  Normal  distribution  parameters  is  discussed  on  Page  2-14. 

I I The  Normal  distribution  is  discussed  on  Page  2-23. 

12  The  parameter  estimation  calculations  are  discussed  on  Pages  2-15  through  2-18. 

13  The  Uniform  distribution  is  discussed  on  Page  2-23. 

14  The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

15  The  S/N  data  transformation  is  discussed  on  Page  2-16. 
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7.3.1 .3  Description  of  Variables  UATPUD  ie 

A list  of  variables  used  in  the  materials  characterization  model  code  MATCHH  is 
given  in  Table  7-8.  The  chart  of  Table  7-9  provides  a cross-reference  among  routines, 
or  subprograms,  and  their  variable  usage.  The  variable  names  are  indicated  by 
BOLD  UPPERCASE  letters;  the  variable  “type”  is  specified  as  follows:  CH40  is  a 
standard  character  variable,  forty  characters  long;  INT  is  a standard  integer  variable, 
RE  is  a standard  real  variable;  DRE  is  a double  precision  variable;  and  LOG  is  a 
standard  logical  variable.  The  various  array  dimensions  are  defined  by  using  the 
following  parameters:  CHITAB,  MAXDAT,  MAXMM,  MAXREG,  MAXSET, 

MAXTNS  and  TTAB.  In  the  strain  formulation  of  the  materials  characterization 
model,  those  variables  with  MAXREG  as  a dimension  use  only  region  1. 

Table  7-8  List  of  Variables  for  Program  MATCHR 
(Footnotes  are  at  the  end  of  the  table) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

ALLM (MAXMM,  MAXREG) 

RE 

2-D  array  containing  the  materials  model  shape 
parameters  (m's)  for  each  life  region  to  be  used  in  the 
truncated  Normal  median  S/N  curve  calculation.' 

ALPHA(MAXDAT,  0:MAXSET) 

RE 

2-D  array  containing  values  of  the  ratio  of  Sp  to  Sp, 
Equation  2-47,  for  each  total  strain  point. 

ARG,  ARG1,  ARG2 

RE 

Intermediate  calculation  variables. 

BB(MAXREG) 

RE 

1-D  array  containing  values  of  b = SXY(L)/SY2(L), 
Equation  2-21,  for  each  life  region  of  the  S/N  curve. 

BIGK(OtMAXREG) 

RE 

1-D  array  containing  values  of  the  materials  model 
location  parameter  K,  Equation  2-12,  where  A = Km. 

BIGK1 

RE 

Dummy  variable  used  during  calls  to  subroutine 
EXPCTD,  equal  to  BIGK(1). 

BIGKE(0:MAXREG) 

RE 

1 -D  array  containing  the  value  of  the  materials 
model  location  parameter  Kg,  Equation  2-43,  for 
the  elastic  strain  components. 

BIGKHT 

RE 

Value  of  the  materials  model  location  parameter  K 
for  life  region  1 corresponding  to  the  median 
value(s)  for  the  materials  model  shape  parameter(s) 

BIGKP(0:MAXREG) 

RE 

1 -D  array  containing  the  value  of  the  materials 
model  location  parameter  Kp,  Equation  2-43,  for 
the  plastic  strain  components. 

1 A numeric  entry  in  Table  7-9  indicates  the  appropriate  definition  of  Table  7-8  to  be  used  for 
the  variable  and  routine  of  interest. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

BZERO 

RE 

Estimate  of  Weibull  distribution  shape  parameter 
P0,  Equation  2-11,  which  characterizes  the  intrinsic 
variation  of  the  S/N  data  set. 

BZEROE 

RE 

Estimate  of  Weibull  distribution  shape  parameter, 
poE,  that  characterizes  the  intrinsic  variation  of  the 
elastic  strain  components  of  the  S/N  data  set,  used 
to  estimate  po  in  Equation  2-43. 

BZEROP 

RE 

Estimate  of  Weibull  distribution  shape  parameter, 
poP,  that  characterizes  the  intrinsic  variation  of  the 
plastic  strain  components  of  the  S/N  data  set,  used 
to  estimate/^  in  Equation  2-43. 

BZHAT 

RE 

Value  otpo  corresponding  to  the  median  S/N  curve.2 

CHI02S(CHITAB) 

RE 

Table  of  0.025  percentage  points  for  the  x2  distribu- 
tion used  in  Equation  2-24. 

CHI975(CHITAB) 

RE 

Table  of  0.975  percentage  points  for  the  x2  distribu- 
tion used  in  Equation  2-24. 

CHITAB 

INT 

Maximum  number  of  degrees  of  freedom  in  CHI025( ) 
and  CHI975( ).  The  maximum  number  is  150. 

COUNT 

INT 

Array  index  variable  used  by  RCE  to  facilitate  data 
input,  stress  ratio  transformation,  life  region  par- 
titioning, and  data  echo. 

CZERO 

RE 

C0  in  Equations  2-28  through  2-32,  the  user- 
specified  upper  bound  of  the  coefficient  of  variation 
of  material  fatigue  strength. 

CZER02 

RE 

Value  of  CZERO**  2. 

DD(MAXREG) 

RE 

1 -D  array  containing  values  of  d = SXY(L)/SX2(L), 
Equation  2-20,  lor  each  life  region  of  the  S/N  curve. 

DELTA(MAXREG) 

RE 

1 -D  array  containing  values  of  the  shape  parameter 
d of  the  Bayesian  prior  distribution  for  each  life 
region.3 

DELTAE(MAXREG) 

RE 

1 -D  array  containing  the  value  of  the  shape 
parameter  dE  of  the  Bayesian  prior  distribution  for 
the  elastic  strain  components.3 

DELTAP(MAXREG) 

RE 

1 -D  array  containing  the  value  of  the  shape 
parameter  dp  of  the  Bayesian  prior  distribution  for 
the  plastic  strain  components  3 

DESCRP(0:MAXSET) 

CH40  1 -D  array  containing  descriptions  of  each  S/N  data  set 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

DERF 

RE 

DERivative  of  F.  The  resultant  value  of  the  deriva- 
tive of  F at  the  root  during  the  Newton’s  method 
calculations. 

D 1 FFX (M AXD AT,  0:MAXSET) 

RE 

2-D  array  containing  values  of  the  difference 
between  LNSTR(K,J,L)  and  MEANX(J)  for  each 
point  in  each  S/N  data  set  for  region  l_  used  in 
calculations  for  Equations  2-20  and  2-21. 

DIFFY(MAXDAT,  0:MAXSET) 

RE 

2-D  array  containing  values  of  the  difference 
between  LNNF(K,J,L)  and  MEANY(J)  for  each 
point  in  each  S/N  data  set  for  region  l_  used  in 
calculations  for  Equations  2-20  and  2-21. 

E LAS  (M  AXD  AT,  0:MAXSET) 

RE 

2-D  array  containing  values  of  the  elastic  strain 
components  (%). 

EPS 

RE 

Value  of  the  maximum  error  allowed  in  the  result  of 
the  Newton’s  method  calculations. 

F 

RE 

Resultant  value  of  the  function  F at  the  root  during 
the  Newton’s  method  calculations. 

FACTR 

RE 

Value  of  (PHI  * KRATIO  * Z)  In  Equation  2-48. 

FTU 

RE 

Material  ultimate  strength  (psi). 

FTUZ 

RE 

Material  ultimate  strength  (psi)  for  specific  material. 

FTY 

RE 

Material  yield  strength  (psi). 

FTYZ 

RE 

Material  yield  strength  (psi)  for  specific  material. 

GAMMA 

RE 

Euler’s  constant. 

1)  GETUF 

RE 

Value  to  be  assigned  to  GTUFE,  the  fatigue  cycles 
to  failure  at  the  required  stress  level. 

2)  GETUF 

RE 

Value  to  be  assigned  to  GTUF2,  the  fatigue  cycles 
to  failure  at  the  required  strain  level. 

GTUFE 

RE 

Function  that  calculates  the  fatigue  cycles  to  failure 
at  a given  stress,  given  by  Equation  2-48. 

GTUF2 

RE 

Function  that  calculates  the  fatigue  cycles  to  failure 
at  a given  strain,  given  by  Equation  2-50. 

1)  1 

INT 

Controls  DO  loop  for  each  data  point  in  an  S/N 
data  set. 

2)  1 

INT 

Controls  the  DATA  statements  for  CHI025( ) and 
CHI975( ). 

3)  1 

INT 

Controls  insertion  sort  DO  loop. 

IEND 

INT 

Maximum  number  of  iteration  steps  allowed  to  find 
the  solution  during  the  Newton's  method  calculations 
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Table  7-8 


List  of  Variables  for  Program  MATCHR  (Cont'd) 


VARIABLE  NAME  TYPE 

IER  ,NT 

II  INT 

INC  INT 

INORDR  LDG 

INVME  RE 

INVMP  RE 

IOUT  INT 

IZERO(2,  MAXREG)  RE 

1)  J INT 

2)  J INT 

JZERO(2,  MAXREG)  RE 

1)  K INT 

2)  K RE 

1)  KE  RE 

2)  KE  RE 

KEPROD  RE 

KHAT  RE 

KHATE  RE 

KHATP  RE 


DESCRIPTION 

Provides  Information  on  the  type  of  error  occurring 
in  the  Newton’s  method  calculations.  A value  of  0 
indicates  that  no  error  occurred;  a value  of  1 indi- 
cates no  convergence  after  IEND  iteration  steps; 
and  a value  of  2 indicates  that  at  some  iteration 
step,  the  derivative  DERF  was  equal  to  zero. 

Controls  DO  loop  for  each  trial  when  the  empirical 
median  S/N  curve  for  the  truncated  Normal  case 
has  be  requested.4 

Increment  variable  used  during  insertion  sort. 

Logical  flag  to  indicate  whether  the  insertion  sort 
has  been  completed. 

IN  Verse  of  ME,  the  value  of  1 / ME.5 

INVerse  of  MP,  the  value  of  1 / MP.5 

Output  dump  controller. 

2-D  array  containing  values  of  the  95%  confidence 
interval  for  C,  l0,  Equation  2-24,  for  each  life  region. 

Controls  DO  loop  for  each  S/N  data  set. 

S/N  data  set  of  interest  during  stress  ratio  transfor- 
mation calculations. 

2-D  array  containing  values  of  the  95%  confidence 
interval  for  m,  J0,  Equation  2-26,  for  each  life  region. 

Controls  DO  loop  for  each  point  in  a life  region. 
k in  Equations  2-40  through  2-42,  a parameter  that 
characterizes  the  specific  material  S/N  data  base 
for  a set  of  {my}. 

Ke  in  Equation  2-47,  the  median  KE  for  the  user- 
provided  elastic  strain  components.  (See  KHATE 
in  DECOMP) 

Scalar  variable  used  by  function  GTUF2,  equal  to 
BIGKE(I). 

Value  of  KE  * PHI  * KRATIO  * Z6 

Value  of  k corresponding  to  the  median  S/N  curve.7 

Ke  in  Equation  2-47,  the  median  KE  for  the  user- 
provided  elastic  strain  components. 

Kp  in  Equation  2-47,  the  median  Kp  for  the  user- 
provided  plastic  strain  components. 
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VARIABLE  NAME 

1)  KP 

2)  KP 

KPPROD 
KRATIO 

KTERM 
L 

LAMBDA(MAXDAT,  0:MAXSET) 

LAMN 

1)  LIFE 

2)  LIFE 

1)  ll 

2)  LL 

LNA(0:MAXREG) 

LNNF(MAXDAT,  0:MAXSET,  MAXREG)  RE 
LNSTR  (MAXDAT,  0:MAXSET,  MAXREG)  RE 
LNSTRE  (MAXOAT,  OiMAXSET,  MAXREG)  RE 
LNSTRP (MAXDAT,  0:MAXSET,  MAXREG)  RE 
LNZ  RE 


DESCRIPTION 

Kp  in  Equation  2-47,  the  median  Kp  for  the  user- 
provided  plastic  strain  components.  (See  KHATP 
in  DECOMP) 

Scalar  variable  used  by  function  GTUF2,  equal  to 
BIGKP(I). 

Value  of  KP  * PHI  * KRATIO  * Z6 

Ratio  of  MED  K*IMED  K in  Equation  2-48.  KRATIO 
is  constant  over  life  regions  and  strain  components 
for  the  materials  model. 

Value  of  KP  / KE. 

Controls  DO  loop  for  each  life  region  of  the  S/N 
curve. 

2- D  array  containing  values  of  A,-,  Equations  2-46 
and  2-47,  the  plastic  fraction  of  the  total  strain. 

XN,  the  ratio  of  V (In  N | S,  multiple  heats)  I 
V (In  N | S,  single  heat)  or  (1  + o2  / C2).  LAMN 
is  constant  over  life  regions  and  strain  components. 
The  fatigue  cycles  to  failure  at  a given  stress  or 
strain  given  by  Equation  2-48  or  2-50. 

Value  of  N for  an  iteration  during  the  Newton’s 
method  calculations. 

Value  of  NUMREG  for  a set  of  calculations. 

Controls  inner  DO  loop  for  each  life  region  of  the 
S/N  curve. 

1 -D  array  containing  values  of  ln(A)  = In(BIGK)  * 
MM  for  each  life  region  of  the  S/N  curve. 

3- D  array  containing  values  of  ln(RAWNF( )) 
indexed  for  life  regions. 

3-D  array  containing  values  of  ln(RATSTR( )) 
indexed  for  life  regions. 

3-D  array  containing  values  of  ln(SE( ))  or 
ln(STRE( ))  for  the  elastic  strain  components. 

3-D  array  containing  values  of  ln(SP( ))  or 
ln(STRP( ))  for  the  plastic  strain  components. 

ln(Z)  in  Equation  2-48,  the  Normal(0,  PVAR) 
random  variate  for  the  materials  process  variation 
aspect  of  the  materials  model. 


Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 

TYPE 
RE 

RE 

RE 
RE 

RE 
INT 

RE 

RE 

RE 

RE 

INT 
INT 

RE 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont'd) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

LOWER 

RE 

The  lower  bound  of  the  intersection  to  find  x(m)  in 
a particular  region.9 

LOWERM 

RE 

max  (mt , L/+1)  in  Equation  2-33,  the  lower  bound 
of  the  m range,  due  to  concavity  considerations,  to 
be  used  in  the  median  calculation.10 

LPHIM(0:MAXREG) 

RE 

1 -D  array  containing  values  of  In(PHI)  * MM  for 
each  life  region  of  the  S/N  curve. 

1)  M 

INT 

Controls  DO  loop  for  each  of  the  NDIV  data 
divisions  during  data  input,  stress  formulation. 

2)  M 

INT 

Controls  DO  loop  for  each  tensile  test  point  in  an 
S/N  data  set,  strain  formulation. 

MAXDAT 

INT 

Maximum  number  of  points  per  data  set  per  region 
allowed  for  S/N  curve.  The  maximum  number  of 
data  points  per  set  allowed  is  50. 

MAXMM 

INT 

Maximum  number  of  m’s  to  be  saved  and  sorted 
for  the  truncated  Normal  median  S/N  curve.  The 
maximum  number  of  m’s  is  20,000. 

MAXREG 

INT 

Maximum  number  of  life  regions  allowed  for  the 
S/N  curve.  The  maximum  number  of  regions  is  3. 

MAXSET 

INT 

Maximum  number  of  related  S/N  data  sets  allowed. 
The  maximum  number  of  related  data  sets  is  5. 

MAXTNS 

INT 

Maximum  number  of  tensile  test  points  per  data  set 
allowed  for  the  strain  formulation.  The  maximum 
number  of  tensile  points  is  5. 

MC(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  ranges  on  the 
materials  shape  parameter  m for  each  life  region 
consistent  with  C0,  the  user-specified  upper  bound 
for  the  coefficient  of  variation  of  fatigue  strength  C 
and  the  S/N  data.  The  ranges  for  m’s  implied  by  a 
specified  bound  C0  are  given  in  Equations  2-28 
through  2-32.  MC(1,L)  is  the  lower  bound  and 
MC(2,L)  is  the  upper  bound  in  region  L 

MCE(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  range  on  the 
materials  shape  parameter  m£  for  the  elastic  strain 

components  consistent  with  CQ,  the  user-specified 
upper  bound  for  the  coefficient  of  variation  of 
fatigue  strength  C and  the  S/N  data.  Note:  the  C 
constraint  is  not  utilized  at  this  time  by  the  strain  for- 
mulation, but  is  a necessary  parameter  to  some  of 
the  subroutines  shared  with  the  stress  formulation. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

1)  MCHAT(2,  MAXREG) 

RE 

2)  MCHAT(2,  MAXREG) 

RE 

MCHATE(2,  MAXREG) 

RE 

MCHATP(2,  MAXREG) 

RE 

MCP(2,  MAXREG) 

RE 

MCPNT  (MAXREG) 

INT 

MCPNTE(MAXREG) 

INT 

MCPNTP(MAXREG) 

INT 

1)  ME(0:  MAXREG) 

RE 

2)  ME 

RE 

DESCRIPTION 

2-D  array  containing  values  of  the  point  estimates 
of  m and  C for  each  region,  given  in  Equation  2-22. 
MCHAT(1,L)  = - DD(L),  the  point  estimates  and 
MCHAT(2,L)  = SUHAT,  the  point  estimate  C. 

2-D  array  containing  values  of  the  point  estimates  of 
Cp  and  CE  given  in  Equation  2-22.  MCHAT(2,1)  = 
MCHATP(2,1),  and  MCHAT(2,2)  = MCHATE(2,1). 

2-D  array  containing  values  of  the  point  estimates 
of  mE  and  CE  for  the  elastic  strain  components, 
given  in  Equation  2-22.  MCHATE(l.t)  = - DD(1). 
the  point  estimate  fnE  and  MCHATE  (2,1)  = 
SUHAT,  the  point  estimate  CE. 

2-D  array  containing  values  of  the  point  estimates 
of  mp  and  CP  for  the  plastic  strain  components, 
given  in  Equation  2-22.  MCHATP(I.I)  = - DD(1), 
the  point  estimate  mp  and  MCHATP(2,1)  = 
SUHAT,  the  point  estimate  Cp. 

2-D  array  containing  values  of  the  range  on  the 
materials  shape  parameter  mp  for  the  plastic  strain 
components  consistent  with  CQ,  the  user-specified 
upper  bound  for  the  coefficient  of  variation  of 
fatigue  strength  C and  the  S/N  data  Note:  the  C 
constraint  is  not  utilized  at  this  time  by  the  strain  for- 
mulation, but  is  a necessary  parameter  to  some  of 
the  subroutines  shared  with  the  stress  formulation. 

1 -D  array  containing  the  number  of  points,  0, 1 , 
or  2,  in  MC( ) for  each  life  region. 

1 -D  array  containing  the  number  of  points,  0, 1 , 
or  2,  in  MCE( ).  All  entries  are  zero  for  the  strain 
formulation. 

1 -D  array  containing  the  number  of  points,  0, 1 , 
or  2,  in  MCP( ).  All  entries  are  zero  for  the  strain 
formulation. 

mE  in  Equation  2-43,  the  1-D  array  containing  the 
randomly  selected  value  of  the  materials  model 
shape  parameter  for  the  elastic  strain  component 
of  the  S/N  curve. 

mE  in  Equation  2-47,  the  median  mE  for  the  user- 
provided  elastic  strain  components. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 
3)  ME 

TYPE 

RE 

DESCRIPTION 

Scalar  variable  used  by  function  GTUF2,  equal  to 
ME(1). 

MEANX(0:MAXSET) 

RE 

1 -D  array  containing  values  of  Xj,  Equations  2-20 
and  2-21,  the  sample  X mean  for  points  from  region 
Land  data  set  J,  whereX  = In  S. 

M EAN  Y (0:M  AXSET) 

RE 

1 -D  array  containing  values  of  yj,  Equations  2-20 
and  2-21,  the  sample  Y mean  for  points  from  region 
L and  data  set  J,  where  Y = In  N. 

MEANZ 

RE 

Z in  Equation  2-42,  the  sample  mean  of  the  trans- 
formed data  of  Equations  2-39  through  2-41. 

MEBN0(2,  MAXREG) 

RE 

2-D  array  containing  the  allowable  posterior 
credibility  range  on  mE  for  the  elastic  strain  com- 
ponents, after  the  random  selection  of  mp  for  the 
plastic  strain  components. 

MEDM(MAXMM) 

RE 

1 -D  array  containing  the  median  m for  each  life 
region  of  the  S/N  curve.1 1 

MEDME(MAXREG) 

RE 

1 -D  array  containing  the  median  me  for  the  elastic 
strain  component  of  the  S/N  curve.  1 

MEDMP(MAXREG) 

RE 

1 -D  array  containing  the  median  mP  for  the  plastic 
strain  component  of  the  S/N  curve.1 1 

MID 

INT 

Pointer  to  the  median  m values  in  array  SORTM{ ) 
for  the  truncated  Normal  median  S/N  curve.  Value 
of  half  of  NTRIAL 

MM(0:MAXREG) 

RE 

mj  in  Equation  2-12,  the  1-D  array  containing  the  ran- 
domly selected  values  of  the  materials  model  shape 
parameter  m for  each  life  region  of  the  S/N  curve. 

MML 

RE 

Value  of  MM(L)  for  a set  of  calculations. 

MO(MAXREG) 

RE 

1 -D  array  containing  values  of  the  location 
parameter  mQ  of  the  Bayesian  prior  distribution  of 
the  shape  parameter  m for  each  life  region.3 

MOE  (MAXREG) 

» 

RE 

1 -D  array  containing  the  value  of  the  location  parameter 

moE  of  the  Bayesian  prior  distribution  of  the  shape 
parameter  mE  for  the  elastic  strain  components. 

MOP(MAXREG) 

RE 

1 -D  array  containing  the  value  of  the  location  parameter 
moP  of  the  Bayesian  prior  distribution  of  the  shape 
parameter  mP  for  the  plastic  strain  components. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

1)  MP(0:MAXREG) 

RE 

mp  in  Equation  2-43,  the  1 -D  array  containing  the 
randomly  selected  value  of  the  materials  model 
shape  parameter  for  the  plastic  strain  component 
of  the  S/N  curve. 

2)  MP 

RE 

mP  in  Equation  2-47,  the  median  mp  for  the  user- 
provided  plastic  strain  components. 

3)  MP 

RE 

Scalar  variable  used  by  function  GTUF2,  equal  to 
MP(1). 

MPNT(MAXREG) 

RE 

1-D  array  containing  the  number  of  points,  0, 1 , or 
2,  in  MZERO( ) for  each  life  region. 

MPNTE(MAXREG) 

RE 

1 -D  array  containing  the  number  of  points,  0, 1 , or 
2,  in  MZEROE( ) for  the  elastic  strain  component. 

MPNTP(MAXREG) 

RE 

1-D  array  containing  the  number  of  points,  0, 1 , or 
2,  in  MZEROP( ) for  the  plastic  strain  component. 

MPROC 

INT 

Materials  PROCess  variation.  Controls  materials 
process  variation.  A value  of  0 indicates  no  materials 
process  variation,  while  a value  of  1 indicates  that 
materials  process  variation  should  be  included. 

MTERM 

RE 

Value  of  - [(1  / MP)  - (1  / ME)].13 

MU(MAXREG) 

RE 

1 -D  array  containing  the  posterior  Normal  distribution 
mean14  of  the  materials  shape  parameter  m for  each 
life  region  of  the  truncated  Normal  S/N  curve. 

MUE(MAXREG) 

RE 

1 -D  array  containing  the  posterior  Normal  distribu- 
tion mean15  of  the  materials  shape  parameter  mP 
for  the  elastic  strain  components  of  the  truncated 
Normal  S/N  curve. 

MUP(MAXREG) 

RE 

1 -D  array  containing  the  posterior  Normal  distribu- 
tion mean16  of  the  materials  shape  parameter  mp 
for  the  plastic  strain  components  of  the  truncated 
Normal  S/N  curve. 

MZERO(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  user-specified 
explicit  constraints  on  the  shape  parameter  m for 
each  life  region,  given  in  Equation  2-27. 
MZERO(1,L)  is  the  lower  bound  and  MZERO(2,L) 
is  the  upper  bound. 

MZEROE(2,  MAXREG) 

RE 

2-D  array  containing  values  of  the  user-specified 
explicit  constraints  on  the  shape  parameter  mp  for 

the  elastic  strain  components.  MZEROE(I.I)  is  the 
lower  bound  and  MZEROE(2,1)  is  the  upper  bound. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 
MZEROP(2,  MAXREG) 

NBND(0:MAXREG) 

NCOMPS 

NDC(0:MAXSET) 

NDIV 

NF(MAXDAT,  MAXREG) 
NMED 


NNODAT 

1)  NP(0:MAXSET,  MAXREG) 

2)  NP 

NPPR  (MAXREG) 

1)  NPTS  (MAXREG) 

2)  NPTS(0:MAXSET) 


TYPE  DESCRIPTION 

RE  2-D  array  containing  values  of  the  user-specified 
explicit  constraints  on  the  shape  parameter  mP  for 
the  plastic  strain  components.  MZEROP(I.I)  is  the 
lower  bound  and  MZEROP(2,1)  is  the  upper  bound. 

RE  Nji+ 1 in  Equation  2-35,  the  1 -D  array  containing 

upper  bounds  for  the  NUMREG  life  regions  of  inter- 
est for  the  specific  material  S/N  data  set. 

I NT  Number  of  COMPonentS.  Controls  the  formulation 

of  the  S/N  curve  to  be  used.  A value  of  1 indicates 
the  stress  formulation,  while  a value  of  2 indicates 
the  strain  formulation. 

I NT  Number  of  Decomposed  points.  1 -D  array  contain- 
ing the  number  of  strain  data  points  with  user- 
provided  plastic  and  elastic  component  information 
for  each  S/N  data  set 

I NT  Number  of  input  data  divisions  for  an  S/N  data  set. 
A data  set  is  broken  into  divisions  by  ( stress  ratio, 
life  region)  pairs  during  input. 

RE  2-D  array  containing  values  from  the  array 

RAWNF( ) for  the  specific  material  S/N  data  set 
partitioned  into  life  regions. 

INT  Controls  S/N  curve  median  calculation  for  the 
truncated  Normal  distribution  case.  A value  of  0 
indicates  that  the  user  does  not  desire  a median  cal- 
culation or  that  the  Uniform  distribution  case  is  being 
used;  whleavalueofl  indicates  that  the  user 
desires  the  median  calculation  to  be  performed. 

INT  Number  of  NO  DATa  regions,  the  number  of  life 
regions  to  the  right  with  no  S/N  data. 

INT  2-D  array  containing  number  of  points  of  each  S/N 
data  set  in  each  life  region. 

INT  The  total  number  of  points  in  the  specific  material 
S/N  data  set. 

INT  Number  of  Points  Per  Region.  1 -D  array  containing 
values  of  N in  Equation  2-20  for  each  life  region. 

INT  1 -D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

INT  1 -D  array  containing  the  total  number  of  points  in 
each  S/N  data  set. 


7-344 


Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

NSETS 

INT 

NTENS(0:MAXSET) 

INT 

NTRIAL 

INT 

1)  NUM 

INT 

2)  NUM 

INT 

3)  NUM(MAXREG) 

INT 

4)  NUM(0:MAXSET) 

INT 

5)  NUM 

INT 

NUM1 

INT 

NUM2 

INT 

NUMREG 

INT 

NZERO 

RE 

PHI 

RE 

PI 

RE 

PICK(2) 

RE 

PLAS(MAXDAT,  0:MAXSET) 

RE 

PSIG 

RE 

PSIG2(MAXREG) 

RE 

DESCRIPTION 

P in  Equation  2-20,  the  number  of  related  material 
S/N  data  sets. 

1 -D  array  containing  the  number  of  tensile  test  data 
points  for  each  S/N  data  set  for  the  strain  formulation. 

Number  of  m s to  be  used  to  calculate  the  empirical 
median  S/N  curve  for  the  truncated  Normal  case. 
Number  of  S/N  data  points  in  a particular  data 
division  during  data  input 
Value  of  NPPR(L)  for  a set  of  calculations. 

1-D  array  containing  values  of  [ (2  Nj)  - 1]  for 
each  life  region. 

1 -D  array  containing  the  number  of  points  in  each 
S/N  data  set. 

Number  of  elements  in  array  ALLM( ) to  be  sorted. 

Index  of  first  point  in  STR( ) to  have  the  stress  ratio 
transformation  performed. 

Index  of  last  point  in  STR( ) to  have  the  stress  ratio 
transformation  performed. 

R in  Equation  2-11,  the  number  of  life  regions  of 
interest  in  the  S/N  curve. 

N0,  the  life  from  the  elastic  portion  of  the  strain 
formulation  S/N  curve  used  as  the  initial  value  in 
the  Newton  s method  calculations. 

<p  in  Equation  2-11,  the  materials  intrinsic  variation, 
or  scatter,  given  by  a Weibull(/J0,  t/0  (fiQ))  random 
variate. 

n,  constant  equal  to  3.1415926536. 

1 -D  array  containing  the  bounds  of  the  credibility 
range  for  m in  a region  adjusted  for  concavity  con- 
straints after  the  random  selection  of  m in  the  life 
region  to  the  left.  PICK( ) is  only  used  in  multiple 
region  cases. 

2-D  array  containing  values  of  the  plastic  strain 
components  Sp  (%). 

o in  Equation  2-48,  the  value  of  SORT (PVAR). 

1- D  array  containing  the  estimates  of  a2,  Equation 

2- 49,  for  each  life  region. 
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VARIABLE  NAME 

TYPE 

PVAR 

RE 

R 

RE 

RAND 

DRE 

RANGEM(2,  MAXREG) 

RE 

RANGME(2,  MAXREG) 

RE 

RANGMP(2,  MAXREG) 

RE 

RATIO 

RE 

RATSTR (M AXDAT,  0:MAXSET) 

RE 

R AWN F (M AXD AT,  0:MAXSET) 

RE 

RAWSTR (M AXDAT,  0:MAXSET) 

RE 

REFNP(MAXREG) 

INT 

REG 

INT 

RFNP(MAXREG) 

INT 

DESCRIPTION 

a2  in  Equation  2-48,  characterizes  the  extent  of 
departure  from  the  multiple  heat  median  S/N  curve 
warranted  by  the  avalable  information. 

S/N  data  stress  ratio,  a stress  ratio  of  - 1 .0  is 
desired. 

Random  number  seed. 

2-D  array  containing  values  of  the  posterior 
credibility  ranges  on  the  materials  model  shape 
parameter  m for  each  life  region  in  the  S/N  curve. 
RANGEM(I.L)  is  the  lower  bound  and 
RANGEM(2,L)  is  the  upper  bound  in  region  L18 

2-D  array  containing  values  of  the  posterior 
credibility  range  on  the  materials  model  shape 
parameter  mE  for  the  elastic  strain  components. 
RANGME(I.I)  is  the  lower  bound  and 
RANGME(2,1)  is  the  upper  bound.19 

2-D  array  containing  values  of  the  posterior 
credibility  range  on  the  materials  model  shape 
parameter  ntp  for  the  plastic  strain  components. 
RANGMP(1,1)  is  the  lower  bound  and 
RANGMP(2,1)  is  the  upper  bound.20 

S/N  data  stress  ratio,  a stress  ratio  of  - 1 .0  is 
desired. 

2-D  array  containing  stress  points  (psi)  with  stress 
ratio  = —1.0,  or  strain  total  points  (%)  for  all  S/N 
data  sets. 

2-D  array  containing  the  cycles  to  faOure  data  for 
all  S/N  data  sets. 

2-D  array  containing  the  user-provided  stress  data 
(psi)  or  total  strain  data  (%)  for  all  S/N  data  sets. 

1 -D  array  containing  the  number  of  points  per  life 
region  for  the  specific  material  S/N  data  set. 

Life  region  of  interest  for  a particular  data  division 
during  data  input  for  the  stress  formulation. 

1 -D  array  containing  the  number  of  points  for  the 
specific  material  S/N  data  set,  RFNF(1)  = NP(0,1). 
Note:  for  the  strain  formulation  case  only  region  1 
is  used. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

RFSTRE(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  elastic  strain  component 
points  (%),  SE( ) or  STRE( ).  for  the  specific 

material  S/N  data  set,  strain  formulation. 

RFSTRP(MAXDAT,  MAXREG) 

RE 

2-D  array  containing  plastic  strain  component 
points  (%),  SP( ) or  STRP( ),  for  the  specific 

materials  S/N  data  set,  strain  formulation. 

RSTR(MAXDAT,  0:MAXSET) 

RE 

2-D  array  containing  stress  points  (psi)  with  stress 
ratio  = -1.0,  or  strain  total  points  (%)  for  all  S/N 

datasets. 

S 

RE 

Value  of  stress  S (psi)  for  which  a value  of  fatigue 
cycles  to  failure  is  required. 

SBND(0:MAXREG) 

RE 

1-D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1.0,  corresponding  to  the  “life 
boundary"  values  for  each  life  region  of  the  S/N 
curve  contained  in  array  NBND( ). 

SCLK 

RE 

Adjustment  factor  for  BIGK( ) If  TRSBND(0)  > 
SZERO.21 

SE(MAXDAT,  0:MAXSET) 

RE 

2-D  array  containing  values  of  the  user-provided 
elastic  strain  components  Sg  (%). 

SIG  (MAXREG) 

RE 

1 -D  array  containing  theposterior  Normal  distribu- 
tion standard  deviation22  of  the  materials  model 

shape  parameter  m for  each  life  region  of  the  trun- 
cated Normal  S/N  curve. 

SIG2E(MAXREG) 

RE 

1 -D  array  containing  value  of  V (In  N | In  S^),  the 
shape  parameter  a £ of  the  original  distribution  of 
the  shape  parameter  for  the  elastic  strain  com- 
ponents.3 

SIG2P  (MAXREG) 

RE 

1-D  array  containing  value  of  V (In  N | In  Sp),  the 
shape  parameter  op  of  the  original  distribution  of 
the  shape  parameter  nip  for  the  plastic  strain  com- 
ponents.3 

SIGE(MAXREG) 

RE 

1-D  array  containing  the  posterior  Normal  distribu- 
tion standard  deviation23  of  the  materials  model 

shape  parameter  m£  for  the  elastic  strain  com- 
ponents. 

SIGMA2(MAXREG) 

RE 

1-D  array  containing  values  of  V (In  N \ In  S),  the 
shape  parameter  a2  of  the  original  distribution  of 

the  shape  parameter  m for  each  life  region. 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont'd) 


VARIABLE  NAME  TYPE 

SIGP(MAXREG)  RE 

SP(MAXDAT,  0:MAXSET)  RE 

1)  STR(MAXDAT,  MAXREG)  RE 

2)  STR(MAXDAT,  O'.MAXSET)  RE 

3)  STR  RE 

STRAIN  RE 

STRE(MAXDAT,  0:MAXSET)  RE 

STRESS  RE 

STRP(MAXDAT,  0:MAXSET)  RE 

SUHAT  RE 

SUHAT2(MAXREG)  RE 

SUM  RE 

SUMX2  RE 

SWHAT  RE 

SWHAT2(MAXREG)  RE 

SX  RE 


DESCRIPTION 

1- D  array  containing  the  posterior  Normal  distribu- 
tion standard  deviation2*  of  the  materials  model 
shape  parameter  mp  for  the  plastic  strain  com- 
ponents. 

2- D  array  containing  values  of  the  user-provided 
plastic  strain  components  Sp  (%). 

2-D  array  containing  stress  points  with  stress  ratio 
= —i  .0,  for  the  specific  material  S/N  data  set  parti- 
tioned into  life  regions,  stress  formulation. 

2-D  array  containing  the  user-provided  stress  data 
(psi)  or  total  strain  data  (%)  for  all  S/N  data  sets. 
Value  of  total  strain  S (%)  for  which  a value  of 
fatigue  cycles  to  failure  is  required. 

Value  of  total  strain  S (%)  for  which  fatigue  cycles 
to  failure  is  desired. 

2-D  array  containing  values  of  the  user-provided 
and  the  calculated  elastic  strain  components  SE 

(%)• 

Value  of  stress  (psi)  for  which  fatigue  cycles  to 
failure  is  desired. 

2-D  array  containing  values  of  the  user-provided 
and  the  calculated  plastic  strain  components  SP 

(%)• 

Value  of  SUHAT2(L)  **  0.5  for  a set  of  calculations. 

1 -D  array  containing  values  of  the  residual  varian- 
ces Equation  2-21,  from  the  X on  Y regression 
for  each  life  region,  where  X = In  S,  Y = In  N. 

Value  of  I(PSIG2(L)  * NUM(L)),  a weighted  sum  of 
the  PSIG2’s,  used  to  calculate  a weighted  average 
to  obtain  o2  in  Equation  2-49. 25 

Value  of  (NPPR( ) * SX2( ))  for  a particular  life 
region. 

Value  of  SWHAT2(L)  **  0.5  for  a set  of  calculations. 

1 -D  array  containing  values  of  the  residual  varian- 
ces s£,  Equation  2-20,  from  the  Y on  X regression 
for  each  life  region,  where  X = In  S , Y ~ In  N. 

Value  of  (NPPR(L)  * SX2(L))  **  0.5  for  a set  of 
calculations. 
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Table  7-8 


List  of  Variables  for  Program  MATCHR  (Cont’d) 


VARIABLE  NAME 

TYPE 

SX2(MAXREG) 

RE 

SXY(MAXREG) 

RE 

SY2(MAXREG) 

RE 

SZ 

RE 

SZ2 

RE 

SZERO 

RE 

T 

RE 

T025(TTAB) 

RE 

1)  TEMP 

RE 

2)  TEMP 

RE 

TEST 

RE 

TESTM 

RE 

TNSILE(0:MAXSET,  MAXTNS) 

RE 

TOTAL 

INT 

TRBIGK(0:MAXREG) 

RE 

TRSBND(O-.MAXREG) 

RE 

DESCRIPTION 

1 -D  array  containing  values  of  the  sample  variance 
S2  Equation  2-20,  for  each  life  region,  where 
X = In  S. 

1 -D  array  containing  values  of  the  sample 
covariance  S^,  Equation  2-20,  for  each  life  region, 
where  X = In  S,  Y = In  N. 

1 -D  array  containing  values  of  the  sample  variance 
Sy,  Equation  2-21,  for  each  life  region,  where 
/=  In  N. 


Value  of  SZ2  **  0.5. 

Sz2  in  Equation  2-42,  the  sample  variance  of  the 
transformed  data  of  Equations  2-39  through  2-4 1. 

Stress  tensile  test  point,  SQ  (psi).21 


Value  of  T025( ) to  be  used  In  calculations  for 
Equation  2-26. 

Table  of  0.025  percentage  points  for  the  Student’s 
f-distribution. 

Temporary  variable  used  to  prevent  arithmetic  under- 
flows and  overflows  during  fatigue  life  calculation. 
Temporary  variable  used  during  insertion  sort. 

Value  of  Kt  Smax  (t  - ft)  1 2,  to  be  compared  with 
FTY  during  the  stress  ratio  transformation  calcula- 
tions. See  Section  4. 1.3.3  for  a discussion  of  the 
stress  ratio  transformation  calculations. 


Upper  bound  of  the  posterior  credibility  range  on 
m in  region  (L  - 1).  used  during  concavity  adjust- 
merit  calculations. 


2-D  array  containing  tensile  test  data  points  for 
each  S/N  data  set,  strain  formulation. 

Sum  of  NUM( ) over  all  life  regions.25 

1-D  array  containing  values  of  the  materials  model 
location  parameter  K consistent  with  the  tensile 
point  S0. 1 

1-D  array  containing  the  stress  values  (psi)  with 
stress  ratio  = -1.0,  corresponding  to  the  “life 
boundary"  values  for  each  region  of  the  S/N  curve 
contained  in  array  NBND( ) for  each  PHI  draw 
consistent  with  the  tensile  point  S0.21 
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Table  7-8  List  of  Variables  for  Program  MATCHR  (Cont'd) 


VARIABLE  NAME 
TTAB 

UPPER 

VARY 


1)  X 

2)  X 

3)  X 

XST 

Z 

ZROREG 


ZZ(MAXOAT) 


TYPE  DESCRIPTION 

I NT  Maximum  number  of  degrees  of  freedom  In  T025( ). 

The  maximum  number  is  31 . 

RE  The  upper  bound  of  the  intersection  to  find  n (m)  in 
a particular  region.9 

I NT  Controls  type  of  S/N  curve  variation  desired.  A 
value  of  0 indicates  that  no  variation  is  required;  a 
value  of  1 means  that  intrinsic  materials  variation 
only;  a value  of  2 indicates  that  the  user  desires  a 
Uniform  distribution  on  m,  while  a value  of  3 indi- 
cates that  a truncated  Normal  distribution  is 
desired. 

RE  Un»orm(0, 1)  random  variate  used  to  obtain  a 
randomly  selected  value  for  m. 

RE  Normal^,  a 2)  random  variate  used  to  obtain  a 

randomly  selected  value  for  m. 

RE  Value  of  the  root  of  the  equation  f(x)  = 0 for  a par- 

ticular iteration  of  the  Newton’s  method  calculations. 

RE  Value  of  the  initial  guess  of  the  root  x for  the 
Newton’s  method  calculations. 

RE  Z in  Equation  2-48,  the  randomly  selected  process 

variation  shift  factor  given  by  a Lognormal(0,  PVAR) 
random  variate. 

INT  ZeRO  REGion.  the  variable  permits  the  inclusion  of 
the  tensile  point  S„.  The  value  of  0 implies  a DO 
loop  from  zero  to  NUMREG,  while  a value  of  1 
causes  the  DO  loop  to  be  executed  from  one  to 
NUMREG.21 

RE  Z in  the  data  transformation  of  Equations  2-39 
through  2-47. 


1 The  need  for  saving  m’s  is  discussed  on  Page  2-15. 

2 See  variable  BZERO  for  a description  of  /30. 

3 Specification  of  the  Bayesian  prior  distribution  for  the  truncated  Normal  case  is  discussed  on 
Page  2-14. 

4 The  median  S/N  curve  for  the  truncated  Normal  case  is  discussed  on  Page  2-15. 

5 Use  definition  3 of  variables  ME  and  MP. 

6 Use  definition  2 of  variables  KE  and  KP. 

7 See  variable  K,  definition  2,  for  a description  of  k. 

8 XN  'i s discussed  on  Pages  2-21  and  2-22. 

9 The  procedure  for  obtaining  n (m)  is  discussed  on  Page  2-13. 
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10  The  median  m calculation  for  the  Uniform  case  is  discussed  on  Pages  2-13  through  2-14. 

1 1 The  median  S/N  curve  for  the  Uniform  case  is  discussed  on  Pages  2-13  through  2-14  and  for 
the  truncated  Normal  case  is  discussed  on  Page  2-15. 

12  See  Section  2. 1.2.3  for  a discussion  of  process  variation  in  materials. 

13  Use  definition  2 of  variables  ME  and  MP. 

14  m.  of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

15  mm£  of  the  posterior  density  of  m£  is  discussed  on  Page  2-14. 

16  mtP  of  the  posterior  density  of  mp  is  discussed  on  Page  2-14. 

17  Extension  of  the  S/N  curve  to  the  right  is  discussed  on  Page  2-17. 

18  The  posterior  credibility  ranges  Jt(m)  are  discussed  on  Page  2-13. 

19  The  posterior  credibility  range  n (m£)  is  discussed  on  Page  2-13. 

20  The  posterior  credibility  range  n(mp)  is  discussed  on  Page  2-13. 

21  Extension  of  the  S/N  curve  to  the  left  using  the  tensile  point  is  discussed  on  Page  2-17. 

22  o9  of  the  posterior  density  of  m is  discussed  on  Page  2-14. 

23  o*£  of  the  posterior  density  of  m£  is  discussed  on  Page  2-14. 

24  0'P  of  the  posterior  density  of  mp  is  discussed  on  Page  2-14. 

28  Use  definition  3 for  variable  NUM( ). 

26  Concavity  constraints  are  discussed  on  Pages  2-13  through  2-14. 
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Table  7-9  Routine/Variable  Chart 


Table  7-9  Routine/Variable  Chart  (Cont’d) 
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Table  7-9  Routine/Variable  Chart  (Cont’d) 
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Table  7-9  Routine/Variable  Chart  (Coat’d) 
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Table  7-9  Routlne/Variable  Chart  (Cont’d) 
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Table  7-9  Routine/Variable  Chart  (Cont'd) 
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Table  7-9  Routine/Variable  Chart  (Cont'd) 
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7.3.1 .4  Program  MATCHR  Listing 


Routine Pag®. 

Program  MATCHR  Listing  Temporal  Order,  Stress  Formulation,  Uniform  Distribution 7-361 

Program  MATCHR  Listing  Temporal  Order,  Stress  Formulation, Truncated  Normal  Distribution ..  7-362 

Program  MATCHR  Listing  Temporal  Order,  Strain  Formulation,  Uniform  Distribution 7-363 

Program  MATCHR  Listing  Temporal  Order,  Strain  Formulation,  Truncated  Normal  Distribution  ..  7-365 


MATCHR... 
TRMNAT.... 
INFAGG  ... 

INIT 

RCE 

CONVRT ... 
SW2SU2  .. 
FINDMC  ... 

INTRVL 

GTPVAR.... 
FNDRNG... 
ADDREG  .. 
CONCAV.. 
MEDIAN... 
EXPCTD  .. 
MUSIG  .... 
NORRNG 
ADDRGN . 
DECOMP 

INITD 

RDECHO 

PREP 

PECOMP 
PAREST  .. 

FINDM 

RANDOM 
FINDMN  .. 
NORMGN 
TRNSFM  . 
SMNVAR 

KBETA 

FINDK 

FINDSB  ... 
ADJSTM  . 
WEIBGN 
KOMO  .... 


7-367 

7-372 

7-372 

7-377 

7-379 

7-386 

7-387 

7-389 

7-391 

.7-394 

7-396 

.7-399 

.7-401 

.7-402 

.7-403 

.7-405 

.7-407 

.7-409 

.7-411 

.7-418 

.7-421 

.7-425 

.7-427 

.7-430 

.7-432 

.7-433 

.7-434 

.7-436 

..7-437 

..7-438 

..7-439 

..7-440 

..7-441 

..7-442 

..7-443 

..7-444 


7-359 


Routine 


Page 


GTUFE  7445 

GTL1F2 7-446 

FCT 7447 

NEWTON  7449 

SORTM 7450 


MATCHR  Version  8.5 
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Program  MATCHR  Usting  Temporal  Order,  Stress  Formulation,  Uniform 
Distribution 


Routine 


Page 


MATCHR.... 
INFAGG  .... 

INIT  

RCE 

CONVRT  ... 
SW2SU2  ... 
FINDMC  ... 

INTRVL 

GTPVAR  ... 
FNDRNG  .. 
ADDREG  .. 
CONCAV .. 
MEDIAN  ... 
EXPCTD  ... 
TRNSFM  .. 
SMNVAR... 

KBETA 

FINDK 

FINDSB 

KOMO 

PARES!  .. 

FINDM 

RANDOM 
TRNSFM  . 
SMNVAR  . 

KBETA 

FINDK 

FINDSB  ... 

NORMGN 

RANDOM 

WEIBGN 

RANDOM 

KOMO  .... 

GTLIFE  ... 


...7-367 
...7-372 
...  7-377 
...7-379 
...7-386 
...7-387 
...7-389 
....7-391 
....7-394 
....7-396 
....7-399 
....7-401 
....7-402 
....7-403 
....7-437 
....7-438 

7-439 

.....7-440 

7-441 

7-444 

7-430 

7-432 

7-433 

7-437 

7-438 

7-439 

7-440 

7-441 

7-436 

7-433 

7-443 

7-433 

7-444 

7-445 
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a-s 


Program  MATCHR  Listing  Temporal  Order,  Stress  Formulation,  Truncated 
Normal  Distribution 


Routine 


Page 


MATCHR 
INFAGG  . 

INIT 

RCE 

CONVRT 

SW2SU2 

FINDMC 

MUSIG  ... 

GTPVAR 

NORRNG 

ADDRGN 

CONCAV 

PAREST 

FINDMN 

NORMGN 

RANDOM 

TRNSFM  .. 

SMNVAR 

KB  ETA  .... 

FINDK 

FINDSB  .. 
NORMGN 
RANDOM 
WEIBGN.. 
RANDOM 
KOMO  .... 
GTUFE  ... 
SORTM  ... 
EXPCTD 
TRNSFM 
SMNVAR 
KB  ETA  ... 
FINDK .... 
FINDSB  . 
KOMO  ... 


.7-367 

.7-372 

.7-377 

.7-379 

.7-386 

.7-387 

.7-389 

.7-405 

.7-394 

.7-407 

.7-409 

.7-401 

..7-430 

..7-434 

..7-436 

.7-433 

..7-437 

..7-438 

..7-439 

..7-440 

..7-441 

..7-436 

..7-433 

..7-443 

...7-433 

...7-444 

...7-445 

...7-450 

...7-403 

...7-437 

...7-438 

...7-439 

...7-440 

...7-441 

...7-444 
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Program  MATCHR  Listing  Temporal  Order,  Strain  Formulation,  Uniform 
Distribution 


Routine 


Page 


MATCHR 

DECOMP 

INITD 

RDECHO  

PREP 

(Find  Kp,  mp  for  given  plastic  components) 

SW2SU2  

INTRVL 

EXPCTD  

TRNSFM  

SMNVAR 

KBETA  

FINDK 

FINDSB 

(Rnd  Ke,  mE  for  given  elastic  components) 

SW2SU2  

INTRVL 

EXPCTD  

TRNSFM  

SMNVAR 

KBETA  

FINDK 

FINDSB 

(Begin  calculations  on  estimated  components) 

PECOMP 

PREP 

(Find  Kp,  mp  for  estimated  plastic  components) 

SW2SU2  

INTRVL 

FNDRNG 

EXPCTD  

TRNSFM  

SMNVAR 

KBETA 

FINDK 

FINDSB 

(Find  Ke,  mE  for  estimated  elastic  components) 

SW2SU2  

INTRVL 

FNDRNG 

EXPCTD  

TRNSFM  

SMNVAR  


7-367 

7-411 

7-418 

7-421 

7-425 

7-387 

7-391 

7-403 

7-437 

7-438 

7-439 

.7-440 

.7-441 

.7-387 

.7-391 

.7-403 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-427 

.7-425 

.7-387 

.7-391 

.7-396 

.7-403 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-387 

.7-391 

.7-396 

.7-403 

..7-437 

..7-438 


7-363 


Routine 


Page 


KBETA  

FINDK 

FINDSB  

GTPVAR  " 

(Perform  parameter  estimation  for  plastic  components) 

PAREST  

FINDM 

RANDOM  

TRNSFM 

SMNVAR  

KBETA  

FINDK 

FINDSB 

ADJSTM 

(Perform  parameter  estimation  for  elastic  components) 

PAREST  

FINDM 

RANDOM  

TRNSFM 

SMNVAR  

KBETA  

FINDK 

FINDSB  

(Pick  <p,  Z) 

WEIBGN 

RANDOM  

NORMGN 

RANDOM  

(Calculate  life) 

GTUF2 

NEWTON  

FCT 


7-439 

7-440 

7-441 

7-394 

.7-430 

.7-432 

.7-433 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-442 

.7-430 

.7-432 

.7-433 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-443 

.7-433 

.7-436 

..7-433 

..7-446 

.7-449 

..7-447 
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Program  MATCH R Listing  Temporal  Order,  Strain  Formulation,  Truncated 
Normal  Distribution 


Routine 


Page 


MATCHR 

DECOMP 

INITD 

RDECHO  

PREP 

(Find  Kp,  mp  for  given  plastic  components) 

SW2SU2  

INTRVL 

EXPCTD  

TRNSFM  

SMNVAR 

KBETA  

FINDK 

FINDSB 

(Find  K£,  mE  for  given  elastic  components) 

SW2SU2  

INTRVL 

EXPCTD 

TRNSFM  

SMNVAR 

KBETA  

FINDK 

FINDSB 

(Begin  calculations  on  estimated  components) 

PECOMP  

PREP 

(Find  Kp,  mp  for  estimated  plastic  components) 

SW2SU2  

MUSIG  

NORRNG 

(Find  Ke , mE  for  estimated  elastic  components) 

SW2SU2  

MUSIG  

NORRNG  

GTPVAR 

(Perform  parameter  estimation  for  plastic  components) 

PAREST  

FINDMN 

NORMGN  

RANDOM 

TRNSFM  

SMNVAR 

KBETA  


7-367 

7-411 

7-418 

7-421 

7-425 

7-387 

7-391 

7-403 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-387 

.7-391 

.7-403 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-427 

.7-425 

.7-387 

..7-405 

.7-407 

..7-387 

..7-405 

..7-407 

..7-394 

..7-430 
..7-434 
..7-436 
..7-433 
...  7-437 
...7-438 
...7-439 


7-365 


Routine 


FINDK 

RNDSB  

ADJSTM  

(Perform  parameter  estimation  for  elastic  components) 

PAREST  

FINDMN  

NORMGN 

RANDOM  

TRNSFM 

SMNVAR  

KBETA  



RNDSB  

(Pick  <p,  Z) 

WEIBGN 

RANDOM  

NORMGN  

RANDOM  

(Calculate  life) 

GTUF2 

NEWTON  

FCT 

(Sort  mp's  and  mE' s) 

SORTM 

(Calculate  median  plastic  S/N  parameters) 

EXPCTD  

TRNSFM 

SMNVAR  

KBETA  

FINDK 

FINDSB  

(Calculate  median  elastic  S/N  parameters) 

EXPCTD  

TRNSFM  

SMNVAR  

KBETA 

FINDK 

FINDSB 


7-440 

7-441 

.7-442 

.7-430 

.7-434 

.7-436 

.7-433 

.7-437 

.7-438 

.7-439 

.7-440 

.7-441 

.7-443 

.7-433 

.7-436 

.7-433 

.7-446 

.7-449 

.7-447 

.7-450 

..7-403 

..7-437 

..7-438 

..7-439 

..7-440 

..7-441 

..7-403 

..7-437 

..7-438 

..7-439 

..7-440 

..7-441 
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PROGRAM  MATCHR  PERFORMS  THE  OVERALL  CONTROL  OF  THE  STAND-ALONE 
MATERIALS  CHARACTERIZATION  CALCULATIONS 
PROGRAMMER:  L.  NEWLIN 

DATE:  1AUG91 

VERSION:  8.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


PROGRAM  MATCHR 


SUBPROGRAMS : 
FILES: 


TRMNAT,  INFAGG,  PAREST,  NORMGN,  WEIBGN,  ROMO,  GTLIFE, 
DECOMP,  ADJSTM,  GTLIF2,  SORTM,  EXPCTD  mf_« 

1 :SPEciD-OLD;  5:SPECFO-NEW;  5:RELATD-QLD;  6 :RELATO-NEW; 
7 : DUMP -NEW;  8 : IOUTPR-NEW 

NOTE:  5 i 6 ARE  OPENED  IN  INFAGG  OR  DECOMP 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXMM,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXMM  = 20001,  MAXREG  “ 3) 


COMMON  I OUT 


INTEGER 

& 

REAL 


II,  I OUT,  L,  MID,  MPROC,  NCOMPS,  NMED,  NPTS (MAXREG) , 
NTRIAL,  NUMREG,  VARY,  ZROREG 

ALLM(  MAXMM,  MAXREG),  BIGK(0  :MAXREG)  , BIGKl, 

BIGKE ( 0 : MAXREG) , BIGKP(0:MAXREG),  BZERO,  BZEROE,  BZEROP, 
FACTR,  FTUZ,  FTYZ,  GTLIF2.  GTLIFE,  KRATIO^  LIFE,  LNZ, 

SSIoiiwmij; 

MUP (MAXREG) , NBND( 0 : MAXREG),  NF (MAXDAT,  MAXREG ),  PHI, 
PSIG,  PVAR  RANGEM<2,  MAXREG),  RANGMEjJ,  MAXREG) , 
RANGMP(2,  MAXREG),  RFSTRE (MAXDAT,  MAXREG), 

RFSTRP( MAXDAT,  MAXREG) , SBND( 0 : MAXREG) , SIG( MAXREG), 
SIGE(MAXREG),  SIGP(MAXREG),  STR( MAXDAT,  MAXREG),  STRAIN, 
STRESS,  SZERO,  TRBIGK( 0 :MAXREG) , TRSBND ( 0 : MAXREG) , Z 


DOUBLE  PRECISION  RAND 


C 

C 

C ALLM( ) 

C BIGK() 

C 

C BIGKl 
C 

C BIGKE () 
C BIGKP ( ) 
C BZERO 
C 

C BZEROE 
C 

C BZEROP 
C 

C FACTR 
C FTUZ 
C FTYZ 
C GTLIF2 
C 

C GTLIFE 
C 

C II 
C I OUT 
C KRATIO 
C L 
C LIFE 
C LNZ 
C MAXDAT 


LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  M VALUES  TO  BE  SORTED  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A * K **  M FOR 

EQt^H,I^BIGK  ( 1 ) — DUMMY  PARAMETER  FOR  CALLS  TO  SUBROUTINE 
EXPCTD 

1— D ARRAY  CONTAINING  VALUE  OF  Ke  FOR  ELASTIC  £O^ONENTS 
1— D ARRAY  CONTAINING  VALUE  OF  Kp  FOR 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA 
SET 

VALUE  OF  WEIBULL  PARAMETER,  BETAoe,  CHARACTERIZING  ELASTIC 
COMPONENTS  OF  S/N  DATA  SET  TTT„-  »r  ,«rr 

VALUE  OF  WEIBULL  PARAMETER,  BETAop,  CHARACTERIZING  PLASTIC 
COMPONENTS  OF  S/N  DATA  SET 
IT  IS  FACTOR  - PHI  * KRATIO  * Z 
ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
FUNCTION  WHICH  CALCULATES  THE  CYCLES  TO  FAILURE  AT  A 
GIVEN  STRAIN 

FUNCTION  WHICH  CALCULATES  THE  CYCLES  TO  FAILURE  AT  A 
GIVEN  STRESS  OR  STRAIN  WHEN  NCOMPS  « 1 
CONTROLS  DO  LOOP  FOR  EACH  TRIAL 
OUTPUT  DUMP  CONTROLLER  _ _ 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION  .M  , Ttl 

CYCLES  TO  FAILURE  AT  A GIVEN  STRESS  OR  STRAIN 
NORMAL ( 0 , PVAR ) GENERATED  RANDOM  VARIATE 

MAXIMUM  NUMBER  OF  POINTS  PER  DATA  SET  (PER  REGION)  ALLOWED 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MAXMM 

HAXREG 

ME<) 

MEBND( ) 

MEDM( ) 

MID 

Sit 

MPROC 

MU() 

MUE  ( ) 

MUP(  ) 
NBND( ) 

HCOMPS 

NF() 

NMED 

NPTS ( ) 

NTRIAL 

NUMREG 

PHI 

PSIG 

PVAR 

RAND 

RANGEM() 

RANGME() 

RANGMP ( ) 

RFSTRE ( ) 
RFSTRP ( ) 
SBND() 

SIG( ) 
SIGE() 
SIGP  ( ) 
STR<  ) 

STRAIN 

STRESS 
SZERO 
TRBIGK( ) 

TRSBND( ) 
VARY 


MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUE  OF  Me  FOR  ELASTIC 

2.S°^f^NTAINING  ALLOWABLE  RANGE  ON  Me,  FOR  ELASTIC 
COMPONENTS.  AFTER  SELECTION  OF  Mp 
1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION  ___ 

POINTER  TO  THE  MEDIAN  M VALUES  — EQUAL  TO  HALF  OT  NTRIAL 
1— D ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  SELECTED  VALUE  OF  Mp  FOR  PLASTIC 

Ha teri al fNpROCe b b variation  — CONTROLS  MATERIALS  process 
VARIATION  — 0 - NO  VARIATION;  1 - ^*****£101* 

1-D  ARRAY  CONTAINING  VALUES  OP  THE  POSTERIOR  NORMAL 

DISTRIBUTION  HEAR 

1 -D° ARWIY^ CONTAINI^^OT  POSTERIOR  NORMAL  DISTRIBUTION  MEAN 

1- D^ARRAY^CONTAINI^^UPPER  BOUNDS  (CYCLES)  POR  THE  NU^tEG 
REGIONS  OF  INTEREST  FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL 
e /m  DATA  SET 

fjnmhar  of  COMPonentB  — 1 FOR  STRESS  AND  STRAIN  WHEN 
raCO^OSro  DATA  UNAVAILABLE  — 2 TOR  DECOMPOSED  STRAIN 
DATA 

2- D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  PA^UR^  FOR  THE 
SPECIFIC  MATERIAL  S-N  DATA  SET  BROKEN  INTO  REGIONS 

CONTROLS  MEDIAN  CALCULATION  FOR  THE 

CASE  — 0 - NO  MEDIAN  CALCULATION;  1 - MEDIAN  CALCULATION 
DESIRED 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PERREGIOJ 
FOR  THE  SPECIFIC  (REFERENCE)  MATERIAL  S/N  DATA  SET 

NUMBER  OF  M'S  TO  BE  USED  TO  CALCULATE  MEDIAN 

NUMBER  OF  REGIONS  OF  INTEREST  

WEIBULL ( BETAO , ETAO)  GENERATED  RANDOM  VARIATE 

CHARACTERIZES  ^ TH^ ^XTENT  OF  DEPARTURE  FROM  THE  M^ffiPLE  HEAT 
MEDIAN  S/N  CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 
RANDOM  NUMBER  SF™ 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE SON 
M FOR  EACH  REGION  — RANGEMf 1,L)  IS  THE  LOWER  BOUND 
AND  RANGEM(2,L)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANOTON 
MB  FOR  ELASTIC  COMPONENTS  — RANGMEf 1, 1)  IS  THE  LOWER 

BOUND  AND  RANGME (2,1)  IS  THE  UPPER  BOUND  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE  ON 
Mp  FOR  PLASTIC  COMPONENTS  — RANGMP ( 1 , 1)  IS  THE  LOWER 

BOUND  AND  RANGMP (2,1)  IS  THE  UPPER  BOUND  

2-D  ARRAY  CONTAINING  ELASTIC  STRAIN  POINTS  ( %) , SE()  OR 
STREO.  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
2-D  ARRAY  CONTAINING  PLASTIC  STRAIN  %)  ,SP  < ) OR 

STRPO,  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  * “ 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND() 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  *<*T*MOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION 
STANDARD  DEVIATION  FOR  ELASTIC  COMPONENTS 

1- D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION 

STANDARD  DEVIATION  FOR  PLASTIC  COMPONENTS  

2- D  ARRAY  CONTAINING  STRESS  OR  STRAIN  POINTS  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  (STRESS  RATIO  “ -1.0) 

BROKEN  INTO  REGIONS  (PSI  OR  *)  T_ 

VALUE  OF  TOTAL  STRAIN  (%)  FOR  WHICH  CYCLES  TO  FAILURE  IS 
DESIRED 

VALUE  OF  STRESS  (PSI)  FOR  WHICH  CYCLES  TO  FAILURE  IS  DESIRED 

STRESS  TENSILE  TEST  POINT,  So  

1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  BRING 
CURVE  DOWN  IF  SBND(O)  > So  FOR  EACH  TRIAL 
1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R « * -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND ( ) ADJUSTED  BY  VARIATION  PARAMETERS 
FOR  EACH  TRIAL 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
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z 

ZROREG 


VARIATION:  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 

VARIATION:  3 - TRUNCATED  NORMAL  VARIATION 

LOG-NORMAL ( 0 . FVAR)  RANDOM  VARIATE  ^ 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


OPEN ( 1 , FILE 
OPEN ( 3 , FILE 
OPEN ( 7 , FILE 
OPEN ( 8 , FILE 


SPECFD ' , 

STATUS 

* 

rOLD 

SPECFO ' , 

STATUS 

* 

'NEW 

DUMP 9 , 

STATUS 

s 

'NEW 

IOUTPR'  f 

STATUS 

= 

'NEW 

WRITE (3,*)  ' Copyright  (C)  1990,  California  Institute  of 
4 1 'Technology.  U.S.  Government' 

WRITE ( 3 * ) ' Sponsorship  under  NASA  contract  ' , 

& 'NAS/-918  is  acknowledged. ' 


t 


READ(1,* ) RAND 
WRITE ( 8 , * ) ' 

READ(1,*)  I OUT 
WRITE ( 8 , * ) ' 

READ(1,*)  NCOMPS 
WRITE ( 8 , * ) ' 


RANDOM  NUMBER  SEED:  ' , RAND 
OUTPUT  DUMP  CONTROLLER:  ' , IOUT 
NUMBER  OF  COMPONENTS:  ', NCOMPS 


READ(1,*)  VARY 
WRITE(8,*)  ' 
WRITE ( 8 , * ) ' (0 


TYPE  OF  S/N  VARIATION  DESIRED  ' 
-NONE;  1- INTRINSIC;  2-UNIFORM;  3-NORMAL) 


VARY 


READ(1,*)  NMED 
WRITE ( 8 , * ) ' 

WRITE ( 8 , * ) ' 


MEDIAN  CURVE  FOR  NORMAL  TYPE  ' 
VARIATION  DESIRED  (0  - NO,  1 - YES): 


NMED 


READ  f 1 , * ) MPROC 

WRITE (8,*)  ' MATERIALS  PROCESS  VARIATION  DESIRED  ' 

WRITE ( 8 , * ) ' (0  - 1 ~ TCS)! 


MPROC 


IF  ( (VARY  .LT. 
WRITE (8,*) 
CALL  TRMNAT 
ENDIF 


0]  .OR 
'ERROR: 


IF  ((NMED  .NE. 
WRITE ( 8 , * ) 


CALL 

ENDIF 


TRMNAT 


0)  .AND.  (NMED  .NE.  1))  THEN 
'ERROR:  INVALID  RESPONSE  TO  NORMAL  MEDIAN 

'CURVE  QUESTION' 


IF  ((MPROC  .LT.  0)  .OR.  (MPROC  .GT.  1))  THEN 

WRITE (8,*)  'ERROR:  INVALID  TYPE  OF  MATERIALS  PROCESS 

4 'VARIATION  DESIRED' 

CALL  TRMNAT 
ENDIF 


NTRIAL  * 1 
IF  ((VARY  .EQ.  3) 


.AND.  (NMED  .EQ.  1))  NTRIAL 


2000 


IF  (NCOMPS  .EQ.  1)  THEN 


4 


READ( 1#*)  STRESS 
WRITE ( 8 , * ) ' 

'OF  STRESS: 


STRESS 


VALUE  ', 


PERFORM  CALCULATIONS  ON  STRESS  OR  TOTAL  STRAIN  DATA 


4 


CALL  INFAGG  (RANGEM,  MU,  SIG, 
NBND,  STR,  FTUZ, 


NF,  NPTS,  SZERO,  ZROREG,  NUMREG, 
FTYZ,  VARY,  MPROC,  KRATIO,  PVAR) 
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c 


& 

& 


IF  (MPROC  .EQ.  1)  PSIG  - SQRT  (PVAR) 


DO  100  II  - 1,  NTRIAL 


CALL  PARE ST  (VARY,  RANGEM, 
ZROREG,  RAND, 
SBND) 


MU,  SIG,  NF,  NPTS,  NUMREG, 
NBND,  STR,  BIGK,  BZERO,  MM, 


OBTAIN  MATERIALS  PROCESS  VARIATION  PARAMETERS  IF  DESIRED 

CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ) 

IF  (MPROC  .EQ.  1)  THEN 
Z - EXP  (LNZ) 

else 

KRATIO  - 1.0 
Z * 1.0 
LNZ  - 0.0 
ENDIF 

CALL  WEIBGN  (BZERO,  RAND,  PHI) 

IF  (VARY  .EQ.  0)  PHI  ■ 1.0 
WRITE(7,*)  'PHI  -',  PHI 
FACTR  - PHI  * KRATIO  * Z 


25 


DO  25  L - ZROREG,  NUMREG 

TRSBND(L)  - FACTR  * SBND(L) 
TRBIGK (L)  - BIGK(L) 
CONTINUE 

TRSBND(O)  - SBND(0) 


fc 


& 


IF  ( ZROREG  .EQ.  0)  THEN 

KOm6(SZER0,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 

FACTR,  NUMREG) 

ENDIF 

LIFE  - GTLIFE  (STRESS,  MM,  TRBIGK,  PHI,  KRATIO,  LNZ,  TRSBND, 
ZROREG,  NUMREG,  SZERO) 


50 


WRITE(8,*)  'NUMBER  OF  REGIONS:',  NUMREG, 
DO  50  L * ZROREG,  NUMREG 
WRITE ( 8 , * ) 'REGION:',  L, 


'PHI: ‘ 


PHI 


WRITE (8,*)  ' BIGK(L) : , BIGK(L) , 
CONTINUE  , „ 

WRITE (8,*)  'STRESS  “' , STRESS,  LIFE 


STRESS  BOUND: ' , TRSBND(L) 


MM(L) : ' , MM(L) 
LIFE 


DO  150  L - 1,  NUMREG 
ALLM(II,L)  - MM(L) 
150  CONTINUE 


100  CONTINUE 

IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ.  1))  THEN 

CALL  SORTM  (ALLM,  NUMREG,  NTRIAL) 

MID  - NTRIAL  / 2 
DO  175  L - 1,  NUMREG 

MEDM ( L ) - ALLM(MID,L) 

175  CONTINUE 

r&T.t.  EXPCTD  (1,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
* NBND,  BIGK1,  BZERO) 


ENDIF 

ELSE  IF  (NCOMPS  .EQ.  2)  THEN 


& 


READ(1.*)  STRAIN 
WRITE ( o, *)  ' 

’ OF  TOTAL 


STRAIN: 


VALUE  ', 
STRAIN 
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PERFORM  CALCULATIONS  ON  DECOMPOSED  STRAIN  DATA 
CALL  DECOMP 

IF  (MPROC  .EQ.  1)  PSIG  - SQRT  (PVAR) 

DO  200  II  » 1,  NTRIAL 

CALL  PAREST  (VARY,  RANGMP,  HUP,  SIGP,  NF,  NPTS,  1,  1/  RAND, 
'nbnd,  RFSTRP,  BIGKP,  BZEROP,  MP,  SBND) 

CALL  ADJSTM  (MP,  RANGME,  MEBND) 

CALL  PAREST  (VARY,  MEBND,  MUE,  SIGE,  NF,  NPTS,  1,  1,  RAND, 
NBND'  RFSTr£,  BIGKE,  BZEROE,  ME,  SBND) 

BZERO  - 1.0  / SQRT  (0.5  * ((1.0  / |Z|£OP>  **  2 

+ (1.0  / BZEROE)  **  2)) 

CALL  WEIBGN  (BZERO,  RAND,  PHI) 

IF  (VARY  .EQ.  0)  PHI  - 1.0 

CALL  NORMGN  (RAND,  0.0,  PSIG,  LNZ) 

IF  (MPROC  .EQ.  1)  THEN 
Z = EXP  (LNZ) 

ELSE 

KRATIO  = 1.0 
Z - 1.0 
LNZ  * 0.0 
ENDIF 


WRITE ( 7 , * ) 'PHI  = 
LIFE 


PHI, 


GTLIF2  (STRAIN,  BIGKP(l),  BIGKE ( 1 ) , MP(1),  ME(1), 
PHI,  KRATIO,  Z) 


WRITE ( 8 , * ) 'Kps  ' , BIGKP ( 1 ) , ' 
WRITE ( 8 , * ) 'Ke:  ',BIGKE(lj, 

WRITE ( 8 , * ) 'PHI  « ',  PHI,  1 Z: 


WRITE (8,*)  'STRAIN: 


STRAIN, 


Mp:  ',  MP( 1] 

Me:  ',  ME  ( 1 j 

Z 

LIFE: 


LIFE 


ALLM(II,1) 
ALLM(II, 2) 


MP(1) 
ME(  1) 


1) ) THEN 


200  CONTINUE 

IF  ((VARY  .EQ.  3)  .AND.  (NMED  .EQ. 

CALL  SORTM  (ALLM,  2,  NTRIAL) 

MID  = NTRIAL  / 2 

WRITE (7,*)  'MEDIAN  PLASTIC  S/N  CURVE' 

MEDM(l)  * ALLM  (MID,  1 ) „ „ 

CALL  EXPCTD  (2,  MEDM,  NPTS,  RFSTRP,  NF,  0.0,  1,  1,  NBND, 
& BIGK1,  BZEROP) 

WRITE (7,*)  'MEDIAN  ELASTIC  S/N  CURVE' 

MEDM(l)  = ALLM (MID, 2) 

CALL  EXPCTD  (2,  MEDM,  NPTS,  RFSTRE,  NF,  0.0,  1,  1,  NBND, 
S.  BIGK1,  BZEROE) 


BZERO 


1.0  / SQRT  (0.5  *+(j}-o  / !!  I 


(1.0  / BZEROE)  **  2)) 
WRITE (7,*)  'TOTAL  STRAIN  E(BETAo)  - ' , BZERO 
ENDIF 
ELSE 
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WRITE ( 8 , * ) 'NCQMPS  INCORRECTLY  SPECIFIED' 
CALL  TRMNAT 
END  IF 

STOP 

END 


C 


SUBROUTINE  TRMNAT  HANDLES  THE  TERMINATION  OF  THEPROGRAM  RUN  WHEN 
ONE  OF  THE  PROGRAM'S  ASSUMPTIONS  HAVE  BEEN  VIOLATED 
PROGRAMMER:  L.  NEWLIN 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7 , V7.1,  V8,  V8.1,  V8.2,  V8.3r 

V8.4,  V8.5 

MATGRM  V4 , V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  TRMNAT 

WRITE ( 8 , * ) 'PROGRAM  EXECUTION  TERMINATED' 

STOP 

END 


C 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  INFAGG  CONTROLS  THE  CALCULATIONS  FOR  THE  INFORMATION 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
FOR  THE  STRESS  FORMULATION 

PROGRAMMER:  L.  NEWLIN  , 

DATE:  13JUL89  FORMAT  / COMMENTS : 12AUG91 

VERSION:  MATCHR  V8.4,  V8.5  MATGRM  V4.4,  V4.5 

copyright  <C)  1990,  California  Institute  of  Technology. 

U.l;  Government  sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


C 

C 

C 

c 

c 

c 


^SUBROUTINE  INEMS  «R«^;  HU^S* fa™*- ^bfSSSt , 

i KRATIO,  PVAR) 

INPUTS:  READS  DATA  FROM  SPECFD  AND  RELATD;  MP*°5___ 

OUTPUTS:  RANG EM,  MU,  SIG,  NF,  REFNP,  SZERO,  ZROREG,  NUMREG, 

ubhq  STR.  FTUZ.  FTYZ , KRATIO,  PVAR 
SUBPROGRAMS*  ° IN IT  RCE,  SW2SU2  FINDMC  INTRVL,  FNDRNG,  ADDREG, 
SUBPROGRAMS.  ^^V^D^U^TD,  MUSIC,  NORRNG,  ADDRGN,  GTPVAR 

FILES : 5 : RELATD-OLD ; 6 : RELATO-NEW 


C 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  » 3,  MAXSET  * 5) 


COMMON  I OUT 


& 

i 


INTEGER  I OUT,  L,  MCPNT (MAXREG ) 
NP ( 0 : MAXSET , MAXREG), 
NSETS,  NUMREG,  REFNP (M 


, MPNT(MAXRBG) 
NPPR ( MAXREG ) , 
IAXREG) , VARY, 


, MPROC,  NNODAT 
NPTS ( 0 : MAXSET ) , 
ZROREG 


9 


REAL  BIGKHT,  BZERO,  CZERO,  DD(MAXREG),  DELTA ( MAXREG ) , 
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FTUZ,  FTYZ,  IZER0(2,  MAXREG) , JZERO(2,  MAXREG), 

KRAT*Of  LAMN,  W (MAXDAT . ^sMAXSET,  HAXREG), 

LNSTR ( MAXDAT , OsMAXSET,  MAXREG) , MC(2,  MAXREG), r 
MCHAT ( 2 MAXREG),  MEDM  ( MAXREG ),  MO  (MAXREG) , MU(MA^EG) , 
MZER02,  MAXREG),  NBND( 0 :MAXRE&) , MAXREG), 

PVAR,  RANGEM(2.  MAXREG),  RATSTR ( MATO AT , OsMAXSET), 
RAWNF ( MAXDAT , 6 sMAXSET) , RAWSTR  ( MAXDAT , OsMAXSET), 

SIG(  MWmEG ) , SIGMA2  ( MA&EG ) , ST*(MAXDAT,  MAXREG), 

SUHAT2  (MAXREG)  , SWHAT2  (MAXREG)  , SX2  (MAXREG) , 

SXY  (MAXREG),  SY2  (MAXREG),  SZERO 


C 

c 

C BIGKHT 
C BZERO 
C 

C CZERO 
C 

C DD(  ) 

C DELTA ( ) 

C 

C FTUZ 
C FTYZ 
C I OUT 
C I ZERO ( ) 

C 

C JZERO() 

C 

C KRATIO 
C L 
C LAMN 
C 

C LNNF() 

C LNSTR? ) 

C MAXDAT 
C MAXREG 
C MAXSET 
C MC() 

C 

c 

c 

C MCHAT ( ) 

C 

C 

C 

C MCPNT ( ) 

C 

C MEDM( ) 

C MO(  ) 

C 

C MFNT(  ) 

C 

C MPROC 
C 

C MU  ( ) 

C 

C MZERO ( ) 

C 

C 

C NBND( ) 

C 

C NF(  ) 

C 

C NNODAT 
C NP(  ) 

C 

C NPPR(  ) 

C 

C NPTS(  ) 

C NSETS 
C NUMREG 
C PVAR 
C RANGEM( ) 


LIST  OF  VARIABLES 

EQUAL  TO  THE  MEDIAN  VALUE  OF  K IN  REGION  1 _ /M 

VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  THE  S/N 
AiupA  SET 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 

COEFFICIENT  OF  VARIATION,  CO  

1-D  ARRAY  CONTAINING  SXYfL) /SX2 (L)  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) 

AND  SIG( ) CALCULATION  

ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
OUTPUT  DUMP  CONTROLLER  

2- D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION  . , _ 

LAMBDA-N  — RATIO  OF  VarjLn  N given  S)  / (m**2  c**2) , 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- D  ARRAY  CONTAINING  LN (RAWNFJ) ) , ALSO  IMPEXED  FOR  REGION 

3-D  ARRAY  CONTAINING  I^RATSTRf  )|,  ALSO  ! 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED  

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 

MC(1,L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 

BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT (1,L)  = -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L ) = SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC(  ) FOR  EACH  REGION  

1-D  ARRAY  CONTAINING  THE  MEDIAN  M FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION  a % o ™ 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

Materials  PROcits^iition  —CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2—  D ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH^GION  --  MZERO(l , L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND  

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

2- IPaRRAY  CONTAIN INGTRAWNF( ) (CYCLES  TO  FAILURE)  TOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANYS/NDATA ) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 

i-dEarrayEcontaining  values  of  ((sum  2F >“1)  ' 

ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  REGIONS  OF  INTEREST 

MATERIALS  PROCESS  VARIATION  „ 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
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RATSTRO 

RAWNF( ) 

RAWSTRO 

REFNP ( ) 

SIG() 

SIGMA2 ( ) 

STR( ) 

SUHAT2 ( ) 

SWHAT2 ( ) 

SX2<) 

SXY() 

SY2() 

SZERO 

WARY 

ZROREG 


FOR  EACH  REGION  — RANGEM(1,L)  IS  THE  LOWER  BOUND  AND 

RANGEM  ( 2 , L ) IS  THE  UPPER  BOUND  

2-D  ARRAY  CONTAINING  STRESS  DATA  (PS I)  __0 

STRESS  RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  OATA^SETS 
2-D  ARRAY  CONTAINING  RAH  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PS I)  OR  TOTAL  STRAIN 
DATA  f%)  FOR  ALL  S/N  DATA  SETS 
l-D  ARRAY } CONTAINING / THE  NUMBER  OF  POINTS  FORTHE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN EACH  REGION 
l-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 

1- D  AR^Y  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  UT.T 

2- D  ARRAY  CONTAINING  RATSTRM  FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR *) 

l-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y “ Ln  N) 
l-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N) 
l-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  ■ Ln  S) 

l-D  ARRAY  CONTAINING  SAMPLE  X, 

REGION  (X  » Ln  S,  Y « Ln  N) 
l-D  ARRAY  CONTAINING  SAMPLE  Y 
(Y  ■ Ln  N) 

STRESS  TENSILE  TEST  POINT,  So  

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 

VARIATION;  3 - TRUNCATED  NORMAL  VARIATION  

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 


SAMPLE  Y COVARIANCE  FOR  EACH 
VARIANCE  FOR  EACH  REGION 


C 

C 

C 

C 

c 


c 


c 


c 


OPEN ( 5 , FILE  - 'RELATD' , STATUS  - 'OLD') 

OPEN ( 6 , FILE  - 'RELATO',  STATUS  - 'NEW') 

RELATD  CONTAINS  THE  RELATED  MATERIAL  S/N  DATA_  SET  INFORMATION 
RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 
INFORMATION 

PERFORM  CALCULATIONS  COMMON  TO  BOTH  UNIFORM  AND  NORMAL  TYPE  OF  VARIATION 
INITIALIZE  PRIMARY  ARRAYS 

CALL  IN IT  (NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 

& 'NF,  STR,  MPNT,  MZERO,  DELTA,  HO,  SIGMA2) 

READ,  CONVERT,  ECHO  INFORMATION 

CALL  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  RATSTO,  NP , LNSTTl, 

• \ r r /.mn  '%nn  CVVOA  tdaow:  IJTTMniH?  MKHDAT  - 


& 

& 

& 


LNNF  REFNP,  STR,  NF,  SZERO,  ZRORTC,  NUPREG,  NNODAT, 
NSETS,  NBND,  CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO, 
SIGMAi,  KRATIO,  LAMN) 


CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (NUMREG,  NSETS.  NP,  LNSTR,  LNNF,  SX2,  SXY,  SY2,  DD, 
& SWHAT2,  SUHAT2 , NPPR) 

CALCULATE  M CONTRAINT  BASED  ON  Co 

CALL  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2))  THEN 

C CALCULATIONS  FOR  ALL  TYPES  OF  VARIATION  SAVE  NORMAL 

C CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO, 
& JZERO,  MCHAT) 
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C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  &JlL°CTPVAR  NP,  NUMREG,  LAMN,  MCHAT , PVAR) 

ENDIF 

C COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION  TO 
C OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT , MC,  JZERO,  MCHAT, 

4 RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 


& 

25 


150 


100 

C CALCULATE  MEDIAN  M VALUES  BASED  ON  DATA,  MZERO,  AND  CZERO 

CALL  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

C CALCULATE  ESTIMATED  VALUES  FOR  S/N  CURVE  PARAMETERS 

CALL  EXPCTD  (1,  MEDM,  REFNP,  STR,  NF,  SZERO,  NUMREG,  ZROREG, 
4 NBND,  BIGKHT,  BZERO) 

C CHECK  TYPE  OF  S/N  VARIATION  DESIRED  AND  FIX  M AT  MEDIAN  IF  DESIRED 

IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1))  THEN 
DO  200  L = 1,  NUMREG 

RANGEM ( 1,L)  = MEDM(L) 

RANGEM ( 2, L)  = MEDM(L) 

200  CONTINUE 

ENDIF 

ELSE 


WRITE(7,900) 

DO  25  L - 1,  NUMREG  „ 

WRITE (7,905)  L,  IZEROU,  LI,  IZERO{2,  L) , 
JZERO ( 1,  L),  JZERO ( 2 , L) 

CONTINUE 

WRITE(7,910) 

DO  50  L 
WRITE 
CONTINUE 


50  L - 1£  NUMREG 

WRITE (7, 915)  L,  MCHAT(2,L) , MCHAT ( 1,L) 


IF  (CZERO  .GT.  0.0)  THEN 
WRITE (7 ,960) 

DO  150  L = 1,  NUMREG 

IF  (MCPNT (L)  .EQ.  1)  THEN 

WRITE ( V , 965)  L,  MC(1,L) 

ELSEIF  (MCPNT (L)  .EQ.  2)  THEN 

WRITE (7, 97 6)  L,  MC(1,L),  MC(2,L) 
ENDIF 
CONTINUE 
ENDIF 

WRITE(7,920) 

WRITE(7,930) 

DO  100  L * 1,  NUMREG 

WRITE(7, 940)  L,  RANGEM(1,L),  RANGEM(2,L) 
CONTINUE 


WRITE(7 ,950) 
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C NORMAL  VARIATION  IS  DESIRED 

C CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION  FOR  EACH  REGION 

CALL  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO, 
& SIGMA2,  MCHAT,  MU,  SIG) 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  ^^L°GTPVAR  (NSETC^  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 

END  IF 

C COMBINE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGES  ON  M 

CALL  NORRNG  (NUMREG,  MFNT,  MZERO,  MCPNT,  MC,  MCHAT,  RANGEM) 

C ADD  INFORMATION  ON  RANGE  FOR  REGIONS  WITHOUT  DATA 

CALL  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO, 

& MPNT,  MO,  SIGMA2) 

C ADJUST  UPPER  BOUNDS  OF  POSTERIOR  RANGES  FOR  CONCAVITY  CONSTRAINTS 
CALL  CONCAV  (NUMREG,  RANGEM) 

C WRITE  RESULTS  TO  FILE  DUMP 

350 


360 


370 


380  CONTINUE 
END  IF 

C PRINT  RESULTS  OF  MATERIALS  PROCESS  VARIATION  CALCULATIONS 

IF  (MPROC  .EQ.  1)  THEN 
WRITE(7,995)  PVAR 
ENDIF 


WRITE (7 ,975) 

DO  350  L « 1,  NUMREG 

WRITE(7,9oO)  L,  MCHAT(1,L) 
CONTINUE 

IF  (CZERO  .GT.  0.0)  THEN 
WRITE^7^960) 


DO  36 
IF 


1,  NUMREG 

( MCPNT (L)  .EQ.  1)  THEN 
WRITE (7, 965)  L,  MC ( 1 , L ) 

EXSEIF  ( MCPNT (L)  .EQ.  2)  THEN 

WRITE(7,970)  L,  MC(1,L),  MC(2,L) 
ENDIF 
CONTINUE 
ENDIF 

WRITE (7, 920) 

WRITE(7,930) 

DO  370  L ■ 1,  NUMREG  „ , 

WRITE(7 ,940)  L,  RANGEM ( 1,L) , RANGEM ( 2 , L ) 
CONTINUE 

WRITE (7 , 950) 

WRITE(7, 985) 

DO  386  L * 1.  NUMREG 

WRITE(7.990)  L,  MU(L),  SIG(L) 


C FORMAT  STATEMENTS 

900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ' , 

V 'Technology.  U.S.  Government' ,/,2X.' Sponsorship  under  ', 

& 'NASA  Contract  NAS7-918  is  acknowledged. III / » 

f,  2X, ' RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 
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6 


///,2X, '95%  CONFIDENCE  INTERVALS  ON  C AND  m 
'FOR  EACH  REGION',/) 


905  FORMAT ( 7 X. 'REGION: 
& /,24X, 'JO  - 


<:;  Till*', 


F12.9, 

,')') 


,F12.9, 


t 


910  FORMAT (//,2X, 'POINT  ESTIMATES  OF  C AND  m FOR  EACH  REGION’, 
fc  //,7X, 'REGION', 8X, 'E(C) ' , 12X, 'E(m)',/) 


915  FORMAT (9X, Il,8X,Fll.9, 5X,F9.6) 

920  FORMAT (///,2X, 'POSTERIOR  CREDIBILITY  RANGE  ON  m FOR  EACH  ' 
6 'REGION') 

930  FORMAT(//,2X, 'REGION' , 5X, 'LOWER  BOUND', 5X, 'UPPER  BOUND',/) 
940  FORMAT ( 6X, I 1 , 8X, F8 . 4 , 8X, F8 . 4 ) 

950  FORMAT (///) 

960  FORMAT (//,2X, 'RANGE  ON  m FOR  EACH  REGION  IMPLIED  BY  C ' 
t 'CONSTRAINT',  . 

& //,2X, 'REGION' ,5X, 'LOWER  BOUND' ,5X, 'UPPER  BOUND',/) 


965  FORMAT (6X, 11, 8X,F8 .4, 8X, 'INFINITY' ) 

970  FORMAT (6X, II, 8X,F8 .4, 8X,F8.4) 

975  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ' , 

& 'Technology,  u.s.  Government' , /,2X,' Sponsorship  under 

'NASA  Contract  NAS7-918  is  acknowledged. ',////, 

2X, 'RESULTS  OF  INFORMATION  AGGREGATION  CALCULATIONS', 


6 

6 


///,2X,  'ESTIMATE  OF  m FOR  EACH  REGION' , 
& //,7X, 'REGION', 12X, 'E(m)',/) 


980  FORMAT (9X, I1,11X,F10.6) 

985  FORMAT (2X, 'POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS', 
& //,2X, 'REGION' ,5X, 'MEAN' ,8X, 'STD  DEV',/) 


990  FORMAT(5X,Il,5X,F7.4,5X,Ell.5) 

995  FORMAT (/,2X, 'THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  ', 
& 'MEDIAN  S/N  CURVE'. /,2X, 'WARRANTED  BY  THE  AVAILABLE  ', 

6 'INFORMATION' ,//,7X, Ell. 5) 


RETURN 

END 


C********* ************************************** ************************* 


SUBROUTINE  IN IT  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
USED  IN  THE  INFORMATION  AGGREGATION  SUBROUTINE  INFAGG 


PROGRAMMER: 

DATE: 

VERSION: 


L.  NEWLIN 

CODE:  21JUN88  COMMENTS:  13JUL89 

MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  INIT  (NPTS,  RAWNF , RAWSTR,  RATSTR, 
& REFNP,  NF,  STR,  MPNT,  MZERO, 


NP,  LNNF,  LNSTR, 
DELTA,  MO,  SIGMA2) 


INPUTS: 

OUTPUTS: 


NPTS,  RAWNF,  RAWSTR,  RATSTR,  NP,  LNNF,  LNSTR,  REFNP, 
NF,  STR,  MPNT,  MZERO,  DELTA,  MO,  SIGMA2 


C IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET 
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PARAMETER  (MAXDAT  - 50,  MAXREG  « 3,  MAXSET 


COMMON  I OUT 


INTEGER  I,  IOUT,  J,  K,  L'J^T(  MAXREG) ' NP(0:MAXSET,  MAXREG), 
& NPTS(0:MAXSET),  REFNP (MAXREG) 

REAL  DELTA(HW®EG)  , ^ ' 


RAWSTR( MAXDAT,  0:MAXSET),  SI' 
STR(MAXDAT,  MAXREG) 

LIST  OF  VARIABLES 


(MAXREG) t 


MAXSET) , 


DELTA  ( ) 
I 

IOUT 

J 

K 

L 

LNNF  ( ) 

LNSTR( ) 

MAXDAT 

MAXREG 

MAXSET 

MO<) 

MPNT() 

MZERO(  ) 


NPTS ( ) 
RATSTR( ) 

RAWNF( ) 

RAWSTR( ) 

REFNP ( ) 

SIGMA2() 


STR(  ) 


1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG()  CALCULATION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION  „ 

3-D  ARRAY  CONTAINING  LNtRAWNFM),  A^S®  I?S255nP2S»RiS?T«N 
iRRAY  CONTAINING  LN(RATSTft(  ) ) , ALSO  INDEXED  FOR  REGION 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION  . , _ , _ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZER0O  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  RAWNFj)  (CYCLES  TO  FAILURE )TOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 

IN  each  region 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

2- D  ARRAY  CONTAINING  STRESS  DATA  (PSI)  CORRECTED  TOR 

STRESS  RATIO  OR  TOTAL  STRAIN  D^A  (4)  FOR  ALL  S/N  DMA  SETS 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OF  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS  _______ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 

2- DJ^raAYEC^mONINGRRATSTR( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 


DO  100  J - 0,  MAXSET 
NPTS(J)  * 0.0 
100  CONTINUE 

DO  200  L “ 1,  MAXREG 
DO  250  J * 0,  MAXSET 
NP(J,  L)  * 0.0 
250  CONTINUE 

200  CONTINUE 

DO  300  J - 0,  MAXSET 
DO  350  I - 1,  MAXDAT 
RAWNF(I,J)  - 0.0 
RAWSTR(I,J)  * 0.0 
RATSTR( I, J)  ■ 0.0 
350  CONTINUE 

300  CONTINUE 

DO  400  L - 1,  MAXREG 
DO  425  K * 1,  MAXDAT 
DO  450  J = 0,  MAXSET 
LNNF (K, J,L)  = 0.0 
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LNSTR(K,J,L)  * 0.0 
450  CONTINUE 

425  CONTINUE 
400  CONTINUE 


550 

500 


DO  500  L * 1, 
DO  550  K « 
NF(K,L) 
STR(K,L) 
CONTINUE 
CONTINUE 


MAXREG 
1.  MAXDAT 

t o.o 
- o.o 


DO  600  L * 1,  MAXREG 
REFNP (L)  * 0 
MPNT(L)  = 0 
MZER0(1,L)  * 0.0 
MZERO(2,L)  « 0.0 
DELTA (L)  - 0.0 
MO(L)  « 0.0 
SIGMA2 (L)  - 0.0 
600  CONTINUE 


RETURN 

END 


t ★***★★**★★*★★*★*★***★***** *********** 


SUBROUTINE  RCE  "READS"  THE  DATA  FROM  SPECFD  AND  RELATD;  "CONVERTS" 
THE  STRESS  DATA  TO  A STRESS  RATIO  OF  — 1 • 0 J AND  "ECHOES  THE  DATA  TO 
SraCTOAND  RELAToV  RCE  ALSO  BREAKS  S/N  DATA  SETS  INTO  REGIONS  AS 
SPECIFIED  BY  USER 

PROGRAMMER:  L.  NEWLIN  , 

DATE:  2IJUN88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  RCE  (VARY,  MPROC,  NPTS,  RAWNF,  .RATSTR  ,NP ' 

t,  lnstA,  lnnf,  refnP,  str,  nf,  szeRo,  ZRcmto, 

* NUMREG,  NNODAT,  NSETS,  NBND,  CZERO,  MPNT,  MZERO, 

& FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2,  KRATIO,  LAMN) 

OUTPUTS : NPTsJ  RAWNF,  RAWSTR,  RATSTR,  NP,  UJSTR,  LNNF,  REFNP  » 

STR,  NF,  SZERO,  ZRO&EG,  NUMREG,  NNODAT,  NSETS,  NBND, 
CZERO,  MPNT,  MZERO,  FTUZ,  FTYZ,  DELTA,  MO,  SIGMA2, 

KRATIO,  LAMN 

SUBPROGRAMS : TRMNAT,  CONVRT 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  “ 50,  MAXREG  ■ 3,  MAXSET  = 5) 


COMMON  I OUT 


& 


INTEGER  COUNT,  I,  IOUT,  J,  K,  L,  M,  ^«T(MA^G)  ^MPROC,  NDIV, 
NNODAT,  NP(0:MAXSET,  MAXREG),  NPTS ( 0 : MAXSET) , NSETS, 

NUM,  NUMREG,  REFNP ( MAXREG ) , REG,  VARY,  ZROREG 

REAL  CZERO,  DELTA  (MAXREG),  FTU,  FCT,  FTO, 

t KRATIO,  LAMN,  LNNF (MAXDAT,  0 : MAXSET,  MAXREG), 

& LNSTR ( MAXDAT , 0: MAXSET,  MAXREG),  MO (MAXREG) , 

& MZERO ( 2 , MAXREG),  NBNDf 0 : MAXREG) , NF (MAXDAT,  MAXREG) , 

& RATIO,  RATSTR (MAXDAT,  0:MAXSET),  RAWNF (MAXDAT , 0:MAXSET), 

& RAWSTR (MAXDAT,  0:MAXSET),  SIGMA2 (MAXREG) , 

& STR (MAXDAT,  MAXREG),  SZERO 


CHARACTER*  4 0 DESCRP ( 0 : MAXSET ) 
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LIST  OF  VARIABLES 


C 

C 

C COUNT 
C 

C CZERO 

c 

C DELTA ( ) 

C 

C DESCRP() 
C FTU 
C FTUZ 
C FTY 
C FTYZ 
C I 
C IOUT 
C J 
C K 

C KRATIO 
C L 
C LAMN 
C 

C LNNF ( ) 

C LNSTR() 

C M 

C MAXDAT 
C MAXREG 
C MAXSET 
C MO() 

C 

C MPNT  ( ) 

C 

C MPROC 
C 

C MZERO( ) 

C 

c 

C NBND ( ) 

C 

C NDIV 

C NF() 

C 

C NNODAT 
C NP  ( ) 

C 

C NPTS  ( ) 

C NSETS 
C NUM 
C NUHREG 
C RATIO 
C RATSTR() 
C 

C RAWNF ( ) 

C 

C RAWSTR( ) 
C 

C REFNP( ) 

C 

C REG 
C SIGMA2  ( ) 
C 

C STR(  ) 

C 

C SZERO 
C VARY 
C 
C 

C ZROREG 

C 

C 


INDEX  THAT  KEEPS  TRACK  OF  DATA  DURING  INPUT,  ECHO, 

CONVERSION,  AND  BREAK  UP 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU()  AND 
SIG  ( ) CALCULATION 

1-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 
ULTIMATE  STRENGTH  (PSI)  OF  MATERIAL  DATA  SET 
ULTIMATE  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
YIELD  STRENGTH  (PSI)  FOR  SPECIFIC  MATERIAL 
CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  IX)  LOOP  FOR  EACH  POINT  IN  A REGION^^^ 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA— N — RATIO  OF  Vax  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  ALL  REGIONS  AND  COMPONENTS 
3-D  ARRAY  CONTAINING  LN  ( RAWNF  ( ) ) , FORREGION 

3-D  ARRAY  CONTAINING  LN ( RATSTR ( j ),  ALSO  INDEXED  FOR  REGION 
CONTROLS  DO  LOOP  FOR  EACH  DATA  DIVISION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION  „ , _ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

Materials  P^ea^variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(  1,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST  _ 

NUMBER  OF  DIVISIONS  DATA  SET  IS  BROKEN  INTO  BY  RATIO, 

REGION  PAIRS  DURING  INPUT  _ 

2- D  ARRAY  CONTAINING  RAWNF ()  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA  SET 
IN  EACH  REGION 

1- D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMBER  OF  DATA  POINTS  IN  A PARTICULAR  DIVISION 
NUMBER  OF  REGIONS  OF  INTEREST 

STRESS  RATIO  (R  ■ -1.0  IS  DESIRED)  „ llir.  _____ 

2- D  ARRAY  CONTAINING  STRESS  DATA  jPSI)  CORRECTED  FOR  STRESS 
RATIO  OR  TOTAL  STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  TOTAL  STRAIN 
DATA  (%)  FOR  ALL  S/N  DATA  SETS 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

region  of  interest  in  a particular  division 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

VARIANCE  FOR  EACH  REGION  

2- D  ARRAY  CONTAINING  RATSTR ( ) FOR  THE  SPECIFIC  MATERIAL 
S/N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

STRESS  TENSILE  TEST  POINT,  SO 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO 
REGION 


C INITIALIZE  COUNT  AND  NBND() 
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COUNT  = 0 

DO  10  L « 0,  MAXREG 
NBND(L)  ■ 0.0 
10  CONTINUE 

C INPUT  DATA  ON  SPECIFIC  MATERIAL  FROM  SPECFD  AND  ECHO  TO  SPECFO 

READ(1,*)  DESCRP(O),  FTY,  FTU,  NDIV,  NPTS(0) 

IF  (NPTS<0)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ' , 

& 'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 

WRITE(3,900)  DESCRP ( 0 ),  FTY.  FTU.  NPTS(0) 

IF  (idUT  .EQ.  10)  WRITE ( 8,900)  DESCRP(O),  FTY,  FTU,  NPTS(0) 
WRITE(3,905) 

IF  ( IOUT  .EQ.  10)  WRITE (8, 905) 

C STORE  VALUES  OF  SPECIFIC  MATERIAL  FTU  AND  FTY  INTO  FTUZ  AND  FTYZ 


FTUZ  = FTU 
FTYZ  = FTY 

C INPUT  STRESS /LIFE  INFORMATION  — INCLUDING  STRESS  RATIO  AND  REGION 

C INFORMATION  FROM  SPECFD  AND  ECHO  TO  SPECFO 


DO  100  M = 1,  NDIV 

READ  (1,*)  NUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE <8, *)  'ERROR:  INVALID  VALUE  FOR  RATIO:  ',  RATIO 

CALL  TRMNAT 
ENDIF 


IF  (REG  .GT.  MAXREG)  THEN 

WRITE ( 8 , * ) 'ERROR:  OVER  REGION  LIMIT  IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 


110 


DO  110  I = (COUNT  + 1).  (COUNT  + NUM) 
READ(1,*)  RAWSTR( I , 0 ) , RAWNF(I,0) 
CONTINUE 


C CHECK  TO  SEE  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 
C STRESS  RATIO  IS  CORRECT 


120 


DO  120  I - (COUNT  + 1),  (COUNT  + NUM) 
RATSTR( I, 0 ) * RAWSTR(I, 0) 

CONTINUE 


ELSE 


C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT  (0,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR,  RATSTR, 
& RATIO,  FTU,  FTY) 

ENDIF 

C ECHO  STRESS /LIFE  DATA  ON  SPECIFIC  MATERIAL 

DO  130  I « (COUNT  + 1),  (COUNT  + NUM) 

WRITE( 3, 910)  RAWSTR( 1,0),  RAWNF(I,0),  RATIO,  REG, 

& RATSTR( 1,0),  RAWNF (1,0) 
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no 


& 


IF  (TOUT 


.EQ 


10)  WRITE(8.910)  RAWSTR(I,0_), 
RATIO,  REG,  RATSTR(I,0),  RAWNF 


RAWNF(I,0) 

(I/O) 


t 


130  CONTINUE 

BREAK  UP  DATA  ACCORDING  TO  SPECIFIED  REGIONS  FOR  USE  BY  SW2SU2, 
EXPCTD,  AND  PAREST 

K ■ NP(0,REG) 

DO  140  I - (COUNT  + 1),  (COUNT  + NUM) 

K ■ K + 1 

LNSTR ( K , 0 , REG ) - ALOG(RATSTR( I, 0) ) 

LNNF(K, 0,REG)  - ALOG( RAWNF (1,0)) 

STR(K.REG)  ■ RATSTR(I.O) 

NF(K,REG)  - RAWNF(I,0) 

140  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  NUMBER  OF  POINTS  LIMIT  IN  ', 

S,  'SPECIFIC  MATERIAL' 

CALL  TRMNAT 
ENDIF 

NP ( 0 , REG)  « K 
REFNP(REG)  - K 
COUNT  » COUNT  + NUM 


100  CONTINUE 

IF  (NPTS(0)  .NE.  COUNT)  THEN 

WRITE( 8,*)  'ERROR:  NUMBER  OF  POINTS  PER  DIVISION  ', 

& 'INCORRECTLY  SPECIFIED' 

WRITE (8,*)  'IN  SPECIFIC  DATA  SET' 

CALL  TRMNAT 
ENDIF 

READ( 1,*)  SZERO  

IF  (NINT  (SZERO)  .GT.  0)  THEN 
ZROREG  = 0 
ELSE 

ZROREG  = 1 
ENDIF 

IF  (IOUT  .EQ.  10) 

& WRITE (8,*)  'SZERO  * ',  SZERO,  ' ZROREG  “ ',  ZROREG 


C INPUT  OTHER  REGION  INFORMATION  AND  EXOGENOUS  INFORMATION 


READ( 1, *)  NUMREG,  NNODAT 


IF  ((NUMREG  + NNODAT) 
WRITE ( 8 , * ) 'ERROR: 
CALL  TRMNAT 
ENDIF 


.GT.  MAXREG)  THEN 

EXCEEDED  LIMIT  ON  NUMBER  OF  REGIONS' 


DO  150  L ■ ZROREG,  (NUMREG  + NNODAT) 
READ(1,*)  NBND(L) 

150  CONTINUE 


READ( 1, *)  CZERO 

DO  160  L » 1,  (NUMREG  + NNODAT) 

READ(1,*)  MPNT(L) , MZERO(l,L),  MZERO(2,L) 
160  CONTINUE 

WRITE ( 3 913 > 

IF  (ZROREG  .EQ.  0)  WRITE(3,914)  SZERO 
IF  !lOUT  .EQ.  10)  THEN 
WRITE( 8,913) 

IF  (ZROREG  .EQ.  0)  WRITE(8,914)  SZERO 
ENDIF 
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WRITE( 3, 915)  NUMREG,  NNODAT 

IF  (IOUT  .Eg.  10)  WRITE( 8,915)  NUMREG,  NNODAT 

DO  170  L = ZROREG,  (NUMREG  + NNODAT) 

WRITE(3.920)  NBND(L) 

IF  (IOUT  .EQ.  10)  WRITE(8,920)  NBND(L) 

170  CONTINUE 

WRITE ( 3, 925)  CZERO 

IF  (IOUT  .EQ.  10)  WRITE<8,925)  CZERO 

DO  180  L = 1,  (NUMREG  + NNODAT) 

WRITE (3, 930)  L.  MFNT(L),  MZERO(l,L),  MZERO(2,L) 

IF  (IOUT  .EQ.  10) 

t WRITE( 8, 930)  L,  MPNT(L) . MZERO(l,L).  MZERO(2,L) 

IF  ((VARY  .EQ.  3)  .AND.  (MPNT(L)  .EQ.  0))  THEN 

WRITE (8,*)  'ERROR:  NORMAL  VARIATION  REQUIRES  A PRIOR 

& 'RANGE  ON  M' 

CALL  TRMNAT 
ENDIF 
180  CONTINUE 

IF  (VARY  .EQ.  3)  THEN 

C READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 

WRITE(3,945) 

IF  (IOUT  .EQ.  10)  WRITE(8,945) 

DO  190  L - 1,  (NUMREG  + NNODAT) 

READ( 1,*)  DELTA(L) , MO(L),  SIGMA2(L) 

WRITE (3, 950)  L.  DELTA(L) , MO(L),  SIGMA2(L) 

IF  (IOUT  .EQ.  10) 

& WRITE (8, 950)  L,  DELTA (L) , MO(L) , SIGMA2 (L) 

IF  ( ( DELTA (L)  .LT.  0.0)  .OR. 

& ( (DELTA(L)  .GT.  0.0)  .AND.  (MO(L)  .LE.  0.0)))  THEN 

WRITE (8,*)  'ERROR:  BAD  VALUE  FOR  DELTA  OR  VALUE  OF  MO  ' , 

& ' INCONSISTENT  WITH  DELTA  IN  REGION  ' , L 

CALL  TRMNAT 
ENDIF 
190  CONTINUE 
ENDIF 


.EQ.  1)  THEN 

IATIO,  LAMN 


IF  (MPROC 

READ( 1, *)  KRAtlO, 

WRITE (3, 9 55)  KRATIO,  LAMN 
IF  (IOUT  .EQ.  10)  WRITE (8, 955)  KRATIO, 
ENDIF 


LAMN 


C BEGIN  INPUT  OF  RELATED  MATERIAL  INFORMATION  FROM  RELATD 
C AND  THEN  ECHO  TO  RELATO 

READ(5,*)  NSETS 

IF  (NSETS  .GT.  MAXSET)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  RELATED  DATA  SETS' 

CALL  TRMNAT 
ENDIF 

WRITE(6,935)  NSETS 
DO  200  J = 1,  NSETS 
COUNT  = 0 

IF  (IOUT.  EQ.  10)  WRITE ( 8, * ) ' J «'  , J,  ' NSETS  NSETS 

READ(5, *)  DESCRP(J),  FTU,  FTY,  NDIV,  NPTS(J) 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

WRITE ( 8 , * ) 'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  IN  ', 

& 'SET  ',  J 

CALL  TRMNAT 
ENDIF 

WRITE(6,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 

IF  (IOUT  .EQ.  10)  WRITE(8,940)  DESCRP(J),  FTU,  FTY,  NPTS(J) 
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WRITE (6,905) 
IF  ( IOUT  .EQ. 


10)  WRITE(8,905) 


DO  300  M - 1,  NDIV 

READ( 5, *)  HUM,  RATIO,  REG 

IF  (ABS (RATIO)  .GT.  1.0)  THEN 

WRITE(8,*)  ’ERROR:  INVALID  VALUE  OF  RATIO:  ',  RATIO 

CALL  TRMNAT 
ENDIF 

IF  (REG  .GT.  KAXREG)  THEN 
WRITE( 8 , * ) 

& 'ERROR:  OVER  REGION  LIMIT  IN  RELATED  MATERIAL  ',  J 

CALL  TRMNAT 
ENDIF 

IF  (IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'NUM  - ',  NUM,  ' COUNT  - ',  COUNT 
WRITE ( 8 , * ) 'RATIO  - ',  RATIO,  ' REG  ■ REG 
ENDIF 

DO  310  I - (COUNT  +1),  (COUNT  + NUM) 

READ( 5, * ) RAWSTR(I,J),  RAWNF(I,J) 

310  CONTINUE 

C CHECK  IF  STRESS  RATIO  IS  -1.0  AND  CONVERT  STRESSES  IF  NOT 

IF  (RATIO  .EQ.  -1.0)  THEN 

C STRESS  RATIO  IS  CORRECT 

DO  320  I - (COUNT  + 1),  (COUNT  + NUM) 

RATSTR(I,J)  - RAWSTR(I,J) 

320  CONTINUE 


ELSE 

C STRESS  RATIO  TRANSFORMATION  MUST  BE  DONE 

CALL  CONVRT(J,  (COUNT  + 1),  (COUNT  + NUM),  RAWSTR, 

& RATSTR,  RATIO,  FTU,  FTY) 

ENDIF 

C RECORD  BOTH  S/N  DATA  SETS  TO  RELATO 

DO  330  I - (COUNT  + 1),  (COUNT  + NUM) 

WRITE (6, 9 10)  RAWSTR(I,J),  RAWNF(I,J),  RATIO,  REG, 

& RATSTR ( I, J) , RAWNF(I, J) 

IF  (IOUT  .EQ.  10)  WRITE(8.910)  RAWSTR(I.J),  RAWNF(I,J), 
& RATIO,  REG,  RATSTR(I,J),  RAWNF(I,J) 

330  CONTINUE 


K = NP( J,REG) 

DO  340  I - (COUNT  +1),  (COUNT  + NUM) 

K - K + 1 

LNSTR(K, J, REG)  * ALOG ( RATSTR ( I, J) ) 

LNNF(K,J,REG)  “ ALOG ( RAWNF ( I , J ) ) 

340  CONTINUE 

IF  (K  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  OVER  LIMIT  ON  NUMBER  OF  POINTS  ', 

& ' IN  SET  ' , J 

CALL  TRMNAT 
ENDIF 


NP( J,REG)  - K 
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COUNT  = COUNT  + NUM 

300  CONTINUE 

IF  (NPTS(J)  .NE.  COUNT)  THEN 

WRITE ( 8 , * ) 'ERROR:  NUMBER  OF  POINTS  PER  DIVISION 

& 'INCORRECTLY  SPECIFIED  IN  SET  ',  J 

CALL  TRMNAT 
END  IF 

200  CONTINUE 


C FORMAT  STATEMENTS  USED  TO  WRITE  TO  SPECFO  AND  RELATO 

900  FORMAT(////, 13X, 'MATERIAL  INPUT' . ///,2X, 'DESCRIPTION: ' ,2X,A40, //, 
& 2X, 'YIELD  STRENGTH ' , 18X, Ell. 5, //,2X. 'ULTIMATE  STRENGTH', 

t 15X,E11.5,//,2X, 'NUMBER  OF  POINTS ' , 16X, 12 ) 

905  FORMAT(//,7X, 'ORIGINAL  S/N',9X, 'STRESS' , 15X, 'TRANSFORMED  S/N', 

& /,5X, ' STRESS ',7X, 'LIFE' ,7X, 'RATIO', 3X, 'REGION',5X, 

& 'STRESS' ,7X, 'LIFE'/) 

910  FORMAT(2X,E11.5,2X,F9.0,5X,F5.2,5X,I1,5X,E11.5,2X,F9.0) 

913  FORMAT ( / / ) 

914  FORMAT (2X, 'THERE  IS  A NO  DATA  REGION  TO  THE  LEFT  WITH  AN  So  OF', 

6 5X,E11.5) 

915  FORMAT  (2X. 'THERE  IS  ',12,'  REGION(S)  WITH  DATA  ', 

& /,2X, 'AND  ',12,'  REGION (S ) TO  THE  RIGHT  WITHOUT  DATA', 

& /,2X, 'THE  UPPER  BOUND(S)  OF  THE  REGION(S)  ARE  ', 

fc  '(CYCLES):  ',/) 

920  FORMAT(10X,E9.3) 

925  FORMAT (///, 2X, 'EXOGENOUS  INFORMATION' , ///,2X, 

& 'CONSTRAINT  ON  COEFFICIENT  OF  VARIATION,  C:',2X,F6.4, 

i //,2X, 'EXPLICIT  CONSTRAINT  ON  m FOR  EACH  REGION:’, 

fc  //, 2X, 'REGION', 5X,'I  OF  POINTS ', 5X, 'LOWER  BOUND', 

& 5X, 'UPPER  BOUND' ,/) 

930  FORMAT (6X, 11,1 IX, II, 12X,F7 . 4,9X,F7 .4) 

935  FORMAT (2 OX, 'NUMBER  OF  DATA  SETS: ' ,2X. 12, //, 17X. 

& 'NOTE:  ALL  Kt  ASSUMED  TO  BE  1.0' ,////, 23X, 

& 'TRANSFORMED  DATA' ) 

940  FORMAT ( / // , 2X, 'DESCRIPTION: ' ,2X.A40, 

& //,2X, 'YIELD  STRENGTH', 1&X.F7.0, 

& //,2X, 'ULTIMATE  STRENGTH' f15X,F7.0, 

& //,2X, 'NUMBER  OF  POINTS ', 16X, 12 ) 

945  FORMAT (/,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS:'. 

6 //, 2X, ' REGION ',5X, 'DELTA' ,8X, 'mo' ,10X, 'SIGMAi',/) 

950  FORMAT (5X, 11, 5X,F7 .2 , 5X,F7 .4, 5X,E11 . 5) 

955  FORMAT (//,2X, 'MATERIALS  PROCESS  VARIATION  INFORMATION', 

& //, 2X, 'MEDK*/MEDK: ' , 5X, Ell . 5, /, 5X, 'LAMBDAN: ' ,5X,E11.5) 


RETURN 

END 


C******* ************************************** *************************** 


C THIS  SUBROUTINE  PERFORMS  THE  TRANSFORMATION  ON  STR( ) WHEN  THE 
C STRESS  RATIO,  R,  IS  NOT  -1.0 
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nnnoo 


V8.2 


PROGRAMMER: 
DATE: 
VERSION : 


L.  NEWLIN 

CODE:  60CT87  COMMENTS:  13JUL89 

MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1, 
V8.3,  V8.4.  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  CONVRT  (J,  NUMl,  NUM2 , STR,  RSTR,  R,  FTU,  FTY) 


C INPUTS:  J,  NUMl,  NUM2,  STR,  R,  FTU,  FTY 

C OUTPUTS:  RSTR 


C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXSET  * 5) 

COMMON  I OUT 

INTEGER  I,  I OUT,  J,  NUMl,  NUM2 

REAL  FTU,  FTY,  R,  RSTR (MAXDAT , 0 : MAXSET) , 
& STR (MAXDAT,  0:MAXSET),  TEST 


C 

C 

C FTU 
C FTY 
C I 
C I OUT 
C J 

C MAXDAT 
C MAXSET 
C NUMl 
C NUM2 
C R 

C RSTR( ) 
C STR( ) 

C TEST 


LIST  OF  VARIABLES 

ULTIMATE  STRENGTH  OF  MATERIAL  (PSI) 

YIELD  STRENGTH  OF  MATERIAL  (PSI) 

CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  THE  DATA  SET 
OUTPUT  DUMP  CONTROLLER 
DATA  SET  OF  INTEREST 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 

MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

FIRST  INDEX  TO  BE  TRANSFORMED 

LAST  INDEX  TO  BE  TRANSFORMED 

STRESS  RATIO  (R  ■ -1.0  IS  DESIRED) 

STR()  VALUES  TRANSFORMED  TO  R - -1.0  (PSI) 

ARRAY  CONTAINING  STRESS  VALUES  (PSI)  FOR  S/N  CURVE 
Kt  * Sm&X  * (1  - R)/2  , TO  BE  COMPARED  WITH  FTY 


C Kt  IS  ASSUMED  TO  BE  ONE 
DO  100  I - NUMl,  NUM2 

TEST  * STR(I, J)  * (1.0  - RJ/2.0 

IF  (IOUT.EQ. 10)  WRITE ( 8,  *)  'I  »',I,'  TEST  «',TEST 

IF  (TEST  .GE.  FTY)  THEN 
RSTR( I, J)  * TEST 

IF  (IOUT.EQ. 10)  WRITE ( 8 , * ) ' 1 :RSTR( ) =',RSTR(I,J) 

ELSE  IF  ((TEST  .LT.  FTY)  .AND.  (STR(I,J)  .GT.  FTY))  THEN 
RSTR( I, J)  - TEST/ (1.0  -((FTY  - TEST) /FTU) ) 

IF  (IOUT.EQ. 10)  WRITE(8,*) '2:RSTR( ) ,RSTR(I, J) 

ELSE 

RSTR( I, J)  ■ TEST/ (1.0  - ((1.0  + R)  * STR(I,J) 

& / (2 .0  * FTU))) 

IF  (IOUT.EQ. 10)  WRITE ( 8 , * ) ' 3 :RSTR( ) =' ,RSTR(I,J) 

END  IF 

100  CONTINUE 

RETURN 
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END 


C ************************************************************************ 


SUBROUTINE  SW2SU2  CALCULATES.  SWHAT2,  THE  RESIDUAL  VARIANCES  OF  Y ON  X 
AND,  SUHAT2 , THE  X CM  Y REGRESSIONS  FOR  EACH  REGION  WHERE  Y = LN(NF)  AND 
X - LN(STR);  TO  BE  USED  IN  THE  CONFIDENCE  INTERVAL  CALCULATIONS 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  SW2SU2  (NUMREG,  NSETS,  NP,  LNSTR,  LNNF,  SX2,  SXY, 

& SY2,  DD,  SWHAT2,  SUHAT2,  NPPR) 

INPUTS:  NUMREG,  NSETS,  NP,  LNSTR,  LNNF 

OUTPUTS:  SX2,  SXY,  SY2,  DD,  SWHAT2,  SUHAT2,  NPPR 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  « 50,  MAXREG  = 3,  MAXSET  ■ 5) 

COMMON  IOUT 

INTEGER  IOUT,  J,  K,  L,  NP(0:MAXSET,  MAXREG),  NPPR(MAXREG) , 
t NSETS,  NUMREG 

REAL  BB (MAXREG) , DD (MAXREG) , DIFFX (MAXDAT,  0:MAXSET), 

& DIFFY ( MAXDAT , 0 : MAXSET ) , LNNF ( MAXDAT , 0: MAXSET,  MAXREG), 

& LNSTR ( MAXDAT , 0 : MAXSET,  MAXREG),  MEANX ( 0 : MAXSET ) , 

& MEANY(OsMAXSET) , SUHAT2 ( MAXREG ) , SWHAT2 (MAXREG) , 

t , SX2 (MAXREG),  SXY (MAXREG) , SY2 (MAXREG) 


LIST  OF  VARIABLES 

BB( ) 1-D  ARRAY  CONTAINING  SXY(L) /SY2 (L)  FOR  EACH  REGION 

DD( ) 1-D  ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 

DIFFX ( ) 2-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNSTR(K,J,L) 

AND  MEANX (J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
DIFFY ( ) 2-D  ARRAY  CONTAINING  THE  DIFFERENCE  BETWEEN  LNNF(K,J,L) 

AND  MEANY(J)  FOR  EACH  POINT  IN  EACH  DATA  SET  FOR  REGION  L 
IOUT  OUTPUT  DUMP  CONTROLLER 

J CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

K CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LNNF()  3-D  ARRAY  CONTAINING  LN(RAWNF( ) ) , ALSO  INDEXED  FOR  REGION 
LNSTR ( ) 3-D  ARRAY  CONTAINING  LN(RATSTR( ) ) , ALSO  INDEXED  FOR  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  POINTS  PER  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MAXSET  MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

MEANX ()  1-D  ARRAY  CONTAINING  SAMPLE  X MEAN  FOR  POINTS  FROM  REGION 

L AND  DATA  SET  J (X  « Ln  S) 

MEANY()  1-D  ARRAY  CONTAINING  SAMPLE  Y MEAN  FOR  POINTS  FROM  REGION 
L AND  DATA  SET  J (Y  - Ln  N) 

NP ( ) 2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 

SET  IN  EACH  REGION 

NPPR()  1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NSETS  NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SUHAT2 ( ) 1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 

REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
S WHAT 2 ( ) 1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 

REGRESSION  FOR  THE  BEST  FIT  LINE  FOR  EACH  REGION 
SX2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 

(X  « Ln  S) 

SXY ( ) 1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y,  COVARIANCE  FOR 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 
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EACH  REGION  (X  * Ln  S,  Y » Ln  N) 

SY2 ( ) 1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 

(Y  - Ln  N) 


INITIALIZE  ARRAYS 

DO  50  L - 1.  MAXREG 
SY2 (L)  » 0.0 
SX2 (L)  - 0.0 
SXY (L  j - 0.0 
SWHAT2 (L)  -0.0 
SUHAT2 (L)  - 0.0 
BB(L)  - 0.0 
DD(L)  =0.0 
NPPR(L)  = 0 
50  CONTINUE 

DO  60  J = 0,  MAXSET 
DO  70  K = 1,  MAXDAT 
DIFFY (K, J)  = 0.0 
DIFFX (K, J)  = 0.0 
70  CONTINUE 

MEANY(J)  = 0.0 
MEANX(J)  = 0.0 
60  CONTINUE 

NOW  PERFORM  CALCULATION  OF  SX2,  SY2,  SXY,  SWHAT2,  SUHAT2  FOR  EACH  REGION 

DO  100  L = 1,  NUMREG 

DO  200  J = 0,  NSETS 

FIRST  CALCULATE  SAMPLE  X AND  Y MEANS 
FOR  DATA  SET  J IN  REGION  L 
MEANY(J)  = 0.0 
MEANX( J)  = 0.0 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * 1 'L  =' , L,  ' J =',  J, 
i ' NP  =',  NP( J,L) 

DO  250  K = 1,  NP(J,L) 

MEANY(J)  - MEANY(J)  + LNNF(K, J,L) 

MEANX(J)  = MEANX(J)  + LNSTR(K,J,L) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * 5 'LNNF  =',  LNNF(K,J,L), 

& ' LNSTR  = ',  LNSTR(K, J,L) 

250  CONTINUE 

MEANY(J)  = MEANY( J) /FLOAT  (NP(J,L) ) 

MEANX(J)  « MEANX(J) /FLOAT (NP(J,L}> 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'MEANY(J)  MEANY( J) , 

i ' MEANX(J)  =',  MEANX(J) 

NOW  CALCULATE  SAMPLE  VARIANCES,  SY2,  SX2  AND  SXY, 

OF  X AND  Y FOR  EACH  REGION  BY  SUMMING  OVER  EACH 
DATA  SET  IN  REGION  L 


& 

& 


DO 


300  K = 1, 
DIFFY(K, J) 
DIFFX(K, J) 


NP( J,L) 


SY2 (L)  = SY2 (L 
SX2 (L)  = SX2 
SXY(L)  = SXY 
IF  (IOUT  .EQ 
WRITE (8,*) 

WRITE ( 8 , * ) 


LNNF(K, J,L)  - MEANY(J) 
LNSTR(K, J,L)  - MEANX(J) 


Pli 


DIFFY(Kf J 
DIFFX  KfJ 
DIFFX(K#  J 
THEN 
K 


2 

**  2 

* DIFFY (K, J) 


DIFFY(KrJ) 


DIf£*X(&, J)  =',  DIFFX(K.J) 
SY2(L)  =',  SY2 (L) , ' SX2(L) 
SXY(L)  =',  SXY (L) 


DIFFY(K,J), 


SX2(L) 


ENDIF 


300 

CONTINUE 

200 

NPPR(L)  = NPPR(L) 
IF  (IOUT  .EQ,  10) 
CONTINUE 

+ NP(J.L)  - 1 

WRITE (8,*)  'NPPR(L)  =',  NPPR(L) 

IF  (SXY(L)  .GE.  0.0) 

THEN 
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LIFE  WILL  INCREASE  WITH  INCREASING  STRESS  — INVALID  FOR 
OUR  MODEL 

WRITE ( 8,  *)  'ERROR:  SXY  >»  0 IN  REGION',  L 
CALL  TRMNAT 
ENDIF 

NPPR(L)  - NFPR(L)  - 1 
IF  (NFPR(L)  .LE.  0)  THEN 

WRITE ( 8,  *)  'ERROR:  TOO  FEW  POINTS  FOR  REGRESSION  IN  ', 

& 'REGION  ' ,L 

CALL  TRMNAT 
ENDIF 

SY2 (L)  - SY2(L)  / FLOAT (NPPR(L) ) 

SX2 (L)  - SX2  L)  / FLOAT (NPPR(L) ) 

SXY (L)  = SXY(L)  / FLOAT (NPPR(L) ) 

NOW  CALCULATE  THE  RESIDUAL  VARIANCES,  SWHAT2,  SUHAT2,  FOR  EACH 
REGION  FROM  THE  Y ON  X AND  X ON  Y REGRESSIONS 

DD(L)  - SXY (L)  / SX2 (L) 

BB(L)  = SXY (L)  / SY2 (L) 

IF  ( IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'NPPR(L)  ■' , NPPR(L),  ' SY2(L)  *',  SY2(L), 

& ' SX2 (L)  SX2(L) 

WRITE ( 8 , * ) 'SXY(L)  SXY(L) , ' DD(L)  ■',  DD(L) , 

& ' BB(L)  BB(L) 

ENDIF 

DO  400  J = 0,  NSETS 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'J  J,  ' NP(J,L)  -',  NP(J,L) 

DO  500  K = 1,  NP( J,L) 

SWHAT2 ( L ) = SWHAT2 (L) 

£ + (DIFFY(K, J)  - DD(L)  * DIFFX(K, J) ) **  2 

SUHAT2 ( L ) = SUHAT2 (L) 

& + (DIFrX(K, J)  - BB(L)  * DIFFY (K, J) ) **  2 

IF  (IOUT  .EQ.  10)  WRITE(6,*)  'K  =',  K,  ' SWHAT2(L)  -', 
i SWHAT2(L),  ' SUHAT2 ( L ) *',  SUHAT2(L) 

500  CONTINUE 

400  CONTINUE 

SWHAT2 (L)  - SWHAT2 (L)  / FLOAT (NPPR(L) ) 

SUHAT2 (L)  - SUHAT2 (L)  / FLOAT (NPPR( L) ) 

IF  (IOUT  .EQ.  10)  WRITE(8, *)  'NPPR(L)  =',  NPPR(L), 

& ' SWHAT2 (L)  SWHAT2(L),  ' SUHAT2(L)  SUHAT2(L) 

100  CONTINUE 


RETURN 

END 


************** ************************************************** ******* 


SUBROUTINE  FINDMC  CALCULATES  THE  CONSTRAINED  M RANGES  BASED  UPON 
THE  CO  GIVEN  BY  THE  USER 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  80CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDMC  (NUMREG,  CZERO,  SX2,  SXY,  SY2,  MCPNT,  MC) 

C INPUTS:  NUMREG,  CZERO,  SX2,  SXY,  SY2 

C OUTPUTS:  MCPNT,  MC 

C IMPLICIT  NONE 
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INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  MCPNT ( MAXREG ) , NUMREG 

REAL  ARG1,  ARG2,  CZERO,  CZER02,  MC(2,  MAXREG),  SX2( MAXREG) , 
& SXY ( MAXREG ) , SY2 (MAXREG) 


LIST  OF  VARIABLES 


ARGl 

ARG2 

CZERO 

CZER02 

IOUT 

L 

MAXREG 

MC() 


MCPNT ( ) 

NUMREG 
SX2  ( ) 

SXY  ( ) 

SY2  ( ) 


INTERMEDIATE  CALCULATION  VARIABLE 
INTERMEDIATE  CALCULATION  VARIABLE 

EXOGENOUS  INFORMATION  IN  THE  FORM  OF  A CONSTRAINT  ON  THE 
COEFFICIENT  OF  VARIATION,  Co 
EQUAL  TO  CZERO  **  2 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH  REGION 
CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — MC(1,L)  IS 
THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC ( ) FOR  EACH  REGION  

NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  * Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR 
EACH  REGION  (X  * Ln  S,  Y - Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  - Ln  N) 


INITIALIZE  VARIABLES 

DO  50  L - 1,  MAXREG 
MCPNT(L)  - 0 
MC(1,L)  - 0.0 
MC (2 ,L)  - 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS 

CZER02  - CZERO  **  2 

IF  (IOUT  .EQ.  10)  „ 

& WRITE (8,*)  'CZERO  - ',  CZERO,  ' CZER02  — CZER02 

DO  100  L - 1,  NUMREG 

ARGl  = SX2 (L)  - CZER02 
ARG2  -0.0 

IF  (CZERO  .EQ.  0.0)  THEN 

THEN  NO  M CONSTRAINT  IS  REQUIRED 
MCPNT (L)  - 0 

ELSEIF  (ABS(ARGl)  .LT.  1.0E-6)  THEN 

THEN  THE  CONSTRAINT  WILL  BE  ON  THE  LOWER  BOUND  OF  M 
MCPNT (L)  - 1 

MC ( 1 , L ) = - SY2 (L)  / (2.0  * SXY(L)) 

ELSE 

THE  OTHER  TWO  POSSIBLE  CONSTRAINTS  REQUIRE  SOME 
COMMON  CALCULATIONS 
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ARG2  - (SXY(L)  **  2 - SY2(L)  * ARGl) 

IF  (ARG2  .LT.  0.0)  THEN 

C ARG2  IS  NEGATIVE  — IMPLIES  M IS  COMPLEX 

WRITE (8,*)  'ERROR:  Co  TOO  LOW' 

CALL  TRMNAT 
ELSE 

ARG2  « ARG2  **  0.5 
ENDIF 


C 


C 


IF  ( SX2 ( L ) .LT.  CZER02)  THEN 

AGAIN  THE  M CONSTRAINT  IS  JUST  ON  THE  LOWER  BOUND  OF  M 


MCPNT (L)  - 1 
MC(1,L)  - (-  SXY(L) 


ARG2)  / ARGl 


ELSE 

SX2  (L)  .GT.  CZER02  — THIS  TIME  THE  M CONSTRAINT  IS  A RANGE 


MCPNT(L) 
MC(1,L) 
MC ( 2 , L ) 


2 

(-  SXY(L)  - ARG2)  / ARGl 
(-  SXY(L)  + ARG2)  / ARGl 


ENDIF 


ENDIF 
100  CONTINUE 


IF  ( I OUT  .EQ.  10 

DO  200  L * 1, 

WRITE ( 8 , * ) 
WRITE( 8, *) 
WRITE ( 8,  *) 

200  CONTINUE 


THEN 

NUMREG 

'L  * ' L,  ' MCPNT  « '. 
'ARGl  - ',  ARGl,  ' ARG2 
'MC ( 1 ,L)  - ',  MC(1,L), 


MCPNT (LI 
■ ',  ARG2 

MC(2,L)  « MC(2,L) 


ENDIF 


RETURN 

END 


C1 


SUBROUTINE  INTRVL  CALCULATES  THE  95%  CONFIDENCE  INTERVAL,  Io, 
C;  AND  THE  95%  CONFIDENCE  INTERVAL,  Jo,  ON  M 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  50CT87  COMMENTS:  15SEP89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


ON 


V8.3, 


SUBROUTINE  INTRVL  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2 , NPPR,  IZERO, 
fc  JZERO,  MCHAT) 


C INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR 

C OUTPUTS:  IZERO,  JZERO,  MCHAT 

C SUBPROGRAMS : TRMNAT 


C IMPLICIT  NONE 

INTEGER  CHITAB,  MAXREG,  TTAB 

PARAMETER  (CHITAB  = 150,  MAXREG  = 3,  TTAB  = 31) 
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COMMON  I OUT 

INTEGER  I,  I OUT,  L,  NPPR(MAXREG)  , NUM,  NUMREG 


ARG,  CHI025 (CHITAB) , CHI9 75 (CHITAB) , DD(  MAXREG} , 
IZERO(2 , MAXREG),  JZERO(2,  MAXREG) , MCHAT ( 2 , MAXREG) , 
SUHAT,  SUHAT2  (MAXREG) , SWHAT,  SWHAT2  < MAXREG ) , SX, 

SX2 (MAXREG),  T,  T025(TTAB) 


DATA  (CHI025 ( 1} , 1=1.  75)  / 

& 6.000982069,  0.506356.  0.215795.  0.4 
& 1.237347,  1.68987,  2.17973,  2.70039, 
& 3.81575,  4.40379,  5.00874,  5.62872, 
& 6.90766.  7.56418,  8.23075,  8.90655, 
& 10.28293,  10.9823,  11.6885,  12.4011, 
& 13.8439,  14.5733,  15.3079,  16.0471, 


17.53, 

21.33, 

25.21, 

29.15, 

33.16, 

37.21, 
41.30, 
45.43, 
49.59, 


^DATA  (CHI025(I^  I 


53.78, 
57.80, 
62.24, 
66.50, 

70.78, 

75.08, 
79.40, 
83.73, 

88.08, 
92.45, 
96.82. 
101.21, 
105.61, 
110.02, 
114.44, 


18.28, 

22.10, 

25.99, 

29.95, 

33.96, 
38.02, 
42.12, 

46.26, 
50.42, 

76,  150}  / 
54.62, 
58.84, 

63.09, 
67.35, 
71.64, 

75.94, 

80.27, 
84.60, 

88.95, 
93.32, 
97.70. 

102.09, 
106.49, 
110.90, 
115.33, 


DATA 

(CHI97  5(1),  1 = 1, 

75}  / 

5.02389, 

7.37776 

14.4494, 

16.0128 

21.9200, 

23.3367 

28.8454, 

30.1910 

35.4789, 

36.7807 

41.9232, 

43.1944 

48.23, 

49.48, 

54.44, 

55.67, 

60.56, 

61.77, 

66.62, 

67.82, 

72.61, 

73.81, 

78.57, 

79.75, 

84.48, 

85.65, 

90.35, 

91.52, 

96.19, 

97.35, 

DATA 

(CHI975 ( I) . I * 76 

'.ISO)  / 

107.78, 

113.54, 

119.28, 

125.00, 

130.70, 
136.38, 
142.05, 

147.70, 

153.34, 

158.97, 
164.58, 
170.18, 
175.77, 

181.35, 


108.94, 

114.69, 
120.43, 
126.14, 
131.84, 
137.52, 
143.18, 
148.83, 
154.47, 

160.09, 

165.70, 

171.30, 
176.88, 
182.46, 


19.04, 

22.87, 

26.78, 

30.75, 

34.77, 

38.84, 

42.95, 

47.09, 

51.26, 

55.46, 
59.69, 
63.94, 
68.21, 
72.50, 
76.80, 
81.13, 

85.47, 
89.83, 
94.19, 
98.57, 
102.97, 
107.37, 
111.79, 
116.21, 


19.80, 

23.65, 

27.57, 
31.55, 

35.58, 

39.66, 
43.77, 
47.92, 

52.10, 

56.30, 

60.54, 

64.79, 

69.07, 
73.36, 

77.67, 
82.00, 
86.34, 
90.70, 

95.07, 
99.45, 
103.85, 
108.25, 

112.67, 

117.10, 


9.34840, 

17.5346, 

24.7356, 

31.5264, 

38.0757, 

44.4607, 

50.72, 

56.89, 

62.99, 

69.02, 

75.00, 
80.93, 
86.83, 

92.69, 
98.52, 

104.31, 

110.09, 
115.84, 

121.57, 
127.28, 

132.98, 
138.65, 

144.31, 
149.96, 
155.59, 
161.21, 
166.82, 
172.41, 

178.00, 

183.58, 


II.  1433 i 
19.0228, 
26.1190, 
32.8523, 
39.3641, 
45.7222, 
51.96, 

58.12, 
64.20, 
70.22, 
76.19, 

82.12, 
88.00, 
93.86, 
99.68, 

105.47, 

III. 24, 

116.99, 

122.72, 
128.42, 

134.11, 
139.79, 
145.44, 

151.09, 

156.72, 
162.33, 
167.94, 
173.53, 

179.12, 

184.69, 


57.1532, 

61.39, 

65.6466, 

69.92, 

74.2219, 

78.53, 

82.87, 

87.21, 

91.57, 

95.94. 

100.33, 

104.73, 

109.14, 

113.56, 

117.98  / 


12.8325, 

20.4831, 

27.4884, 

34.1696, 

40.6465, 

46.9792, 

53.20, 

59.3417, 

65.41, 

71.4202, 

77.38. 

83.2976, 

89.18. 

95.0231, 

100.84  / 

106.629, 

112.39, 

118.136, 

123.86, 

129.561, 

135.25, 

140.92, 

146.57, 

152.21, 

157.84, 

163.46, 

169.06, 

174.65, 

180.23, 

185.80  / 
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VALUES  FOR  THE  TABLES  ABOVE  WERE  OBTAINED  IN  THE  FOLLOWING  MANNER: 

1 - 30,  40,  50,  60,  70,  80,  90,  100  — Theil,  pp.  718-719 

31-39,  41-49.  51-59,  61-69.  71-79,  81-89,  91-99,  101-150 
— CALCULATED  USING  CUBE  RULE  APPROXIMATION 


DATA  T025  / 12.706,  4.303,  3.182,  2.776,  2.571,  2.447, 

& 2.365,  2.306,  2.262,  2.228,  2.201,  2.179, 

& 2.160,  2.145,  2.131,  2.120,  2.110,  2.101, 

& 2.093,  2.086,  2.080,  2.074,  2.069,  2.064, 

& 2.060,  2.056,  2.052,  2.048,  2.045,  2.042,  1.960  / 


LIST  OF  VARIABLES 


ARG 

CHI 025 ( ) 
CHI9750 
CHITAB 
DD(  ) 

I 

IOUT 
I ZERO ( ) 

JZERO() 

L 

MAXREG 
MCHAT ( ) 


NPPR( ) 

NUM 
NUMREG 
SUHAT 
SUHAT2 ( ) 

SWHAT 
SWHAT2 ( ) 

sx 

SX2() 

C T 

C T025() 

C TTAB 


INTERMEDIATE  CALCULATION  VARIABLE 

TABLE  OF  0.025  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
TABLE  OF  0.975  PERCENTAGE  POINTS,  CHI-SQUARE  DISTRIBUTION 
MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  CHI 02 5 AND  CHI975 

1—  D ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 
CONTROLS  LOOP  FOR  CHI025()  AND  CHI975() 

OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) - -DD,  THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L ) « SUHAT,  THE  ESTIMATE  FOR  C 
1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1))-1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

EQUAL  TO  NPPR(L)  FOR  A SET  OF  CALCULATIONS 
NUMBER  OF  REGIONS  OF  INTEREST 

EQUAL  TO  SUHAT2(L)**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y ■ Ln  N) 

EQUAL  TO  SWHAT2rLi**0.5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N) 

EQUAL  TO  (NPPR(L) *SX2 (L) ) **0 .5  FOR  A SET  OF  CALCULATIONS 
1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  > Ln  si 

VALUE  OF  T025( ) USED  IN  CALCULATIONS 

TABLE  OF  0.025  PERCENTAGE  POINTS,  T DISTRIBUTION 

MAXIMUM  NUMBER  OF  DEGREES  OF  FREEDOM  IN  T025 


C INITIALIZE  IZERO,  JZERO  AND  MCHAT 

DO  50  L = 1,  MAXREG 
IZERO ( 1 ,L ) « 0.0 
IZERO ( 2 ,L ) = 0.0 
JZERO(l,L)  ■ 0.0 
JZERO ( 2 , L ) - 0.0 
MCHAT ( 1 , L ) - 0.0 
MCHAT ( 2 , L ) « 0.0 
50  CONTINUE 

C CHECK  THAT  ALLOWABLE  DEGREES  OF  FREEDOM  HAVE  NOT  BEEN  EXCEEDED 

DO  75  L * 1,  NUMREG 

IF  (NPPR(L)  .GT.  CHITAB)  THEN 

WRITE ( 8, *)  'ERROR:  EXCEEDED  LIMIT  ON  DEGREES  OF  FREEDOM  ', 

6 'IN  CHI-SQUARE  TABLE,  IN  REGION  ' , L 

CALL  TRMNAT 
END  IF 
75  CONTINUE 
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C ASSIGN  VALUES  TO  NUM,  T.  SWHAT,  SUHAT  AND  THEN  CALCULATE 
C CONFIDENCE  INTERVALS  FOR  EACH  REGION 

DO  100  L * 1,  NUMREG 


NUM  - NPPR(L) 

IF  (NUM  .LT.  31)  THEN 
* - T025(NUM) 

ELSE 

T - T025 (NUM) 

ENDIF 


SWHAT  “ SWHAT2 (L)  **  0.5 
SUHAT  » SUHAT2 (Lj  **  0.5 
SX  - (NUM  * SX2 ( L ) ) **  0. 


5 


C CALCULATE  ESTIMATED  VALUES  OF  M AND  C 


ARG  * T * SWHAT  / SX 
MCHAT(1,L)  - - DD(L) 
MCHAT ( 2 , L ) » SUHAT 


C CALCULATE  CONFIDENCE  INTERVALS 


IZERO( 1,L) 

- MCHAT ( 2 , L ) 

* 

(FLOAT  1 

(NUM) 

/ 

CHl975i 

(NUM|) 

IZERO( 2 , L) 

= MCHAT ( 2 , L ) 

* 

(FLOAT  1 

(NUM) 

/ 

CHI025 1 

(NUM)  ) 

1 + + 

JZERO ( 1,L) 

» MCHAT ( 1,L) 

— 

ARG 

JZERO( 2 ,L) 

- MCHAT ( 1,L) 

+ 

ARG 

IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE (8,*) 
Si 

WRITE (8,*) 

& 

WRITE ( 8,  * ) 

& 

ENDIF 
100  CONTINUE 


10)  THEN 
'L  L, 

' SWHAT  2 - 
'SUHAT2  - , 

' SX2  «’ , SX2 
'CHI 02 5 ■ 

'T  T, 

'I ZERO ( 1,L) 
IZERO(2,L 
' JZERO ( 1 , L 
JZERO(2 ,L 
' MCHAT ( 1 ,L 
MCHAT(2 ,L 


NPPR  , NPPR(L) , ' NUM  NUM 

SWHAT2 (L) , ' SWHAT  , SWHAT 

SUHAT2 (L) , ' SUHAT  , SUHAT 
(Xj)  * SX  m*  SX 

CHi625 (NUM) , ' ' CHI975  CHI975 (NUM) 
DD  »' , DD(L).  ' ARG  , ARG 

IZERO(l,L),  ' IZERO(2,L)  «' , 


JZERO(l,L) , 
MCHAT(1,L) , 


JZERO(2,L) 

MCHAT(2,L) 


RETURN 

END 


c 

c 

c 

C 

c 

c 


SUBROUTINE  GTPVAR  CALCULATES  THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE 
HEAT  MEDIAN  S/N  CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 

PROGRAMMER:  L.  NEWLIN  , 

DATE : CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  GTPVAR  (NSETS,  NP,  NUMREG,  LAMN,  MCHAT,  PVAR) 


C INPUTS:  NSETS,  NP,  NUMREG,  LAMN,  MCHAT 

C OUTPUTS : PVAR 


C IMPLICIT  NONE 

INTEGER  MAXREG,  MAXSET 
PARAMETER  (MAXREG  » 3,  MAXSET  = 5) 
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COMMON  IOUT 

INTEGER  IOUT,  J,  L,  NP ( 0 :MAXSET,  MAXREG) , NSETS,  NUM(MAXREG) , 
& NUMREG,  TOTAL 

REAL  LAMN,  MCHAT ( 2 , MAXREG),  PS IG2 (MAXREG) , PVAR,  SUM 


LIST  OF  VARIABLES 


IOUT 

J 

L 

LAMN 

MAXREG 
MAXSET 
MCHAT () 


NP() 

NSETS 
NUM( ) 

NUMREG 
PSIG2 ( ) 

PVAR 

SUM 

TOTAL 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  c**2) , 
CONSTANT  OVER  REGIONS  AND  COMPONENTS 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 
2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT (1,L)  ” -DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT ( 2, L)  = SUHAT,  THE  ESTIMATE  FOR  C 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 
EQUAL  TO  Nj-1  FOR  EACH  REGION  WHERE  Nj  IS  THE  SUM  OF  THE 
NUMBER  OF  POINTS  IN  EACH  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  ESTIMATES  OF  THE  MATERIALS  PROCESS 
VARIATION  IN  EACH  REGION 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEDIAN  S/N 
CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 
WEIGHTED  SUM  OF  THE  PSIG2s  — USED  TO  CALCULATE  A WEIGHTED 
AVERAGE 

SUM  OF  NUM( ) OVER  ALL  REGIONS 


C INITIALIZE  VARIABLES 

SUM  = 0.0 
TOTAL  * 0.0 

DO  50  L - 1,  MAXREG 
PSIG2 (L)  « 0.0 
NUM(L)  « 0 
50  CONTINUE 

DO  100  L « 1,  NUMREG 
DO  150  J “ 0,  NSETS 

NUM(L)  ■ NUM(L)  + NP(J,L) 

150  CONTINUE 

NUM(L)  - NUM(L)  - 1 
TOTAL  « TOTAL  + NUM(L) 

100  CONTINUE 

DO  200  L = 1,  NUMREG 

PSIG2 (L)  = (LAMN  - 1.0)  * MCHAT(2,L)  **  2 
SUM  = SUM  + PSIG2 (L)  * NUM(L) 

200  CONTINUE 


IF  (IOUT  -EQ.  10)  THEN 

WRITE { 8 , * ) 'LAMN  * ',  LAMN 
DO  30(J  L - 1,  NUMREG 
WRITE 
WRITE 
300  CONTINUE 

WRITE (8,*)  'TOTAL  = ',  TOTAL,  ' SUM  - ',  SUM 
ENDIF 


!!:*! 


'L  - ', 
'MCHAT 


L,  ' NUM  - ',  NUM(L) 

- ',  MCHAT(2,L),  ' PSIG2 


PSIG2 (L) 


PVAR  - SUM  / FLOAT  (TOTAL) 

RETURN 

END 
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c** ******♦★★*****★★★* *★★★★♦★★★★★**★**★*★★****★*****★*******★***♦********* 


SUBROUTINE  FNDRNG  COMBINES  THE  PRIOR  ENGINEERING  KNOWLEDGE  ON  BOTH 
M AND  Co  WITH  THE  95%  CONFIDENCE  INTERVALS  (JZERO  FROM  INTKVL) 

TO  OBTAIN  POSTERIOR  CREDIBILITY  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT/COMMENTS:  12AUG91 

VERSION:  MATCHRV6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FNDRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO, 

& MCHAT,  RANGEM) 

INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  JZERO,  MCHAT 

OUTPUTS:  RANGEM 

SUBPROGRAMS:  TRMNAT 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  =■=  3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  MCPNT ( MAXREG ) , MPNT (MAXREG) , NUMREG 

REAL  JZERO ( 2 , MAXREG),  LOWER,  MC(2,  MAXREG),  MCHAT ( 2 , MAXREG), 

& MZERO (2 , MAXREG),  RANGEM ( 2 , MAXREG),  UPPER 


LIST  OF  VARIABLES 

I OUT  OUTPUT  DUMP  CONTROLLER  

JZERO ( ) 2-D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 

FOR  EACH  REGION 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  LOWER  BOUND  OF  INTERSECTION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MC ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 

REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA 
— MC ( 1 , L)  IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

MCHAT ()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 

FOR  EACH  REGION  — MCHAT ( 1,L)  - - DD(L) , THE  ESTIMATE 
FOR  M AND  MCHAT ( 2 , L ) - SUHAT,  THE  ESTIMATE  FOR  C 

MCPNT ( ) 1— D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MC( ) FOR  EACH  REGION 

MPNT()  1— D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 

MZERO ()  FOR  EACH  REGION 

MZERO ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RANGEM ( ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 

FOR  EACH  REGION  — RANGEM ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

UPPER  UPPER  BOUND  OF  INTERSECTION 


C INITIALIZE  VARIABLES 

DO  50  L - 1,  MAXREG 
RANGEM( 1,L)  - 0.0 
RANGEM(2 ,L)  - 0.0 
50  CONTINUE 

C PERFORM  CALCULATIONS  FOR  EACH  REGION  OF  INTEREST 
DO  100  L - 1,  NUMREG 


7-396 


no  no  no  on 


IF  (TOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'L  - ' , L,  ' NUMREG  - ' , NUMREG 
WRITE / 8 , * ) ' MPNT  - MPNT(L),  ' MCPNT  - ' , MCPNT(L) 
END  IF 

IF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 

THERE  IS  NO  EXOGENOUS  INFORMATION 
ASSUME  RANGE  TO  BE  JO 


RANGEM ( 1 , L ) - JZERO( 1,L) 
RANG  EM  (2, It)  - JZERO(2,L) 


£ 

& 


IF  ( IOUT  .EQ.  10)  THEN 

WRITE (8,*)  ' RANGEM ( l.L) 

' JZERO( l.L) 
WRITE ( 8,  * ) ' RANGEM ( 2, L) 
' JZERO ( 2 , L ) 

ENDIF 


RANGEM ( l.L) 
JZERO ( 1,L) 
RANGEM ( 2 , L ) 
JZERO ( 2 , L ) 


9 


9 


ELSEIF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A LOWER  BOUND  ON  M DUE 
TO  CO,  ADJUST  THE  LOWER  BOUND  OF  Jo  ACCORDINGLY 


LOWER  - AMAXl ( JZERO (1,L) , MC(1,L) ) 
UPPER  - JZERO(2,L) 

IF  (UPPER  .LT.  LOWER) 

WRITE ( 8 , * ) 'ERROR: 

CALL  TRMNAT 
ELSE 

RANGEM( 1,L) 

RANGEM ( 2, L) 

ENDIF 


THEN 

NO  INTERSECTION  BETWEEN  Jo  AND 


LOWER 

UPPER 


MC' 


& 


& 


IF  (IOUT  .EQ. 
WRITE ( 8, * ) 

WRITE (8,*) 
WRITE / 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
' JZERO(l,L) 
JZERO / 2 , L ) 
'MC(1.L)  - ' 
'LOWER  - ' , 

' RANGEM  ( 1,L) 
RANGEM/ 2, L) 


- ',  JZERO ( 1 , L ) , 

- ',  JZERO / 2 , L ) 

, MC(1,L) 

LOWER,  ' UPPER  - 

= RANGEM ( 1 , L ) 

- ',  RANGEM / 2 , L ) 


UPPER 


ELSEIF  ( (MPNT(L)  .EQ.  0)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  NO  PRIOR  RANGE  ON  M,  BUT  THERE  IS  A RANGE 
CORRESPONDING  TO  THE  Co  CONSTRAINT,  ADJUST  Jo  ACCORDINGLY 

LOWER  « AMAXl ( JZERO ( 1,L) , MC(1,L)) 

UPPER  - AMIN 1 (JZERO/ 2, L).  MC/2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE (8,*)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L)  = LOWER 
RANGEM/ 2, L)  - UPPER 
ENDIF 


& 


t 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE / 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 

' JZERO ( 1 , L ) = ',  JZERO ( 1 , L ) , 
JZERO ( 2 , L ) * ',  JZERO(2,L) 

£,)  - • MC(  1,L) , ' MC( 2,L) 

LOWER,  ' UPPER  * 


W IIWW  1 

' MC (1,1 
'LOWER 


uppeA 


' RANGEM ( 1,L) 
RANGEM/ 2, L) 


RANGEM ( 1,L) , 
RANGEM ( 2 ,L) 


MC(2,L) 


ELSEIF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


RANGEM ( 1,L)  - MZERO(l,L) 
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RANGEM ( 2 , L ) - 0.0 

IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'MZERO(' 

,*)  'RANGEM 

' RANGEM 


WRITE ( 8 
END  IF 

ELSE IF  ( (MFNT(L) 


l.L)  - ',  MZERO(l,L) 
(i,L)  - RANGEM( 1,L) , 

(2,L)  - RANGEM(2,L) 


.EQ.  2)  .AND.  (MCPNT(L)  .EQ.  0))  THEN 


THERE  IS  A PRIOR  RANGE  ON  M,  BUT  NO  CO  CONSTRAINT 
USE  INTERSECTION  BETWEEN  Jo  AND  Mo 


LOWER  - AMAX1 ( JZERO ( 1,L) , MZERO( 1,L) ) 

UPPER  - AMINl(JZERO(2,L) , MZERO(2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN  _ „ 

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Jo  AND  Mo' 

CALL  TRMNAT 
ELSE 

RANGEM(1,L)  - LOWER 
RANGEM(2,L)  - UPPER 
END  IF 


£ 

£ 


£ 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

WRITE( 8, * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 


'LOWER 
'RANGEM( 1,L 
RANGEM ( 2 , L 


I1'1') 

- ' r JZERO < 

1,L), 

(2,L) 

- ',  JZERO ( 

2,L 

(1,L) 

■ ' , MZERO{ 

(2,L) 

® f 

* ' MZEROi 
LOWER,  f UI 

RANGEM( 1,L) , 
RANGEM ( 2, L) 


UPPER 


ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT,  INTERSECT  JO  AND  Mo,  ADJUSTING  THE  LOWER  BOUND 
BY  Me  ACCORDINGLY 


LOWER  - AMAX1 ( JZERO( 1,L) , MZERO(l,L),  MC(1,L)) 

UPPER  - AMIN 1 ( JZERO ( 2 , L ) , MZERO(2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE ( 8, *)  'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  Mo,  ', 

£ 'AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1 , L ) - LOWER 
RANGEM ( 2 , L ) - UPPER 
ENDIF 


£ 

£ 


£ 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) ' JZERO ( 1,L) 

' JZERO(2,L) 
WRITE ( 8 , * ) 'MZEROi 1,L) 

' MZERO(2,L) 
WRITE ( 8 , * ) ' MC (l.L)  = ' 
WRITE  8 , * ) 'LOWER  ■ ', 
WRITE ( 8, *)  'RANEGM(1,L) 
' RANGEM ( 2 ,L) 

ENDIF 


- ',  JZERO ( 1,L) , 

- ',  JZERO(2,L) 

- ',  MZEROi 1 ,L) , 
• ',  MZERO(2,L) 

, MCI 1,L) 

LOWER,  ' UPPER  - 
» ',  RANGEM ( 1,L) 
= ',  RANGEM ( 2, L) 


UPPER 


ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  Co  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES  WITH  JO 


LOWER  “ AMAXl ( JZERO ( 1,L) , MZERO(l,L),  MC(1,L)) 

UPPER  - AMIN1 ( JZERO! 2,L),  MZERO(2,L),  MC(2,L)) 

IF  (UPPER  .LT.  LOWER)  THEN  

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Jo,  MO,  ', 

£ 'AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM (1,L)  * LOWER 
RANGEM ( 2, L)  “ UPPER 
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ENDIF 


IF  (IOUT  .EQ. 

10)  THEN 

WRITE ( 8 , * ) 

' JZERO(l,L) 

■ ',  JZERO( 1,L) 

& 

' JZEROf 2,L) 

- ',  JZERO  2,L) 

WRITE ( 8, * ) 

' MZERO ( 1 ,L) 

- MZERO ( 1 , L ) 

& 

' MZERO ( 2 , L ) 

- MZERO ( 2 , L ) 

WRITE ( 8 , * ) 

'MC( 1,L)  - ' 

, MC(1,L) 

WRITE ( 8 , * ) 

'LOWER  - ', 

LOWER,  ' UPPER 

WRITE ( 8 , * ) 

' RANGEM ( 1,L) 

- ',  RANGEM ( 1 , 

& 

' RANGEM ( 2, L) 

« ',  RANGEM ( 2 , 

ENDIF 


UPPER 


ELSE 

WRITE (8,*)  'ERRORS  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN  ' , L 
CALL  TRMNAT 


ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM(1,L)  = AMAX1 (RANGEM( 1 , L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'RANGEM( 1,L)  - ',  RANGEH(1,L) 
100  CONTINUE 


C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L - 1,  NUMREG 

IF  ( ( MCHAT ( 1 , L ) .LT.  RANGEM ( 1 ,L) ) 

& .OR.  < MCHAT (1,L)  .GT.  RANGEM(2 ,L) ) ) 

& WRITE (8,*)  'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE  ', 

& 'ON  m IN  REGION  ',  L 

300  CONTINUE 


RETURN 

END 


£★*★**★****************************************************************** 


SUBROUTINE  ADDREG  ADDS  THE  INFORMATION  ON  M RANGES  FOR  REGIONS 
WITHOUT  DATA 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  2FEB88  FORMAT/ COMMENTS : 12AUG91 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDREG  (RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT) 

C INPUTS:  RANGEM,  MCHAT,  NNODAT,  NUMREG,  MZERO,  MPNT 

C OUTPUTS:  RANGEM,  MCHAT,  NUMREG 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  LL,  MPNT ( MAXREG ) , NNODAT,  NUMREG 

REAL  MCHAT ( 2 , MAXREG),  MZERO(2,  MAXREG),  RANGEM(2 , MAXREG) 
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LIST  OF  VARIABLES 


IOUT 

L 

LL 

MAXREG 
MCHAT( ) 


MPNT( ) 
MZERO( ) 


NNODAT 
NUMREG 
RANG EM  ( ) 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 

MCHAT ( 1 , L ) * - DD(L),  THE  ESTIMATE  FOR  M AND 
MCHAT(2,L)  ■ SUHAT,  THE  ESTIMATE  FOR  C 

1—  D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO{)  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 

EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO (2 ,L) 
IS  UPPER  BOUND  . 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 


IF  (IOUT  .EQ.  10)  WRITE (8,*)  'NUMREG  = ',  NUMREG 

DO  100  L - 1,  NNODAT 
NUMREG  * NUMREG  + 1 
LL  = NUMREG 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'L  L,  ' 
i ' LL  = ' , LL,  ' MPNT(LL)  , MPNT(LL) 


& 

& 


NUMREG 


NUMREG, 


IF  ( (MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ.  2))  THEN 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 


MZERO ( 1,LL) 
MZERO(2,LL) 
10)  THEN 


( 1,LL) 

RANGEM ( 

i,i*). 

( 1,LL) 

« MZERO  i 

i,i*> 

(2,LL) 

RANGEM 

|2,LL), 

(2 ,LL) 

- MZERO { 

! 2,1*) 

RANGEM ( 1,LL) 

RANGEM ( 2, LL) 

IF  (IOUT  .EQ. 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 

ENDIF 

SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 

IF  (RANGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT ( 1,LL)  = RANGEM (1,LL) 

ELSE 

MCHAT ( 1,LL)  « ( RANGEM ( 1 , LL ) + RANGEM ( 2, LL) ) / 2.0 
ENDIF 

IF  (IOUT  .EQ.  10)  WRITE (8,*)  'MCHAT  -',  MCHAT ( 1 , LL ) 

else 

WRITE (8,*)  'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ' , 

6 ' SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 


C************************************************************************ 


C 

c 

c 

c 

c 

c 


SUBROUTINE  CONCAV  ADJUSTS  THE  UPPER  BOUNDS  OF  THE  POSTERIOR  CREDIBILITY 
RANGES  ON  M TO  BE  CONSISTENT  WITH  CONCAVITY  CONSTRAINTS 
PROGRAMMER:  L.  NEWLIN  , _ 

DATE:  2FEB88  FORMAT/COMMENTS:  15SEP89 

VERSION:  MATCHR  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 
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c MATGRM  V4,  V4.1,  V4*2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  CONCAV  (NUMREG,  RANGEM) 

C INPUTS:  NUMREG,  RANGEM 

C OUTPUTS : RANGEM 

C SUBPROGRAMS : TRMNAT 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  « 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  RANGEM ( 2 , MAXREG),  TESTM 


LIST  OF  VARIABLES 


IOUT 

L 

MAXREG 
NUMREG 
RANGEM ( ) 


TESTM 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1, L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 
UPPER  BOUND  OF  RANGE  ON  M IN  REGION  L-l  — USED  DURING 
CONCAVITY  ADJUSTMENT 


C ADJUST  RANGE  TO  INSURE  CONCAVITY 


DO  100  L * NUMREG,  2,  -1 


IF  (RANGEM( 2 ,L-1)  .EQ.  0*0)  THEN 
C RANGE  IS  A POINT  IN  REGION  L-l 

IF  ( RANGEM (1, L-l)  .GT.  AMAX1  (RANGEM  (1,L),RANGEM  (2  ,L)  ) ) THEN 
WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  ',  L, 

£ ' IS  INCONSISTENT  WITH  POINT  POSTERIOR  IN  REGION  ' ,L-1 

CALL  TRMNAT 
ENDIF 
ELSE 

C RANGE  IS  AN  INTERVAL  IN  REGION  L-l 

TESTM  = AMAXl(RANGEM(l.L),  RANGEM(2 ,L)  ) 

IF  (TESTM  .LT.  RANGEM ( I,  L-l)  ) THEN 

WRITE (8,*)  'ERROR:  POSTERIOR  INTERVAL  IN  REGION  L, 

& ' IS  INCONSISTENT  WITH  THE  POSTERIOR  INTERVAL  IN  ' , 

& 'REGION  ',  L-l 

CALL  TRMNAT 
ELSE 

RANGEM (2, L-l)  - AMIN 1 (RANGEM ( 2, L-l) , TESTM) 

ENDIF 

ENDIF 


& 

& 


IF  (IOUT  .EQ. 
WRITE(8,*) 

WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

' RANGEM ( 1 . L- 1 ) , RANGEM ( 1, L-l) , 

' RANGEM { 2 , L- 1 ) »' , RANGEM ( 2 , L- 1 ) 
’ RANGEM ( 1,L)  =' , RANGEM(l.L), 

' RANGEM ( 2, L)  =' , RANGEM ( 2, L) 
'TESTM  *=' , TESTM,  ' L - L 


100  CONTINUE 


RETURN 

END 


************************************** ***************************** 
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SUBROUTINE  MEDIAN  CALCULATES  THE  MEDIAN  VALUES  OF  M AFTER  Jo  HAS 
BEEN  ADJUSTED  BECAUSE  OF  PRIOR  INFORMATION  ON  M OR  Co 
PROGRAMMER:  L.  NEWLIN  , _ „ 

DATE:  CODE:  50CT87  COMMENTS:  1DEC87 

VERSION:  MATCHR  V6 , V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  MEDIAN  (NUMREG,  RANGEM,  MEDM) 

INPUTS:  NUMREG,  RANGEM 

IOUTPUT:  MEDM 


IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  LOWERM,  MEDM ( MAXREG ) , RANGEM(2,  MAXREG) 


LIST  OF  VARIABLES 


IOUT 

L 

LOWERM 

MAXREG 
MEDM(  ) 
NUMREG 
RANGEM ( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  M RANGE  (DUE  TO  CONCAVITY  CONSIDERATION) 

TO  BE  USED  IN  MEDIAN  CALCULATION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM] 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L)  IS  THE  UPPER  BOUND 


INITIALIZE  ARRAY  MEDM 

DO  50  L - 1,  MAXREG 
MEDM ( L ) - 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS  FOR  EACH  REGION 
DO  100  L = 1,  NUMREG 

IF  (RANGEM(2,L)  .EQ.  0.0)  THEN 
RANGE  IS  A POINT 
MEDM(L)  = RANGEM ( 1,L) 

ELSE IF  (L  .EQ.  1)  THEN 

WE  ARE  IN  REGION  ONE  — NOT  AFFECTED  BY  OTHER  REGIONS 
— MEDIAN  WILL  JUST  BE  AVERAGE  OF  RANGEM  VALUES 

MEDM(L)  = ( RANGEM ( 1 , L ) + RANGEM(2,L) ) / 2.0 

ELSE 

C MUST  TAKE  MEDIAN  OF  REGION  L-l  INTO  ACCOUNT 

LOWERM  = AMAXl ( RANGEM ( 1 , L ) , MEDM (L-l) ) 

MEDM(L)  « (LOWERM  + RANGEM ( 2, L) ) / 2.0 

ENDIF 
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IF  (IOUT  .EQ* 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


WRITE ( 8 , * ) 
END  IF 


10)  THEN 
'L  * ' , L,  ' 
9 RANGEM ( 1 , L ) 
RANGEM ( 2 , L ) 
'LOWERM  - ' , 


NUHREG  - ' , NUMREG 
RANGEM ( 1,L)  , 
RANGEM  ( 2 , L J 

">M(L)  - 


LOWERM,  ' MEDM(I 


MEDM(L) 


100  CONTINUE 


RETURN 

END 


C 


C SUBROUTINE  EXPCTD  CALCULATES  THE  EXPECTED  OR  MEDIAN  VALUES  OF  THE  S/N 
C CURVE  PARAMETERS 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  13FEB89  FORMAT / COMMENTS : 15SEP89 

C VERSION:  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4*5 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology* 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C i s ac knowledged . 


SUBROUTINE  EXPCTD  (NCOMPS,  MEDM,  NPTS.  STR,  NF,  SZERO,  NUMREG, 

& ZROREG,  NBND,  BIGK1,  BZHAT) 

INPUTS:  NCOMPS,  MEDM,  NPTS,  STR,  NF,  SZERO,  NUMREG,  ZROREG,  NBND 

OUTPUTS : BIGKl , BZHAT 

SUBPROGRAMS:  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDSB,  KOMO 

IMPLICIT  NONE 
INTEGER  MAXDAT,  MAXREG 
PARAMETER  (MAXDAT  * 50,  MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NCOMPS,  NP,  NPTS ( MAXREG ) , NUMREG,  ZROREG 

REAL  BIGK( 0 : MAXREG) , BIGKl,  BZHAT,  FACTR,  KHAT,  MEANZ, 

& MEDM < MAXREG ) , MM( 0 : MAXREG) , NBND ( 0 : MAXREG) , 

& NF{ MAXDAT,  MAXREG),  SBND ( 6 : MAXREG ) , STR (MAXDAT,  MAXREG), 

& SZl,  SZERO,  TRBIGK(0:MAXREG) , ZZ (MAXDAT) 


LIST  OF  VARIABLES 


BIGK(  ) 

BIGKl 
BZHAT 
FACTR 
IOUT 
KHAT 
L 

MAXDAT 
MAXREG 
MEANZ 
MEDM(  ) 
MM(  ) 
NBND( ) 

NCOMPS 
C 

C NF(  ) 


1— D ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A * K **  M FOR 
EACH  REGION 
EQUAL  TO  BIGK(l) 

E(BETAO) 

A SCALE  FACTOR  « PHI  * KRATIO  * Z 
OUTPUT  DUMP  CONTROLLER 

c^nIrols  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z * F(STR,  NF,  NBND,  MM) 

1-D  ARRAY  CONTAINING  VALUES  OF  THE  MEDIAN  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  M FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

regions  of  interest 

Number  of  COMPonentS  — 1 FOR  STRESS  AND  STRAIN  WHEN  DECOMPOSED 
DATA  UNAVAILABLE  — 2 FOR  DECOMPOSED  STRAIN  DATA 

2- D  ARRAY  CONTAINING  RAWNFM  (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
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NP 

NPTS ( ) 

NUMREG 
SBND( ) 


STR(  ) 

SZ2 
SZERO 
TRBIGK( ) 

ZROREG 

ZZ() 


TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 
DATA  SET 

l-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  EACH  REGION  FOR 
THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMBER  OF  REGIONS  OF  INTEREST  „ 

1- D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R « -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBND( ) 

2- D  ARRAY  CONTAINING  RATSTRM  FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %)  

SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F (STR,  NF,  NBND,  MM) 
STRESS  TENSILE  TEST  POINT.  SO 

l-D  ARRAY  CONTAINING  VALUES  OF  K.  IN  THIS  ROUTINE 
TRBIGK(i)  ■ BIGK(i) 

ZeRO  REGlon  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  ZERO  REGION 
l-D  ARRAY  CONTAINING  TRANSFORMED  S-N  DATA,  Z - F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 

DO  50  L = 0.  MAXREG 
MM(L)  = 0.0 
50  CONTINUE 

C CREATE  MM( ) ARRAY  FROM  MEDM( ) ARRAY 

DO  100  L - 1,  NUMREG 
MM(L)  = MEDM(L) 

100  CONTINUE 

C TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z = Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

C CALCULATE  BETAO  AND  k 

CALL  KB ETA  (MEANZ,  SZ2,  KHAT,  BZHAT) 

C CALCULATE  THE  VALUES  OF  K,  WHERE  A = K **  M FOR  EACH  REGION 
CALL  FINDK  (BZHAT,  KHAT,  MM,  NBND,  NUMREG,  BIGK) 

BIGK1  = BIGK(l) 

C CALCULATE  BOUNDARIES  OF  STRESS  REGIONS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C CALCULATE  Ko  AND  Mo  FOR  THE  NO  DATA  REGION  TO  THE  LEFT  IF  REQUIRED 


DO  150  L * ZROREG,  NUMREG 
TRBIGK(L)  = BIGK(L) 

150  CONTINUE 

IF  (ZROREG  .EQ.  0)  THEN 

FACTR  - 1.0  

CALL  KOMO  (SZERO,  BIGK,  MM,  NBND,  SBND,  TRBIGK, 
& FACTR,  NUMREG) 

END  IF 


C WRITE  RESULTS  TO  FILE 


IF  (NCOMPS  .EQ.  1)  THEN 


WRITE(7,900)  NUMREG,  BZHAT.  KHAT 

IF  ( IOUT  .EQ.  10)  WRITE ( 8, 900)  NUMREG, 


BZHAT,  KHAT 


DO  200  L = ZROREG,  NUMREG 

WRITE (7, 9 10)  L.  MM(L),  TRBIGK(L),  NBND(L) 
IF  (IOUT  .EQ.  10)  WRITE(8,910)  L,  MM(L) , 


, SBND(L) 
TRBIGK (L) 


t 
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(,  NBND(L),  SBND(L) 

200  CONTINUE 

WRITE (7, 920) 

ELSE 

WRITE(7,930)  MM( 1) , BIGK(l),  KHAT 
ENDIF 


C FORMAT  STATEMENTS 

900  FORMAT (///,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE' ,//,2X, 

& 'NUMBER  OF  REGIONS: ',14, 5X, 'E(BETAO)  •', F8.4.5X, 'E(k)  «', 

& F8 . 4,  //,2X,  'REGION'  , 7X,  'in' , 15X,  'K' , »X,  'LIFE  BOUND', 7X, 

& 'STRESS  BOUND',/) 

910  FORMAT (5X, 11, 5X,F9 .5, 5X,E12.5, 5X,E9 .3, 9X,Ell .5) 

920  FORMAT( /// ) 

930  FORMAT (//,2X, 'PARAMETER  VALUES  FOR  MEDIAN  S/N  CURVE', 

& //,11X, 'm',14X, 'K',13X, 'E(k) ', 

A //,7X,F8.5,5X,E12.5,6X,F7.4,/) 


RETURN 

END 


C 

c 

c 

c 

c 

c 


SUBROUTINE  MUSIG  CALCULATES  THE  POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS 
MEAN,  MU,  AND  STANDARD  DEVIATION,  SIG;  FOR  EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  MUSIG  (NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA, 
& MO,  SIGMA2,  MCHAT,  MU,  SIG) 

INPUTS:  NUMREG,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTA,  MO,  SIGMA2 

OUTPUTS:  MCHAT,  MU,  SIG 


IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG,  NPPR  ( MAXREG ) 
REAL 


& 

& 


LIST  OF  VARIABLES 


ARG 

DE^A( ) 

I OUT 
L 

MAXREG 
MCHAT () 


INTERMEDIATE  CALCULATION  VARIABLE 

1-D  ARRAY  CONTAINING  SXY (L) /SX2 (L)  FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MU( ) AND 
SIG( ) CALCULATION 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGION  ALLOWED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C FOR 
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MO() 

MU  ( ) 

NPPR( ) 

NUMREG 

SIG() 

SIGMA2 ( ) 

SUHAT2 ( ) 

SUMX2 
SWHAT2 ( ) 

SX2<) 


EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — MCHAT ( 1 , L ) - 
- DD(L),  THE  ESTIMATE  FOR  M AND  MCHAT(2,L)  - SUHAT, 

Estimate  for  o 

l-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 

MEAN  FOR  EACH  REGION  

l-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 
l-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP( )-l) )T1)  OVER  ALL 
DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

NUMBER  OF  REGIONS  OF  INTEREST  „m_ 

l-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
l-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 

l-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y ■ Ln  N) 

EQUAL  TO  NPPR<)  * SX2 ( ) FOR  A PARTICULAR  REGION 
l-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N) 
l-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REG] 

(X  * Ln  S) 


SION 


INITALIZE  ARRAYS 

DO  50  L * 1,  MAXREG 
MCHAT ( 1 , L ) = 0.0 
MCHAT ( 2 , L ) “ 0.0 
MU (L)  * 0.0 
SIG(L)  = 0.0 
50  CONTINUE 


BEGIN  CALCULATION  FOR  EACH  REGION 


DO  100  L - 1 , NUMREG 


MCHAT(1,L)  - - DD(L) 

MCHAT(2,L)  - SQRT  (SUHAT2 (L) ) 

SUMX2  - NPPR(L)  * SX2 (L) 

ARG  » SUMX2  + DELTA(L) 

IF  ( DELTA (L)  .EQ.  0.0)  THEN 

THEN  NO  PRIOR  VALUE  OF  THE  MEAN  WAS  SUPPLIED 
USE  THE  ESTIMATE  OF  M 
MU(L)  “ MCHAT ( 1 , L ) 

ELSE 

UPDATE  THE  ESTIMATE  OF  M WITH  Mo  USING  DELTA 
MU(L)  » ( MCHAT ( 1,L)  * SUMX2  + MO(L)  * DELTA (L ) ) / ARG 
ENDIF 

IF  (SIGMA2 (L)  .EQ.  0.0)  THEN  

THEN  NO  PRIOR  VALUE  OF  THE  VARIANCE  WAS  SUPPLIED 
USE  S WHAT 2 AS  AN  ESTIMATE  OF  SIGMA-HAT-2 
SIG(L)  - SQRT  (SWHAT2 (L)  / ARG) 

ELSE 

SIG(L)  = SQRT  (SIGMA2 (L)  / ARG) 

ENDIF 


& 

& 

& 


& 


IF  ( IOUT  .EQ. 
WRITE (8,*) 

WRITE ( 8 , * ) 

WRITE ( 8, * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 

*L  - L,  ' DD  ■ ' , DD(L) , ' MCHAT 1 = 

MCHAT ( 1 , L ) 

'SUHAT2  * SUHAT2 (L) , ' MCHAT 2 * 

MCHAT ( 2 , L ) 

'NPPR  = NPPR(L) , ' SX2  - SX2(L), 

' SUMX2  “ ' , SUMX2 

'DELTA  ” '.  DELTA(L) , ' ARG  * ',  ARG 
'MO  * ',  MO(L) , ' MU  - ',  MU(L) 

'SWHAT2  - ',  SWHAT2 (L) , ' SIGMA2  - SIGMA2(L), 
' SIG  « ',  SIG(L) 


100  CONTINUE 


RETURN 


7-406 


oooooooooooooooonnooooooo 


END 


C 


c 

c 

c 

c 

c 

c 


SUBROUTINE  NORRNG  COMBINES  THE  PRIOR  INFORMATION  ON  BOTH  M AND  CO  TO 
OBTAIN  POSTERIOR  RANGES  ON  M FOR  EACH  REGION 
PROGRAMMER : L * NEWLIN 

DATE:  CODE:  10FEB88  FORMAT / COMMENTS : 12AUG91 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2f  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  NORRNG  (NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHATf  RANGEM) 

C INPUTS:  NUMREG,  MPNT,  MZERO,  MCPNT,  MC,  MCHAT 

C OUTPUTS : RANGEM 

C SUBPROGRAMS : TRMNAT 


C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  MCPNT ( MAXREG ) , MPNT ( MAXREG ) , NUMREG 

REAL  LOWER,  MC(2,  MAXREG),  MCHAT ( 2 , MAXREG),  MZERO(2,  MAXREG), 
& RANGEM ( 2 , MAXREG),  UPPER 


LIST  OF  VARIABLES 


IOUT 

L 

LOWER 

MAXREG 

MC<) 


MCHAT  () 

MCPNT ( ) 
MPNT( ) 
MZERO () 

NUMREG 
RANGEM  ( ) 

UPPER 


OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  REGION 

LOWER  BOUND  OF  INTERSECTION 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGES  ON  M FOR  EACH 
REGION  CONSISTENT  WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA 
— MC ( 1 , L ) IS  THE  LOWER  BOUND  AND  MC(2,L)  IS  THE  UPPER 
BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND  C 
FOR  EACH  REGION  — MCHAT  (1,L)  * - DD  ( L ) , THE  ESTIMATE 
FOR  M AND  MCHAT ( 2, L)  * StJHAT,  THE  ESTIMATE  FOR  C 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MC ( ) FOR  EACH  REGION 

1—  D ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO ()  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO ( 1 , L ) IS  THE  LONER  BOUND  AND  MZERO(2,L) 
IS  THE  UPPER  BOUND 

NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LONER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

UPPER  BOUND  OF  INTERSECTION 


C INITIALIZE  VARIABLES 

DO  50  L = 1,  MAXREG 
RANGEM( 1,L)  = 0.0 
RANGEM(2,L)  =0.0 
50  CONTINUE 


C 


PERFORM  CALCULATIONS  FOR  EACH 

DO  100  L = 1,  NUMREG 

IF  (IOUT  .EQ.  10)  THEN 
WRITE(8,*)  'L  = L, 
WRITE ( 8 , * j 'MPNT  = 


REGION  OF  INTEREST 


' NUMREG  = ' , NUMREG 
MPNT(L),  ' MCPNT  = 


MCPNT(L) 
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ENDIF 

IF  (MPNT(L)  .EQ.  1)  THEN 

THERE  IS  A POINT  PRIOR  ON  M — THIS  OVERRIDES  ALL  OTHER 
INFORMATION:  ASSUME  POINT  POSTERIOR  ON  M GIVEN  BY  THE  PRIOR 


£ 


RANGEM(1,L)  « MZERO(l,L) 
RAN GEM ( 2, L)  = 0.0 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
'MZERO(l.L)  - 
' RANGEM ( 1,L)  - 
RANGEM ( 2 , L ) » 


ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND. 
THERE  IS  A PRIOR  RANGE  ON  M, 


' MZERO(l,L) 
RANGEM(1,L) 
• , RAN GEM ( 2, L) 


I 


(MCPNT(L)  .EQ.  0))  THEN 
BUT  NO  CO  CONSTRAINT  USE  Mo 


RANGEM (1,L)  ■ MZERO(l,L) 
RANGEM ( 2 , L ) » MZERO(2,L) 


£ 

£ 


IF  (IOUT  .EQ. 
WRITE ( 8, * ) 

WRITE ( 8 , * ) 

ENDIF 


10)  THEN 
'MZERO( 1,L)  - ' 
MZERO( 2 , L)  - ' 
' RANGEM ( 1 , L ) - 
RANGEM ( 2, L)  - 


, MZERO( 1,L) , 

, MZERO(2,L) 

',  RANGEM ( 1,L) 
RANGEM(2,L) 


r 


ELSE IF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  1))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A LOWER  BOUND  DUE  TO  Co 
CONSTRAINT  ADJUST  THE  LOWER  BOUND  OF  Mo  BY  Me 


LOWER  - AMAXl (MZERO( 1 ,L) , MC(1,L)) 

UPPER  - MZERO(2.L) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  Me' 

CALL  TRMNAT 
ELSE 

RANGEM (1,L)  - LOWER 
RANGEM ( 2, L)  « UPPER 
ENDIF 


& 


£ 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'MZERO(l,L) 

' MZEROf 2,L) 

WRITE ( 8 , * ) 'MC(1,L)  - ' 
WRITE ( 8 , * ) 'LOWER  - ', 
WRITE ( 8 , * ) 'RANEGM( 1,L) 
' RANGEM ( 2 , L ) 

ENDIF 


= ',  MZERO( 1,L) , 

= ',  MZERO(2,L) 

, MC(1,L) 

LOWER,  ' UPPER  - 

- RANGEM ( 1,L) 

- ',  RANGEM ( 2, L) 


UPPER 


ELSEIF  ( (MPNT(L)  .EQ.  2)  .AND.  (MCPNT(L)  .EQ.  2))  THEN 

THERE  IS  A PRIOR  RANGE  ON  M AND  A RANGE  DUE  TO  CO  CONSTRAINT 
INTERSECT  THESE  TWO  RANGES 


LOWER  - 

AMAXl 

(MZEROj 

MC 

[ 1,L) ) 

UPPER  * 

AMINli 

(MZEROj 

[2 ,L) , 

MC| 

[2,L) ) 

IF  (UPPER  .LT.  LOWER)  THEN 

WRITE ( 8 , * ) 'ERROR:  NO  INTERSECTION  BETWEEN  Mo  AND  Me ' 

CALL  TRMNAT 
ELSE 

RANGEM ( 1,L)  - LOWER 
RANGEM ( 2, L)  = UPPER 
ENDIF 


£ 


IF  (IOUT  .EQ.  10)  THEN 
WRITE ( 8, *)  ' MZERO( 1 ,L 
' MZERO(2,L 
WRITE ( 8 , * ) ' MC ( 1 ,L)  = 

WRITE ( 8 , * ) 'LOWER  = ',  LOWER,  ' UPPER  - UPPER 


= ',  MZERO( 1 , L) 
= ',  MZERO(2,L) 
'.  MC(l.L) 
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k 


ENDIF 


RANG EM ( 1 , L ) , 
RANGEM ( 2 , L ) 


ELSE 

WRITE (8,*)  'ERROR:  PRIOR  ON  M INCORRECTLY  SPECIFIED  IN 

CALL  TRMNAT 


ENDIF 


C RESTRICT  RANGE  TO  BE  NON-NEGATIVE 

RANGEM( 1,L)  ■ AMAX1 (RANGEM( 1,L) , 0.0) 

IF  (IOUT  .EQ.  10)  WRITE (8,*)  ' RANGEM ( 1,L)  - ',  RANGEM ( 1,L) 
100  CONTINUE 


C CHECK  TO  SEE  IF  E(m)  IS  IN  POSTERIOR  RANGE 

DO  300  L = 1,  NUMREG 

IF  ((MCHAT(1,L)  .LT.  RANGEM ( 1 , L ) ) 

& .OR.  (MCHAT(l.L)  .GT.  RANGEM ( 2, L) ) ) 

& WRITE ( 8 , * ) 'NOTE:  E(m)  IS  NOT  IN  THE  POSTERIOR  RANGE  ', 

& 'ON  m IN  REGION  ',  L 

300  CONTINUE 


RETURN 

END 


C************************************************************************ 


C SUBROUTINE  ADDRGN  ADDS  THE  INFORMATION  ON  M RANGES  AND  NORMAL 
C DISTRIBUTION  PARAMETERS  FOR  REGIONS  WITHOUT  DATA 

C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  10FEB88  FORMAT/COMMENTS:  12AUG91 

C VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  ADDRGN  (RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG, 

& MZERO,  MPNT,  MO,  SIGMA2 ) 

C INPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NNODAT,  NUMREG,  MZERO,  MPNT, 

C MO,  SIGMA2 

C OUTPUTS:  RANGEM,  MCHAT,  MU,  SIG,  NUMREG 

C IMPLICIT  NONE 

INTEGER  MAXREG 
PARAMETER  (MAXREG  - 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  LL,  MPNT (MAXREG) , NNODAT,  NUMREG 

REAL  MCHAT ( 2 , MAXREG),  MO (MAXREG) , MU (MAXREG) , 

& MZERO ( 2 , MAXREG),  RANGEM ( 2 , MAXREG),  S IG( MAXREG ) , 

& SIGMA2 (MAXREG) 


IOUT 


LIST  OF  VARIABLES 
OUTPUT  DUMP  CONTROLLER 


no  o noonnnnnoonooooonnnnnnnoo 


L 

LL 

MAXREG 
HCHAT( ) 


MO  ( ) 
MPNT{ ) 
MU() 
MZERO( ) 


NNODAT 
NUMREG 
RANGEM( ) 


SIG() 
SIGMA2 ( ) 


CONTROLS  DO  LOOP  FOR  EACH  REGION 

EQUAL  TO  NUMREG  FOR  A SET  OF  CALCULATIONS 

MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  M AND 
C FOR  EACH  REGION,  BASED  ON  MATERIALS  DATA  ONLY  — 
MCHAT(1,L)  « - DD(L) , THE  ESTIMATE  FOR  M AND 
MCHAT ( 2 , L ) * SUHAT,  THE  ESTIMATE  FOR  C 
1— D ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
MEAN  FOR  EACH  REGION 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZERO( ) FOR  EACH  REGION 

1- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  MEAN  FOR  EACH  REGION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGES  ON  M FOR 
EACH  REGION  — MZERO(l,L)  IS  THE  LOWER  BOUND  AND  MZERO(2,L) 
IS  UPPER  BOUND 

Number  of  NO  DATa  regions  (REGIONS  WITHOUT  ANY  S/N  DATA) 
NUMBER  OF  REGIONS  OF  INTEREST 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM(  1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2 , L ) IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 
DISTRIBUTION  STANDARD  DEVIATION  FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  NORMAL  DISTRIBUTION 
VARIANCE  FOR  EACH  REGION 


IF  ( I OUT  .EQ.  10)  WRITE ( 8 , * ) 'NUMREG  *' , NUMREG 


DO  100  L ■ 1,  NNODAT 
NUMREG  « NUMREG  + 1 
LL  * NUMREG 

IF  ( IOUT  .EQ.  10)  WRITE j 8 , * ) 
& ' LL  *' , LL,  ' MPNT(LL)  * 


,Lmpn£(lL) 


NUMREG 


NUMREG, 


& 

& 


& 


IF  ( (MPNT(LL)  .EQ.  1)  .OR.  (MPNT(LL)  .EQ. 
POSTERIOR  ON  M IS  SAME  AS  PRIOR  ON  M 
RANGEM ( 1,LL)  - MZERO(l,LL) 

RANGEM ( 2, LL)  - MZERO(2,LL) 

MU(LL)  = MO(LL) 

SQRT(SIGMA2 (LL) ) 


2))  THEN 


SIG(LL 
IF 


WRITE ( 8 , * ) 


.EQ.  10)  THEN 
RAN© 


WRITE ( 8 , * ) 

WRITE ( 8 , * ) 
WRITE ( 8 , * ) 


ENDIF 


EM( 1,LL) 
’ MZERO ( 1 , LL 
' RANGEM ( 2 , LL 
' MZERO ( 2 , LL 
' MU (LL)  - 
’SIG(LL)  - ' 
SIGMA2 (LL) 


RANGEM ( 1,LL) , 
MZERO ( 1,LL) 


, RANGEM  2, LL 
* MZERO(  2 , LL 
MU(LL) , ' MO(LL) '=  '.  MO(LL) 
SIG(LL),  ' SIGMA2 (LL) 


SPECIFY  E(M)  OF  POSTERIOR  FOR  SAKE  OF 
CALCULATIONS  IN  SUBROUTINE  EXPCTD 


IF  (RANGEM(2,LL)  .EQ.  0.0)  THEN 
MCHAT ( 1,LL)  - RANGEM ( 1 , LL ) 

MU (LL)  “ RANGEM ( 1,LL) 

SIG(LL)  = 0.0 
ELSE 

MCHAT ( 1,LL)  = ( RANGEM ( 1,LL)  + RANGEM ( 2, LL) ) / 2.0 
ENDIF 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'MCHAT  =',  MCHAT(1,LL), 

& ' MU  = ' , MU(LL) , ' SIG  = SIG(LL) 

ELSE 

WRITE ( 8 , * ) 'ERROR:  OVERALL  PRIOR  RANGE  INCORRECTLY  ', 

& 'SPECIFIED  IN  REGION  WITHOUT  DATA' 

CALL  TRMNAT 
ENDIF 
100  CONTINUE 


RETURN 

END 
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SUBROUTINE  DECOMP  CONTROLS  THE  CALCULATIONS  FOR  THE  INFORMATION 
AGGREGATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 
FOR  THE  STRAIN  FORMULATION 
PROGRAMMERS  L.  NEWLIN 

DATE:  CODE:  21JUN88  FORMAT/COMMENTS s 15SEP89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  DECOMP  (RANGMP,  RANGME,  MUP,  SIGP,  MUE.  SIGE,  NF, 
& RFNP,  NBND,  RFSTRP,  RFSTRE,  VARY,  MPROC, 

£ KRATIO,  PVAR) 


INPUTS:  READS  DATA  FROM  SPECFD  AND  RELATD;  VARY,  MPROC 

OUTPUTS:  RANGMP,  RANGME,  MUP,  SIGP.  MUE,  SIGE,  NF,  RFNP, 

NBND,  RFSTRP,  RFSTRE.  KRATIO,  PVAR 
SUBPROGRAMS:  INITD,  RDECHO,  PREP,  SH2SU2,  INTRVL,  FNDRNG, 

EXPCTD,  PECOMP,  MUSIG,  NORRNG,  GTPVAR 
FILES:  5 : RELATD-OLD ; 6 :RELATO-NEH 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET,  MAXTNS 

PARAMETER  (MAXDAT  - 50,  MAXREG  - 3,  MAXSET  • 5,  MAXTNS  - 5) 


COMMON  I OUT 


INTEGER  I OUT,  J,  MCPNTE  (MAXREG)  , MCFNTP  (MAXREG)  , MPNTE  ( MAXREG ) , 
MPNTP ( MAXREG ) , MPROC,  NDC( 0 : MAXSET) , 

NP( 0 : MAXSET,  MAXREG),  NPPR( MAXREG) , NPTS ( 0 : MAXSET ) , 
NSETS,  NTENS ( 0 : MAXSET ) , RFNP ( MAXREG ) , VARY 


REAL 


BZERO,  BZEROE,  BZEROP,  DD ( MAXREG ) , DELTAS ( MAXREG ) , 

DELTAP ( MAXREG ) , IZERO(2,  MAXREG),  JZERO(2,  MAXREG), 

KHATE,  KHATP,  KRATIO.  LAMN, 

LNNF( MAXDAT,  0 : MAXSET,  MAXREG), 

LNSTRE (MAXDAT,  OjMAXSET,  MAXREG), 

LNSTRP( MAXDAT,  OsMAXSET,  MAXREG) , MCE(2,  MAXREG), 

MCHAT ( 2 , MAXREG),  MCHATE ( 2 , MAXREG),  MCHATP ( 2 , MAXREG), 
MCP ( 2 , MAXREG),  MEDME (MAXREG) , MEDMP (MAXREG) , 

MOE ( MAXREG ) , MOP ( MAXREG ) , MUE (MAXREG) , MUP (MAXREG), 

MZEROE ( 2 , MAXREG),  MZEROP(2,  MAXREG),  NBND ( 0 : MAXREG ) , 

NF (MAXDAT,  MAXREG),  PVAR,  RANGME (2,  MAXREG), 

RANGMP(2,  MAXREG),  RAWNF ( MAXDAT , OsMAXSET) , 

RAWSTR ( MAXDAT , 0 : MAXSET) , RFSTRE (MAXDAT,  MAXREG), 

RFSTRP (MAXDAT,  MAXREG),  SE (MAXDAT,  OsMAXSET), 

SIG2E ( MAXREG ) , SIG2P (MAXREG) , SIGE (MAXREG) , SIGP (MAXREG) , 
SP( MAXDAT,  OsMAXSET),  STRE (MAXDAT,  OsMAXSET) , 

STRP (MAXDAT,  OsMAXSET),  SUHAT2 (MAXREG) , SWHAT2 (MAXREG) , 
SX2 (MAXREG) , SXY (MAXREG) , SY2 (MAXREG) , 

TNSILE( OsMAXSET,  MAXTNS) 


CHARACTER* 40  DESCRP ( 0 sMAXSET) 


LIST  OF  VARIABLES 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 

BZEROE  VALUE  OF  WEIBULL  PARAMETER,  BETAoe,  CHARACTERIZING  ELASTIC 

COMPONENTS  OF  S/N  DATA  SET  

BZEROP  VALUE  OF  WEIBULL  PARAMETER,  BETAop,  CHARACTERIZING  PLASTIC 

COMPONENTS  OF  S/N  DATA  SET 

DD()  1-D  ARRAY  CONTAINING  SXY(L) /SX2 (L)  FOR  EACH  REGION 
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DELTAE ( ) 

DELTAP ( ) 

DESCRP ( ) 
IOUT 
I ZERO ( ) 

J 

JZERO( ) 

KBATE 

KHATP 

KRATIO 

LAHN 

LNNF( ) 
LNSTRE ( ) 
LNSTRP ( j 
MAXDAT 
MAXREG 
MAXSET 
MAXTNS 
MCE  ( ) 


MCHAT( ) 


MCHATE ( ) 


MCHATP() 


MCP  ( ) 


MCPNTE ( ) 

MCPNTP ( ) 

MEDME( ) 
MEDMP( ) 
MOE  ( ) 

MOP  ( ) 

MPNTE ( ) 

MPNTP ( ) 

MPROC 

MUE  ( ) 

MUP  ( ) 

MZEROE ( ) 


MZEROP ( ) 


NBND( ) 


NDC{  ) 


REGION)  ALLOWED 


1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MUE()  AND 
SIGE ( ) CALCULATION 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MUP()  AND 
SIGP()  CALCULATION 

1- D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

2- D  ARRAY  CONTAINING  Io,  THE  95%  CONFIDENCE  INTERVALS  ON  C 
FOR  EACH  REGION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  SET  

2- D  ARRAY  CONTAINING  Jo,  THE  95%  CONFIDENCE  INTERVALS  ON  M 
FOR  EACH  REGION 

E(Ke) , THE  MEDIAN  Ke  FOR  ELASTIC  COMPONENTS 
E(Kp) , THE  MEDIAN  Kp  FOR  PLASTIC  COMPONENTS 
RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
LAMBDA-N  — RATIO  OF  Var  (Ui  N given  S)  / (m**2  C**2), 

CONSTANT  OVER  REGIONS  AND  COMPONENTS 

3- D  ARRAY  CONTAINING  LN(RAWNF( ) ) 

3-D  ARRAY  CONTAINING  LN(SE( ) ) OR  LN(STRE( ) ) 

3-D  ARRAY  CONTAINING  LN(SP() ) OR  LN(STRP( ) j 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

MAXIMUM  NUMBER  OF  TENSILE  TESTS  PER  DATA  SET  ALLOWED 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGE  ON  Me  CONSISTENT 
WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA  — NOTE!  THE  Co 
CONSTRAINT  IS  NOT  APPLICABLE  TO  THE  STRAIN  FORMULATION, 

BUT  IS  A NECESSARY  PARAMETER  TO  SOME  OF  THE  SUBROUTINES 
SHARED  WITH  THE  STRESS  CASE 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  Cp  AND  Ce, 

BASED  ON  MATERIALS  DATA  ONLY  — MCHAT (2,1)  - MCHATP (2,1), 
MCHAT(2,2)  = MCHATE (2  , 1)  . „ 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  Me  AND 
Ce  FOR  ELASTIC  COMPONENTS,  BASED  ON  MATERIALS  DATA  ONLY 
— MCHATE (1,1)  - - DD(L) , THE  ESTIMATE  FOR  Me  AND 
MCHATE (2,1)  - SUHAT,  THE  ESTIMATE  FOR  Ce 
2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  Md  AND 
Cp  FOR  PLASTIC  COMPONENTS,  BASED  ON  MATERIALS  DATA  ONLY 
--  MCHATP (1,1)  - - DD(L) , THE  ESTIMATE  FOR  Mp  AND 
MCHATP (2,1)  - SUHAT.  THE  ESTIMATE  FOR  CD 
2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGE  ON  Mp  CONSISTENT 
WITH  GIVEN  VALUE  OF  CO  AND  THE  DATA  — NOTE!  THE  Co 
CONSTRAINT  IS  NOT  APPLICABLE  TO  THE  STRAIN  FORMULATION, 

BUT  IS  A NECESSARY  PARAMETER  TO  SOME  OF  THE  SUBROUTINES 
SHARED  WITH  THE  STRESS  CASE 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MCE( ) (ALWAYS  0 FOR  STRAIN  CASE) 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MCP ( ) (ALWAYS  0 FOR  STRAIN  CASE) 

1-D  ARRAY  CONTAINING  THE  MEDIAN  Me  VALUE 
1-D  ARRAY  CONTAINING  THE  MEDIAN  MD  VALUE 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
ELASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
PLASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0, 

MZEROE  ( ) 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0, 

MZEROP  ( ) 

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 
1-D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
ELASTIC  COMPONENTS 

1- D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
PLASTIC  COMPONENTS 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGE  ON  Me  FOR 
ELASTIC  COMPONENTS  — MZEROE (1,1)  IS  THE  LOWER  BOUND  AND 
MZEROE (2,1)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGE  ON  Mp  FOR 
PLASTIC  COMPONENTS  — MZEROP (1,1)  IS  THE  LOWER  BOUND  AND 
MZEROP (2,1)  IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

1-D  ARRAY  CONTAINING  Number  of  given  Decomposed  STRAIN 
POINTS  FOR  EACH  DATA  SET 


1,  OR  2, 
1,  OR  2, 


IN 

IN 
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oooooonnooonnonooononnnoooonnooooonoonoonnooooonoooonoo 


NF<) 

NP(  ) 

NPPR( ) 

NPTS ( ) 
NSETS 
NTENS ( ) 

PVAR 

RANGME ( ) 

RANGMP ( ) 

RAWNF ( ) 

RAWSTR( ) 

RFNP( ) 

RFSTRE ( ) 

RFSTRP( ) 

SE(1 
SIG2E ( ) 

SIG2P ( ) 

SIGE( ) 

SIGP( ) 

SP<) 
STRE( ) 
STRP() 
SUHAT2 ( ) 

SWHAT2 ( ) 

SX2() 

SXY  ( ) 

SY2() 

TNSILE( ) 

VARY 


2-D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  VALUES  OF  ((SUM  OF  (NP()-1)  -1)  OVER 
ALL  DATA  SETS  IN  A REGION  (Number  of  Points  Per  Region) 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

1- D  ARRAY  CONTAINING  NUMBER  OF  TENSILE  TEST  DATA  POINTS 
FOR  EACH  DATA  SET 

THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  MEDIAN  S/N 
CURVE  WARRANTED  BY  THE  AVAILABLE  INFORMATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE  ON  Me 
FOR  ELASTIC  COMPONENTS  — RANGME (1,1)  IS  THE  LOWER 
BOUND  AND  RANGME (2, 1)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE  ON  Mp 
FOR  PLASTIC  COMPONENTS  — RANGMP (1,1)  IS  THE  LOWER 
BOUND  AND  RANGMP (2,1)  IS  THE  UPPER  BOUND 
2-D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  RAW  TOTAL 
STRAIN  DATA  («)  FOR  ALL  S/N  DATA  SETS 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET  IN  EACH  REGION 

2- D  ARRAY  CONTAINING  ELASTIC  STRAIN  POINTS  (%),  SE()  OR 
STRE(),  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA 

2-D  ARRAY  CONTAINING  PLASTIC  STRAIN  POINTS  (*),  SP( ) OR 
STRPM,  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA 
2-D  ARRAY  CONTAINING  GIVEN  ELASTIC  STRAIN  COMPONENTS  («) 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  VARIANCE 
FOR  ELASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  VARIANCE 
FOR  PLASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION 
STANDARD  DEVIATION  FOR  ELASTIC  COMPONENTS 

1- D  ARRAY  CONTAINING  THE  POSTERIOR  NORMAL  DISTRIBUTION 
STANDARD  DEVIATION  FOR  PLASTIC  COMPONENTS 

2- D  ARRAY  CONTAINING  GIVEN  PLASTIC  STRAIN  COMPONENTS  («) 

2-D  ARRAY  CONTAINING  CALCULATED  ELASTIC  STRAIN  COMPONENTS  (« 
2-D  ARRAY  CONTAINING  CALCULATED  PLASTIC  STRAIN  COMPONENTS  (« 
1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  X ON  Y 

REGRESSION  FOR  EACH  REGION  (X  « Ln  S,  Y ■ Ln  N) 

1-D  ARRAY  CONTAINING  RESIDUAL  VARIANCES  FROM  Y ON  X 
REGRESSION  FOR  EACH  REGION  (X  - Ln  S,  Y - Ln  N) 

1-D  ARRAY  CONTAINING  SAMPLE  X VARIANCE  FOR  EACH  REGION 
(X  « Ln  S) 

1-D  ARRAY  CONTAINING  SAMPLE  X,  SAMPLE  Y COVARIANCE  FOR  EACH 
REGION  (X  » Ln  S,  Y ■ Ln  N) 

1- D  ARRAY  CONTAINING  SAMPLE  Y VARIANCE  FOR  EACH  REGION 
(Y  - Ln  N) 

2- D  ARRAY  CONTAINING  TENSILE  TEST  DATA  — INDEXED  FOR  EACH 
DATA  SET 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 


OPEN ( 5 , FILE  = ' RELATD ' , STATUS  - 'OLD') 

OPEN ( 6 , FILE  = ' RELATO ' , STATUS  - 'NEW') 

C RELATD  CONTAINS  THE  RELATED  MATERIAL  S/N  DATA  SET  INFORMATION 
C RELATO  CONTAINS  THE  PROCESSED  RELATED  MATERIAL  S/N  DATA  SET 
C INFORMATION 

C INITIALIZE  PRIMARY  ARRAYS 


CALL  INITD 

& 

& 

i. 

& 


(NPTS,  RAWNF,  RAWSTR,  NDC,  SP,  SE,  NTENS,  TNSILE, 
NP,  LNNF,  LNSTRP,  LNSTRE,  STOP,  STOE.  MZEROP, 
MZEROE,  MPNTP,  MPNTE,  MCP,  MCE,  MCPNTP,  MCPNTE, 
RFNP,  NF,  RFSTRE,  RFSTOP,  NBND,  DELTAP,  DELTAE, 
MOP,  MOE,  SIG2P,  SIG2E,  MCHAT) 


C READ  AND  ECHO  INFORMATION 
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c 

c 


c 

c 

c 


c 


c 


c 

c 


c 

c 

c 


c 


c 


c 

c 


c 

c 

c 


c 

c 


CALL  RDECHO  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  NSETS,  DESCRP , 

NDC,  SP,  SE  NTENS,  TNSl£E,  MZEROP,  MPWTP,  MZEROE, 
& MPNTE,  DELTAP,  DELTAS,  MOP,  MOE,  SIG2P,  SIG2E, 

& KRATIO,  LAMN) 


PREPARE  GIVEN  DECOMPOSED  STRAIN  DATA  FOR  INFORMATION 
AGGREGATION  PROCESSING 


CALL  PREP  (0,  NDC,  SP,  SE,  RAWNF,  NP,  LNSTRP,  LNSTRE,  LNNF, 
& RFNP,  RFSTRP,  RFSTRE,  NF) 


BEGIN  INFORMATION  AGGREGATION  PROCESSING  FOR  THE  GIVEN  PLASTIC 
STRAIN  DATA 

CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (1,  0,  NP,  LNSTRP,  LNNF,  SX2,  SXY,  SY2 , DD, 

& SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (1,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  IZERO,  JZERO, 

i MCHATP) 

WRITE  RESULTS  TO  FILE 

WRITE(7,900)  , , 

WRITE(7,905)  JZERO(l,l),  JZERO(2,l>,  MCHATP (1,1) 

WRITE (7, 9 10) 

CALCULATE  MEDIAN  VALUES  FOR  PLASTIC  S/N  CURVE  PARAMETERS 
BASED  ON  GIVEN  DECOMPOSITION  DATA 


MEDMP(l)  - MCHATP (1,1) 

CALL  EXPCTD  (2,  MEDMP,  RFNP,  RFSTRP,  NF,  0.0,  1,  1,  NBND,  KHATP, 
& BZEROP ) 

BEGIN  INFORMATION  AGGREGATION  PROCESSING  FOR  THE  GIVEN  ELASTIC 
STRAIN  DATA 

CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (1,  0,  NP,  LNSTRE,  LNNF,  SX2,  SXY,  SY2 , DD, 

& SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (1,  SX2,  DD,  SWHAT2 , SUHAT2,  NPPR,  IZERO,  JZERO, 

t MCHATE) 

WRITE  RESULTS  TO  FILE 

WRITE (7  915) 

WRITE(7l920)  JZERO(l,l),  JZERO(2,l),  MCHATE (1,1) 

WRITE(7,925) 

CALCULATE  MEDIAN  VALUES  FOR  ELASTIC  S/N  CURVE  PARAMETERS 
BASED  ON  GIVEN  DECOMPOSITION  DATA 

MEDME(l)  = MCHATE (1,1) 

CALL  EXPCTD  (2,  MEDME,  RFNP,  RFSTRE,  NF,  0.0,  1,  1,  NBND,  KHATE, 
4 BZEROE) 

DECOMPOSE  TOTAL  STRAIN  DATA  BASED  ON  MEDIAN  S/N  CURVE  PARAMETERS 
FOR  THE  GIVEN  PLASTIC  AND  ELASTIC  STRAIN  COMPONENT  DATA  TO  OBTAIN 
ESTIMATED  PLASTIC  AND  ELASTIC  STRAIN  COMPONENTS 

CALL  PECOMP  (NSETS,  DESCRP,  NDC,  SP,  SE,  NPTS,  RAWSTR, 

& RAWNF,  NTENS,  TNSILE,  KHATP,  KHATE,  MCHATP (1,1), 

& MCHATE (1,1),  STRP,  STRE) 

PREPARE  ESTIMATED  DECOMPOSED  STRAIN  DATA  FOR  INFORMATION 
AGGREGATION  PROCESSING 


7-414 


on  n o on  o o no  o on  o o on 


CALL  PREP  (NSETS,  NPTS,  STRP,  STRE,  RAWNF,  NP, 
t LNNF,  RFNP,  RFSTRP,  RFSTRE,  NT) 


LNSTRP, 


LNSTRE, 


IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1)  .OR.  (VARY  .EQ.  2))  THEN 

BEGIN  INFORMATION  AGGREGATION  PROCESSING  FOR  THE  ESTIMATED  PLASTIC 
STRAIN  DATA  — FOR  ALL  TYPES  OF  VARATION  SAVE  NORMAL 

CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (1,  NSETS,  NP,  LNSTRP,  LNNF,  SX2,  SXY,  SY2 , DD, 

i SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  <1,  SX2,  DD,  SHHAT2,  SUHAT2 , NPPR,  IZERO,  JZERO, 

& MCHATP) 

COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION 
TO  OBTAIN  POSTERIOR  RANGE  ON  Mp 

CALL  FNDRNG  ( 

& 

WRITE  RESULTS  TO  FILE 
WRITE(7,930) 

WRITE (7, 9 05)  JZERO(l,l),  JZERO(2,l),  MCHATP (1,1) 

WRITE(7,935) 

WRITE(7,940)  'mp' , RANGMP(1,1),  RANGMP(2,1) 

WRITE(7,945) 


1,  MPNTP,  MZEROP,  MCPNTP,  MCP,  JZERO,  MCHATP, 
RANGMP) 


CALCULATE  MEDIAN  VALUES  FOR  PLASTIC  S/N  CURVE  PARAMETERS 
BASED  ON  ESTIMATED  DECOMPOSITION  DATA 

IF  (RANGMP(2, 1)  .EQ.  0.0)  THEN 
RANGE  ON  Mp  IS  A POINT 
MEDMP(l)  - RANGMP (1,1) 

ELSE 

RANGE  ON  Mp  IS  AN  INTERVAL 

MEDMP(l)  - ( RANGMP (1,1)  + RANGMP ( 2 , 1 ) ) / 2.0 
ENDIF 

CALL  EXPCTD  (2,  MEDMP,  RFNP,  RFSTRP,  NF,  0.0,  1,  1,  NBND, 

& KHATP,  BZEROP) 

BEGIN  INFORMATION  AGGREGATION  PROCESSING  FOR  THE  ESTIMATED  ELASTIC 
STRAIN  DATA 

CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (1,  NSETS,  NP,  LNSTRE,  LNNF,  SX2,  SXY,  SY2,  DD, 

& SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  BOUNDS  FOR  CONFIDENCE  INTERVALS 

CALL  INTRVL  (1,  SX2,  DD,  SWHAT2,  SUHAT2 , NPPR,  IZERO,  JZERO, 

& MCHATE ) 

COMBINE  CONFIDENCE  INTERVALS  AND  EXOGENOUS  INFORMATION 
TO  OBTAIN  POSTERIOR  RANGE  ON  Me 

CALL  FNDRNG  (1,  MPNTE,  MZEROE,  MCPNTE,  MCE,  JZERO,  MCHATE, 

& RANGME) 

C WRITE  RESULTS  TO  FILE 

WRITE(7,950) 

WRITE(7,920)  JZERO ( 1,1),  JZERO(2,l),  MCHATE (1,1) 

WRITE ( 7 955) 

WRITE(7'940)  'me',  RANGME (1,1),  RANGME (2,1) 

WRITE(7,960) 
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c 

c 

c 

c 


c 

c 


c 

c 

c 


c 


c 


c 


c 

c 

c 


c 


c 


c 


CALCULATE  MEDIAN  VALUES  FOR  ELASTIC  S/N  CURVE  PARAMETERS 
BASED  ON  ESTIMATED  DECOMPOSITION  DATA 


IF  ( RANGME (2,1)  .EQ.  0.0)  THEN 
RANGE  ON  Me  IS  A POINT 
MEDME(l)  = RANGME (1,1) 

ELSE 

RANGE  ON  He  IS  AN  INTERVAL 
MEDME(l)  “ ( RANGME ( 1,1)  + RANGME(2, 1) ) / 
ENDIF 


2.0 


CALL  EXPCTD  (2,  MEDME.  RFNP,  RFSTRE,  NF,  0.0,  1,  1,  NBND, 
& KHATE,  BZEROE) 

BZERO  - 1.0  / SQRT  (0.5  * ((1.0  / BZEROP)  **  2 
t + (1.0  / BZEROE)  **  2)) 


WRITE (7, 985)  BZERO 

CHECK  TYPE  OF  VARIATION  DESIRED  AND  FIX  M RANGES  AT  MEDIAN 
IF  NECESSARY 

IF  ((VARY  .EQ.  0)  .OR.  (VARY  .EQ.  1))  THEN 


RANGME  | 

i'i] 

» MEDME ( i ) 

RANGME | 

2,1 

- MEDME ( 1) 

RANGMP | 

[1,1] 

- MEDMP(1 

RANGMP | 

2,1 

■ MEDMP(l) 

ENDIF 

ELSE 

BEGIN  INFORMATION  AGGREGATION  PROCESSING  FOR  THE  ESTIMATED  PLASTIC 
STRAIN  DATA  — FOR  NORMAL  VARIATION 


CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (1,  NSETS,  NP,  LNSTRP,  LNNF,  SX2,  SXY,  SY2 , DD, 

& SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION 

CALL  MUSIG  (1,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTAP,  MOP, 

& SIG2P,  MCHATP,  MUP,  SIGP) 

USE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGE  ON  Mp 

CALL  NORRNG  (1,  MPNTP,  MZEROP,  MCPNTP,  MCP,  MCHATP,  RANGMP) 

WRITE  RESULTS  TO  FILE 

WRITE(7, 975)  MCHATP (1,1) 

WRITE (7, 935)  „ , 

WRITE? 7 ,940)  'no'.  RANGMP(1,1),  RANGMP(2,1) 

WRITE (7, 96 5)  MUP(l),  SIGP(l) 

BEGIN  INFORMATION  AGGREGATION  PROCESSING  FOR  THE  ESTIMATED  ELASTIC 
STRAIN  DATA 

CALCULATE  RESIDUAL  VARIANCES 

CALL  SW2SU2  (1,  NSETS,  NP,  LNSTRE,  LNNF,  SX2,  SXY,  SY2,  DD, 

& SWHAT2,  SUHAT2,  NPPR) 

CALCULATE  THE  POSTERIOR  MEAN  AND  STANDARD  DEVIATION 

CALL  MUSIG  (1,  SX2,  DD,  SWHAT2,  SUHAT2,  NPPR,  DELTAE,  MOE, 

& SIG2E,  MCHATE,  MUE,  SIGE) 

USE  PRIOR  INFORMATION  TO  OBTAIN  POSTERIOR  RANGE  ON  Me 

CALL  NORRNG  (1,  MPNTE,  MZEROE,  MCPNTE,  MCE,  MCHATE,  RANGME) 

WRITE  RESULTS  TO  FILE 
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WRITE(7,980)  MCHATE (1,1) 

WRITE ( 7 955) 

WRITE(7'940)  'me'.  RANGME(1,1),  RANGKE (2,1) 
WRITE(7,970)  MUE(l),  SXGE(l) 

ENDIF 

C CALCULATE  MATERIALS  PROCESS  VARIATION  IF  DESIRED 

IF  ( MPROC  .EQ.  1)  THEN 

DO  100  J * 0,  NSETS 
NP(J,2)  « NP(J,1) 

100  CONTINUE 

MCHAT (2,1)  - MCHATP (2,1) 

MCHAT (2,2)  ■ MCHATE (2,1) 

CALL  GTPVAR  (NSETS,  NP,  2,  LAMN,  MCHAT,  PVAR) 
WRITE (7, 990)  PVAR 
ENDIF 


C FORMAT  STATEMENTS 

900  FORMAT (2X, 'Copyright  (C)  1990,  California  Institute  of  ' , 

& 'Technology.  U.S.  Government' ,/,2X, 'Sponsorship  under  ', 

& 'NASA  Contract  NAS7-918  is  acknowledged.',////, 

& 2X, 'RESULTS  OF  STRAIN  DECOMPOSITION  AND  INFORMATION  ', 

& 'AGGREGATION  CALCULATIONS ', ////,2X, 

& '95%  CONFIDENCE  INTERVAL  AND  POINT  ESTIMATE  OF  np', 

& /,2X, 'FOR  GIVEN  PLASTIC  COMPONENTS',/) 

905  FORMAT (7X, 'Jop  - ( ',F12.9,',  ' ,F12.9, ' ) ' ,5X, 'mp  * *,F9.6) 

910  FORMAT (//,2X, 'RESULTS  FOR  GIVEN  PLASTIC  COMPONENT  DATA',/) 

915  FORMAT (///,2X, '95%  CONFIDENCE  INTERVAL  AND  POINT  ESTIMATE  OF  me', 
fc  /,2X, 'FOR  GIVEN  ELASTIC  COMPONENTS',/) 

920  FORMAT ( 7 X, 'Joe  - ( ',F12.9,',  ' ,F12.9, ' ) ' ,5X, 'me  « ',F9.6) 

925  FORMAT (//,2X, 'RESULTS  FOR  GIVEN  ELASTIC  COMPONENT  DATA',/) 

930  FORMAT(////,2X, 'RESULTS  OF  INFORMATION  AGGREGATION',///, 

& 2X, '95%  CONFIDENCE  INTERVAL  AND  POINT  ESTIMATE  OF  mp', 

& / , 2X, 'FOR  ESTIMATED  PLASTIC  COMPONENTS',/) 

935  FORMAT (///,2X, 'POSTERIOR  CREDIBILITY  RANGE  ON  mp  FOR  ESTIMATED  ', 
& 'PLASTIC  COMPONENTS',/) 


940  FORMAT (7X,A2, ' * ( ',F7.4,',  ',F7.4,')') 

945  FORMAT (//,2X, 'RESULTS  FOR  ESTIMATED  PLASTIC  COMPONENT  DATA',/) 

950  FORMAT (///, 2X, '95%  CONFIDENCE  INTERVAL  AND  POINT  ESTIMATE  OF  me', 
fc  /,2X, 'FOR  ESTIMATED  ELASTIC  COMPONENTS',/) 

955  FORMAT (///,2X, 'POSTERIOR  CREDIBILITY  RANGE  ON  me  FOR  ESTIMATED  ', 
& 'ELASTIC  COMPONENTS',/) 

960  FORMAT(//,2X, 'RESULTS  FOR  ESTIMATED  ELASTIC  COMPONENT  DATA',/) 


FORMAT(///,2X, 'POSTERIOR  NORMAL  DISTRIBUTION  PARAMETERS  FOR  ', 
'ESTIMATED  PLASTIC  COMPONENTS ',//, 12X, 'MEAN' , 8X, ' STD  DEV 
//, 10X,F7 .4, 5X,Ell . 5 


9 


' ' ESTIMATED  ELASTIC  COMPONENTS ',//, 12X, 'MEAN' , 8X, ' STD  DEV', 
//, 10X,F7 .4, 5X,E11 . 5) 


975  FORMAT (///,2X, 'POINT  ESTIMATE  OF  mp  FOR  ESTIMATED  PLASTIC  ', 
& 'COMPONENTS' ,//, 7 X, 'mp  ■ ',F9.6) 
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OOOOOOO  O oooooo 


985  FORMAT(/,2X, 'TOTAL  STRAIN  E ( BET  AO ) “ ',F7.4) 


990  FORMAT ( / 2X, 'THE  EXTENT  OF  DEPARTURE  FROM  THE  MULTIPLE  HEAT  ', 
& 'MEDIAN  S/N  CURVE ',/,2X, 'WARRANTED  BY  THE  AVAILABLE 

& 'INFORMATION',//,7X,Ell.5) 


RETURN 

END 


£********** ★*★★★*****★★** ************************************************ 


c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  INITD  PERFORMS  THE  INITIALIZATION  ON  THE  PRIMARY  ARRAYS 
USED  IN  THE  STRAIN  FORMULATION  OF  THE  INFORMATION  AGGREGATION 
MODEL  CALCULATIONS 
PROGRAMMERS  L.  NEWLIN 

DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8,4,  V8.5 

MATGRM  V4.1,  V4.2,  V4*3,  V4.4,  V4.5 


& 

& 

& 

& 


SUBROUTINE  INITD  (NPTS,  RAWNF , RAWSTR,  NDC,  SP,  SE,  NTENS, 
TNSILE,  NP,  LNNFf  LNSTRP,  LNSTRE,  STRP, 
MZEROP , MZEROE,  MPNTP , MPNTE , MCP,  MCE, 
MCPNTE,  RFNP,  NF,  RFSTRE,  RFSTRP,  NBND, 
DELTAE,  MOP,  MOE,  SIG2P,  SIG2E,  MCHAT) 


STRE, 

MCPNTP, 

DELTAP, 


INPUTS: 

OUTPUTS: 


NPTS,  RAWNF,  RAWSTR,  NDC,  SP,  SE,  NTENS,  TNSILE, 

NP,  LNNF,  LNSTRP,  LNSTRE,  STRP,  STRE,  MZEROP,  MZEROE, 
MPNTP,  MPNTE,  MCP,  MCE,  MCPNTP,  MCPNTE,  RFNP,  NF, 
RFSTRE,  RFSTRP,  NBND,  DELTAP,  DELTAE,  MOP,  MOE,  SIG2P, 
SIG2E,  MCHAT 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET,  MAXTNS 

PARAMETER  (MAXDAT  « 50,  MAXREG  * 3,  MAXSET  * 5,  MAXTNS  * 5) 


COMMON  IOUT 


INTEGER 


& 

& 

& 


REAL 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


RFNP  (MAXREG) 


DELTAE  (MAXREG),  DELTAP  ( MAXREG  ) , 

LNNF  (MAXDAT,  OsMAXSET,  MAXREG), 

LNSTRE (MAXDAT,  OsMAXSET,  MAXREG), 

LNSTRP  (MAXDAT,  OsMAXSET,  MAXREG  , MCE(2,  MAXREG), 
MCHAT(2,  MAXREG) , MCP(2,  MAXREG),  MOE  (MAXREG^ 


MOP (MAXREG) , MZEROE (2 

) * NF (MArw 
OsMAXSET) 


; MAXREG) ,' MZEROP (2,  MAXREG ), 
NBN6(0:MAXft6G) t NF (MAXDAT,  MAXREG) , 

RAWNF ( MAXDAT , OsMAXSET),  RAWSTR (MAXDAT,  OsMAXSET), 
RFSTRE (MAXDAT,  MAXREG),  RFSTRP (MAXDAT,  MAXREG), 

SE (MAXDAT,  OsMAXSET),  SIG2E ( MAXREG ) . SIG2P (MAXREG) , 
SP (MAXDAT,  OsMAXSET),  STRE (MAXDAT,  OsMAXSET), 

STRP ( MAXDAT , OsMAXSET),  TNSILE ( 0 sMAXSET,  MAXTNS) 


DELTAS ( ) 
DELTAP ( ) 
I 


LIST  OF  VARIABLES 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MUE(  ) AND 
SIGEM  CALCULATION 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  IN  MUP( ) AND 
SIGPM  CALCULATION 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 
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I OUT 
J 
K 
L 

LNNF( ) 
LNSTRE( ) 
LNSTRP( ) 
H 

MAXDAT 
MAXREG 
MAXSET 
MAXTNS 
MCE  ( ) 


MCHAT ( ) 


MCP() 


MCPNTE( ) 
MCPNTP< ) 
MOE  ( ) 

MOP  ( ) 
MPNTE ( ) 
MPNTP ( ) 
MZEROE ( ) 


MZEROP < ) 


NBND ( ) 

NDC  ( ) 

NF(  ) 

NP() 

NPTS( ) 
NTENS ( ) 

RAWNF() 

RAWSTR( ) 

RFNP( ) 

RFSTRE( ) 

RFSTRP( ) 


SIG2E() 

SIG2P ( ) 

SP() 
STRE( ) 
STRP ( ) 
TNSILE( ) 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
3-D  ARRAY  CONTAINING  LN(RAWNF(  ) ) 

3-D  ARRAY  CONTAINING  LN(SE< ) ) OR  LN(STREM) 

3-D  ARRAY  CONTAINING  LN(SP|)S  OR  LN(STRPQ) 

CONTROLS  DO  LOOP  FOR  EACH  TENSILE  TEST  POINT  IN  A DATA  SET 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 
MAXIMUM  NUMBER  OF  TENSILE  TESTS  PER  DATA  SET  ALLOWED 
2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGE  ON  Me  CONSISTENT 
WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — NOTE:  THE  Co 

CONSTRAINT  IS  NOT  APPLICABLE  TO  THE  STRAIN  FORMULATION, 

BUT  IS  A NECESSARY  PARAMETER  TO  SOME  OF  THE  SUBROUTINES 
SHARED  WITH  THE  STRESS  CASE 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  ESTIMATES  OF  CD  AND  Ce, 
BASED  ON  MATERIALS  DATA  ONLY  — MCHAT(2,1)  - MCHATP (2,1) 

AND  MCHAT (2,2)  - MCHATE (2,1) 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  RANGE  ON  Mp  CONSISTENT 
WITH  GIVEN  VALUE  OF  Co  AND  THE  DATA  — NOTE:  THE  Co 

CONSTRAINT  IS  NOT  APPLICABLE  TO  THE  STRAIN  FORMULATION, 

BUT  IS  A NECESSARY  PARAMETER  TO  SOME  OF  THE  SUBROUTINES 
SHARED  WITH  THE  STRESS  CASE 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MCE()  (ALWAYS  0 FOR  STRAIN  CASE) 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MCP( ) (ALWAYS  0 FOR  STRAIN  CASE) 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
ELASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
PLASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZEROE ( ) 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MZEROP ( ) 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGE  ON  Me  FOR 
ELASTIC  COMPONENTS  — MZEROE  (1,1)  IS  THE  LOWER  BOUND  AND 
MZEROE (2,1)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGE  ON  Mp  FOR 
PLASTIC  COMPONENTS  — MZEROP  (1,1)  IS  THE  LOWER  BOUND  AND 
MZEROP (2 , 1 ) IS  THE  UPPER  BOUND 
1-D  ARRAY  CONTAINING  UPPER  BOUND  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  Number  of  given  Decomposed  STRAIN 
POINTS  FOR  EACH  DATA  SET 

2- D  ARRAY  CONTAINING  RAWNF()  (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 
SET  IN  EACH  REGION 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

1- D  ARRAY  CONTAINING  NUMBER  OF  TENSILE  TEST  DATA  POINTS 
FOR  EACH  DATA  SET 

2- D  ARRAY  CONTAINING  RAH  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PS I)  OR  RAH  TOTAL 
STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SETS 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET 

2- D  ARRAY  CONTAINING  ELASTIC  STRAIN  POINTS  (%),  SE()  OR 
STRE ( ) , FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

2-D  ARRAY  CONTAINING  PLASTIC  STRAIN  POINTS  (%),  SP()  OR 
STRP( ) , FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 
2-D  ARRAY  CONTAINING  GIVEN  ELASTIC  STRAIN  COMPONENTS  (%) 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  VARIANCE 
FOR  ELASTIC  COMPONENTS 

1- D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  VARIANCE 
FOR  PLASTIC  COMPONENTS 

2- D  ARRAY  CONTAINING  GIVEN  PLASTIC  STRAIN  COMPONENTS  (%) 

2-D  ARRAY  CONTAINING  CALCULATED  ELASTIC  STRAIN  COMPONENTS  (%) 
2-D  ARRAY  CONTAINING  CALCULATED  PLASTIC  STRAIN  COMPONENTS  (%) 
2-D  ARRAY  CONTAINING  TENSILE  TEST  DATA  — INDEXED  FOR  EACH 
DATA  SET 
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DO  100  J - 
NDC( J)  * 
NPTS(J) 
NTENS(J) 
100  CONTINUE 


0.  MAXSET 
0 

- 0 
- 0 


DO  200  J - 0, 
DO  250  I - 


MAXSET 
1,  MAXDAT 


SE(I,J)  * 0.0 
SP(I,J)  = 0.0 
RAWNF(I,J)  = 0.0 
RAWSTR(I,J)  - 0.0 
STRE(I,J)  - 0.0 
STRP<I,J)  * 0.0 
250  CONTINUE 
200  CONTINUE 

DO  300  L = 1,  MAXREG 
DO  325  J - 0,  MAXSET 
DO  350  K = 1,  MAXDAT 
LNNF(K, J ,L)  = 0.0 
LNSTRE(K,J,L)  = 0.0 
LNSTRP(K,J,L)  = 0.0 
350  CONTINUE 

325  CONTINUE 

300  CONTINUE 

DO  400  L = 1,  MAXREG 
DO  450  J * 0,  MAXSET 
NP(J,L)  - 0 
450  CONTINUE 

400  CONTINUE 

DO  500  L - 1,  MAXREG 
MZEROP < 1 ,L)  - 0.0 
MZEROPf 2,L)  - 0.0 
MZEROE ( 1 , L ) = 0.0 
MZEROE ( 2 , L ) “ 0.0 
MPNTP(L)  • 0 
MPNTE(L)  - 0 
MCP(1,L)  - 0.0 
MCP ( 2 , L ) - 0.0 
MCE(1,L)  » 0.0 
MCE(2,Li  » 0.0 
MCPNTP(fj)  = 0 
MCPNTE(L)  = 0 
RFNP(L)  = 0 
DELTAP(L)  =0.0 
DELTAE(L)  * 0.0 
MOP(L)  = 0.0 
MOEiL)  =0.0 
SIG2P(L)  =0.0 
SIG2E(L)  =0.0 
MCHAT(1,L)  = 0.0 
MCHAT ( 2 , L ) = 0.0 
500  CONTINUE 

DO  525  L = 0,  (MAXREG) 
NBND(L)  =0.0 
525  CONTINUE 

NBND(l)  = 1.0E+36 

DO  600  L = 1,  MAXREG 
DO  650  K = 1,  MAXDAT 
NF(K,L)  = 0.0 
RFSTRE(K,L)  = 0.0 
RFSTRP(K,L)  = 0.0 
650  CONTINUE 

600  CONTINUE 

DO  700  M = 1,  MAXTNS 
DO  750  J = 0,  MAXSET 
TNSILE(J,M)  = 0.0 
750  CONTINUE 
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700  CONTINUE 

RETURN 

END 


C 


SUBROUTINE  RDECHO  READS  THE  DATA  FROM  SFECFD  AND  RELATD  AND  ECHOES 
THE  DATA  TO  SPECFO  AND  RELATO 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  21JUN88  FORMAT/COMMENTS:  15SEP89 

VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  RDECHO  (VARY,  MPROC,  NPTS,  RAWNF,  RAWSTR,  NSETS, 

DESCRP,  NDC,  SP,  SE,  NTENS,  TNSILE,  MZEROP, 
MPNTP,  MZEROE,  MPNTE,  DELTAP,  DELTAS,  MOP, 
MOE,  SIG2P,  SIG2E,  KRATIO,  LAMN) 


INPUTS:  VARY,  MPROC 

OUTPUTS:  NPTS,  RAWNF,  RAWSTR,  NSETS,  DESCRP,  NDC,  SP,  SE, 

NTENS,  TNSILE,  MZEROP,  MPNTP.  MZEROE,  MPNTE,  DELTAP, 
DELTAE,  MOP,  MOE,  SIG2P,  SIG2E,  KRATIO,  LAMN 
SUBPROGRAMS : TRMNAT 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXREG,  MAXSET,  MAXTNS 

PARAMETER  (MAXDAT  = 50,  MAXREG  > 3,  MAXSET  = 5,  MAXTNS  - 5) 


COMMON  I OUT 

INTEGER  I,  I OUT,  J,  M,  MPNTE ( MAXREG ) , MPNTP ( MAXREG ) , MPROC, 
fc  NDC (0 :MAXSET) , NPTS(0:MAXSET) , NSETS,  NTENS ( 0 :MAXSET) , 

& VARY 


REAL 

& 

& 

& 

& 

& 


DELTAE ( MAXREG ) , DELTAP ( MAXREG ) , KRATIO,  LAMN, 

MOE (MAXREG) , MOP ( MAXREG ) , MZEROE(2,  MAXREG), 

MZEROP ( 2 , MAXREG),  RAWNF ( MAXDAT , 0: MAXSET) , 

RAWSTR (MAXDAT,  0: MAXSET) , SE ( MAXDAT , 0: MAXSET) , 
SIG2E (MAXREG) , SIG2P ( MAXREG ) , SP ( MAXDAT , 0:MAXSET), 
TNSILE (0:MAXSET,  MAXTNS) 


CHARACTER* 40  DESCRP ( 0 : MAXSET) 


LIST  OF  VARIABLES 


DELTAE ( ) 

DELTAP ( ) 

DESCRP ( ) 
I 

I OUT 
J 

KRATIO 
LAMN 

M 

MAXDAT 
MAXREG 
MAXSET 
MAXTNS 
MOE  ( ) 

MOP  ( ) 

C 


1— D ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  MUE( ) AND 
SIGE ( ) CALCULATION 

1-D  ARRAY  CONTAINING  BAYESIAN  MULTIPLIER  USED  MUP( ) AND 
SIGP()  CALCULATION 

1-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
LAMBDA-N  — RATIO  OF  Var  (Ln  N given  S)  / (m**2  C**2), 
CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  TENSILE  POINT  IN  A DATA  SET 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SET  ALLOWED 
MAXIMUM  NUMBER  OF  TENSILE  TESTS  PER  DATA  SET  ALLOWED 
1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
ELASTIC  COMPONENTS 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  MEAN  FOR 
PLASTIC  COMPONENTS 
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MPNTE ( ) 
MPNTP( ) 
MPROC 
MZEROE  ( ) 


MZEROP ( ) 


NDC  ( ) 

NPTS ( ) 
NSETS 
NTENS ( ) 

RAWNF( ) 

RAWSTR( ) 

SZ{) 
SIG2E( ) 

SIG2P( ) 

tn^Ile ( ) 

VARY 


READ  DECOMPOSED  STRAIN  DATA  FOR  THE  SPECIFIC  MATERIAL  DATA 
SET  FROM  SPECFD  AND  ECHO  TO  SPECFO 

READ( 1, *)  DESCRP(O) 

READjl,*)  NDC ( 0 ) , NPTS(O),  NTENS(O) 

IF  (NDC(O)  .GT.  MAXDAT)  THEN 

WRITE ( 8 , * ) 'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  POINTS  IN 

& 'SPECIFIC  MATERIAL  DATA  SET' 

CALL  TRMNAT 
END  IF 

IF  (NPTS(O)  .GT.  MAXDAT)  THEN 

WRITE ( 8 , * ) 'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  POINTS  IN  ', 

& 'SPECIFIC  MATERIAL  DATA  SET' 

CALL  TRMNAT 
ENDIF 

IF  (NTENS ( 0 ) .GT.  MAXTNS)  THEN 

WRITE ( 6 , * ) 'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  TENSILE  ', 

& 'POINTS  IN  SPECIFIC  MATERIAL  DATA  SET' 

CALL  TRMNAT 
ENDIF 

WRITE (3, 900)  DESCRP(O),  NDC(O),  NPTS(O),  NTENS(O) 

WRITE(3,910) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8, 900)  DESCRP(O),  NDC(O),  NPTS(0),  NTENS ( 0) 

WRITE (8,910) 

ENDIF 

DO  50  I - 1, 

READ(1.«) 

WRITE (3, 92 
IF  (IOUT  . 

& SP(I,0) 

50  CONTINUE 

READ  REMAINING  TOTAL  STRAIN  DATA  FOR  THE  SPECIFIC  MATERIAL 
DATA  SET  FROM  SPECFD  AND  ECHO  TO  SPECFO 


RAW^tA(I,0),  RAWNF(I,0),  SP(I,0),  SE(I,0) 

1)  RAWSTR ( 1,0).  RAWNF ( I , 0 ),  SPfI,0),  SE(I,0) 
IQ.  10)  WRITE(8,920)  RAWSTR<I,0),  RAWNF(I#0)» 


SE ( I , 0 ) 


1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MCE ( ) (ALWAYS  0 FOR  STRAIN  CASE)  _ 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS,  0,  1,  OR  2,  IN 
MCP( ) (ALWAYS  0 FOR  STRAIN  CASE) 

Materials  PROCess  variation  — CONTROLS  MATERIALS  PROCESS 
VARIATION  — 0 - NO  VARIATION;  1 - VARIATION 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGE  ON  Me  FOR 
ELASTIC  COMPONENTS  — MZEROE (1,1)  IS  THE  LOWER  BOUND  AND 
MZEROE (2,1)  IS  THE  UPPER  BOUND 

2-D  ARRAY  CONTAINING  VALUES  OF  THE  PRIOR  RANGE  ON  Md  FOR 
PLASTIC  COMPONENTS  — MZEROP (1,1)  IS  THE  LOWER  BOUND  AND 
MZEROP ( 2 , 1)  IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  Number  of  given  Decomposed  STRAIN 
POINTS  FOR  EACH  DATA  SET 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

1- D  ARRAY  CONTAINING  NUMBER  OF  TENSILE  TEST  DATA  POINTS 
FOR  EACH  DATA  SET 

2- D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI ) OR  RAW  TOTAL 
STRAIN  (%)  DATA  FOR  ALL  S/N  DATA  SETS 

2-D  ARRAY  CONTAINING  GIVEN  ELASTIC  STRAIN  COMPONENTS  (%) 

1-D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  VARIANCE 
FOR  ELASTIC  COMPONENTS 

1- D  ARRAY  CONTAINING  THE  PRIOR  NORMAL  DISTRIBUTION  VARIANCE 
FOR  PLASTIC  COMPONENTS 

2- D  ARRAY  CONTAINING  GIVEN  PLASTIC  STRAIN  COMPONENTS  (%) 

2-D  ARRAY  CONTAINING  TENSILE  TEST  DATA  — INDEXED  FOR  EACH 

DATA  SET 

CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO 
VARIATION;  1 - S/N  RANDOMNESS  ONLY;  2 - UNIFORM 
VARIATION;  3 - TRUNCATED  NORMAL  VARIATION 
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DO  60 
READ 


60  CONT 


I - (NDC(O)  +1).  NPTS(0) 

RAWSTR(I,6),  RaWnF(I, 0) 

WRITE (J, 930)  RAWSTRf 1,0),  RAWNr (i, 0) 
IF  (I OUT  .EQ.  10)  WRITE(8,930)  RAWSTR 
ITINUE 


(1,0),  RAWNF(I,0) 


WRITE( 3.980) 

IF  (IOUT  .EQ.  10)  WRITE( 8,980) 

DO  70  M - 1,  NTENS(O) 

READ( 1.  *)  TNSILEf  0,M) 

WRITE(3,§90)  TNSILE(0,M) 

IF  (IOUT  .EQ.  10)  WRITE(8,990)  TNSILE(0,M) 
70  CONTINUE 


C READ  PRIOR  RANGE  INFORMATION  FROM  SPECFD 


READ( 1,*)  MPNTP(l) 
WRITE(3,$60)  MPNTP 
READ( 1, * ) MPNTE(l) 
WRITE(3, 965)  MPNTE 


, MZEROPJl^l^, 


(1),  MZEROP 
, MZEROE(l, 1) , 
(1),  MZEROE (1,1), 


MZER0P(2, 1) 
MZEROP(2, 1) 


1i<iEROE(2,i) 

- MZEROE(2,l) 


IF  (IOUT  .EQ.  10)  THEN 

WRITE (8, 960)  MPNTP ( 1 ) , MZEROP(l,l),  MZEROP(2,l) 
WRITE(8,965)  MPNTE ( 1 ) , MZEROE(l,l),  MZEROE(2,l) 
END  IF 


£ 

CALL  TRMNAT 
ENDIF 


3)  .AND. 

.EQ.  0.0)  .OR.  ( MPNTE ( 1 ) 
'ERROR:  NORMAL  VARIATION 

'ON  Mp  AND  Me' 


EQ.  0.0)))  THEN 
REQUIRES  PRIOR  RANGES 


> 


C 


IF  (VARY  .EQ.  3)  THEN 

READ  PRIOR  INFORMATION  ON  NORMAL  DISTRIBUTION 
READ( 1, *)  DELTAP(l),  MOP(l),  SIG2P(1) 

WRITE(3,970)  DELTAP(l).  MOP?l),  SIG2P(1) 

IF  ((DELTAP(l)  .LT.  0.6)  .OR.  

& ( ( DELTAP ( 1 ) .GT.  0.0)  .AND.  fMOP ( 1)  .LE.  0.0)))  THEN 

WRITE (8,*)  'ERROR:  BAD  VALUE  FOR  DELTAP  OR  VALUE  OF 

& 'MOP  INCONSISTENT  WITH  DELTAP' 

CALL  TRMNAT 
ENDIF 

READ( 1, *)  DELTAE(l),  MOE(l),  SIG2E(1) 

WRITE(3,975)  DELTAE ( 1 ) , MOE ( 1 ) , SIG2E(1) 

IF  ( ( DELTAE ( 1 ) .LT.  0.0)  .OR.  

£ ( ( DELTAE ( 1 ) .GT.  0.0)  .AND.  fMOE(l)  .LE.  0.0)))  THEN 

WRITE ( 8, * ) 'ERROR:  BAD  VALUE  FOR  DELTAE  OR  VALUE  OF 

£ 'MOE  INCONSISTENT  WITH  DELTAE' 


CALL  TRMNAT 
ENDIF 


ENDIF 

ENDIF 


(8,970 

DELTAP (] 

L),  MOP(  ] 

L),  SIG2P(1) 

(8,975 

) DELTAE (] 

L),  MOE(] 

L),  SIG2E ( 1 ) 

f 


t 


IF  (MPROC  .EQ.  1)  THEN 
READ( 1, *)  KRATIO,  LAMN 
WRITE (3, 995)  KRATIO,  LAMN 

IF  (IOUT  .EQ.  10)  WRITE(8,995)  KRATIO,  LAMN 
ENDIF 


C READ  STRAIN  DATA  FOR  THE  RELATED  MATERIAL  DATA  SETS 

C FROM  RELATD  AND  ECHO  TO  RELATO 

READ(5,*)  nsets 

IF  (NSETS  .GT.  MAXSET)  THEN 

WRITE (8,*)  'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  RELATED  ', 

£ ' DATA  SETS ' 

CALL  TRMNAT 
ENDIF 
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WRITE (6, 940)  NSETS 

IF  (IOUT  .EQ.  10)  WRITE(8,940)  NSETS 
DO  100  J m 1,  NSETS 

READ(5,*)  DESCRP(J) , NDC(J),  NPTS( J) , NTENS(J) 

IF  (NDC(J)  .GT.  MAXDAT)  THEN 

WRITE (8,*)  'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  POINTS  IN 

& 'RELATED  DATA  SET  ' , J 

CALL  TRMNAT 
ENDIF 

IF  (NPTS(J)  .GT.  MAXDAT)  THEN 

WRITE  ( 8 , * ) 'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  POINTS  IN  ', 

(,  'RELATED  DATA  SET  ',  J 

CALL  TRMNAT 

ENDIF  

IF  (NTENS(J)  .GT.  MAXTNS)  THEN 

WRITE (8,*)  'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  TENSILE  ', 

& 'POINTS  IN  RELATED  DATA  SET  ',  J 

CALL  TRMNAT 
ENDIF 

WRITE( 6, 950)  DESCRP(J),  NDC(J),  NPTS(J),  NTENS(J) 

WRITE(6,910) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8, 9 50)  DESCRP(J),  NDC(J),  NPTS( J) , NTENS(J) 

WRITE (8, 9 10) 

ENDIF 


fc 

125 


CONTINUE 


150 


DO  150  I = (NDC(J)  + 1),  NPTS(J) 

READ( 5, *)  RAWSTR( I , J ) , RAWNF(I,J) 
WRITe(o,930)  RAWSTR(I,J).  RAWNF(I,J) 

IF  (IOUT  .EQ.  10)  WRITE (8, 930)  RAWSTR ( I , J ) , 
CONTINUE 


RAWNF(I, J) 


WRITE(6,980) 

IF  ( IOUT  .EO.  10)  WRITE( 8, 980) 

DO  175  M - 1,  NTENS(J) 

READ( 5, *)  TNSILE(J,M) 

WRITE (6, 990)  TNSILEJJ,M) 

IF  (IGUT  .EO*  10)  WRITE(8,990)  TNSILE(J,M) 
175  CONTINUE 


100  CONTINUE 


900  FORMAT(////, 13X, 'MATERIAL  INPUT ',///, 2X, 'DESCRIPTION: ', 2X,A40 , 
& //,5X. 'NUMBER  OF  DECOMPOSED  STRAIN  POINTS: '.2X, 12, 

& //,2X, 'NUMBER  OF  POINTS  IN  SPECIFIC  DATA  SET:',2X,I2, 

& //, 10X, 'NUMBER  OF  TENSILE  TEST  POINTS: ', 2X, 12 ) 

910  FORMAT(//,7X, 'TOTAL  STRAIN' ,5X, 'LIFE' ,5X, 'PLASTIC  STRAIN', 

& 5X, 'ELASTIC  STRAIN',/) 

920  FORMAT ( 10X, F7 . 4 , 6X, F6 . 0 , 8X, F8 . 5 , 10X,F8 . 5 ) 

930  FORMAT( 10X,F7 . 4,6X,F6.0) 

940  FORMAT(20X, 'NUMBER  OF  DATA  SETS : ' , 2X, 12 ) 

950  FORMAT(///.2X, 'DESCRIPTION: ' ,2X,A40, 

& //,2X, 'NUMBER  OF  DECOMPOSED  STRAIN  POINTS: ' ,2X, 12, 

& //,8X, 'NUMBER  OF  POINTS  IN  DATA  SET: ' , 2X, 12. 

£ //,7X, 'NUMBER  OF  TENSILE  TEST  POINTS: ' ,2X,l2) 
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960  FORMAT (////, 2X , 'EXOGENOUS  INFORMATION', 

& ///,2x, 'EXPLICIT  CONSTRAINT  ON  np'. 

& /,9X, 'NUMBER  OF  POINTS  IN  RANGE : ' , 2X, I 1 , 

& //, 15X, 'LOWER  BOUND' ,5X, 'UPPER  BOUND' , 

& //, 16X,F7 . 4, 10X,F7. 4) 

965  FORMAT (///,2X, 'EXPLICIT  CONSTRAINT  ON  me'. 

& /, 9 X. 'NUMBER  OF  POINTS  IN  RANGE: ' .2X,I1, 

& //,15X, 'LOWER  BOUND', 5X, 'UPPER  BOUND', 

& //, 16X,F7 . 4 , 10X,F7 . 4) 


970  FORMAT(///,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS  — mp', 
& //, 12X, 'DELTA', 8X, 'mo',10X, ' SIGMA2 ' , 

& //,10X,F7.2,5X,F7.4,5X,E11.5) 


975  FORMAT(///,2X, 'PRIOR  NORMAL  DISTRIBUTION  PARAMETERS 
& //, 12X, 'DELTA', 8X, 'mo',10X, ' SIGMA2 ' , 

& //, 10X,F7 .2 , 5X, F7 .4, 5X,Ell. 5) 


r 


980  FORMAT (//,2X, 'TENSILE  DATA',/) 


990  FORMAT ( 1 OX , F8 . 5 ) 

995  FORMAT ( / /, 2X, 'K*/K: ' , 8X,E11. 5, /, 2X, 'LAMBDAN: ' ,5X,E11.5) 


RETURN 

END 


C************************************************************************ 


SUBROUTINE  PREP  PREPARES  THE  DECOMPOSED  STRAIN  COMPONENT  DATA  FOR 
PROCESSING  THROUGH  THE  INFORMATION  AGGREGATION  MODEL  — STRAIN  DATA 
MUST  CONFORM  TO  DATA  STRUCTURE  REQUIRED  BY  THE  STRESS  FORMULATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  PREP  (NSETS,  NUM,  PLAS,  ELAS,  RAWNF,  NP,  LNSTRP, 

& LNSTRE,  LNNF,  RFNP,  RFSTRP,  RFSTRE,  NF) 

INPUTS:  NSETS,  NUM,  PLAS,  ELAS,  RAWNF 

OUTPUTS:  NP,  LNSTRP,  LNSTRE,  LNNF,  RFNP,  RFSTRP,  RFSTRE,  NF 

IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG,  MAXSET 

PARAMETER  (MAXDAT  - 50,  MAXREG  = 3,  MAXSET  - 5) 

COMMON  I OUT 

INTEGER  I OUT,  J,  K,  NP(0:MAXSET,  MAXREG),  NSETS, 

& 

REAL 

& 

& 

& 

& 

6 


ELAS ( ) 
I OUT 


NUM(0 : MAXSET) , RFNP (MAXREG) 

ELAS ( MAXDAT , 0 : MAXSET ) , LNNF ( MAXDAT , 0: MAXSET,  MAXREG), 
LNSTRE (MAXDAT,  0:MAXSET,  MAXREG), 

LNSTRP (MAXDAT,  0: MAXSET,  MAXREG), 

NF ( MAXDAT , MAXREG),  PLAS ( MAXDAT , 0:MAXSET). 

RAWNF (MAXDAT,  0:MAXSET),  RFSTRE (MAXDAT,  MAXREG), 

RFSTRP (MAXDAT,  MAXREG) 


LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  ELASTIC  STRAIN  COMPONENTS  (%) 
OUTPUT  DUMP  CONTROLLER 
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C J 
C K 

C LNNF ( ) 

C LNSTRE ( ) 
C LNSTRPO 
C MAXDAT 
C MAXREG 
C MAXSET 
C NF{  ) 

C 

C NP  ( ) 

C 

C NSETS 
C NUM(  ) 

C PLASM 
C RAWNF ( ) 

C 

C RFNP( ) 

C 

C RFSTRE ( ) 
C 

C RFSTRP ( ) 
C 


CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 
3-D  ARRAY  CONTAINING  LN(RAWNF()  ) 

3-D  ARRAY  CONTAINING  LN(SEM  ) OR  LN(STRE( 

3-D  ARRAY  CONTAINING  LN(SPM  ) OR  LN(STRP( 

MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 

2-D  ARRAY  CONTAINING  RAWNF M (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
2-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  OF  EACH  S/N  DATA 


PIL 


REGION)  ALLOWED 


SET  IN  EACH  REGION 

NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

1—  D ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 

2- D  ARRAY  CONTAINING  PLASTIC  STRAIN  COMPONENTS  (%) 

2-D  ARRAY  CONTAINING  RAH  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  FOR  THE  SPECIFIC 
(REFERENCE)  MATERIAL  S/N  DATA  SET 

2- D  ARRAY  CONTAINING  ELASTIC  STRAIN  POINTS  («),  SE()  OR 
STRE<),  FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

2-D  ARRAY  CONTAINING  PLASTIC  STRAIN  POINTS  (%),  SP( ) OR 
STRP( ) , FOR  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 


C INITIALIZE  VARIABLES 

RFNP(l)  = 0 

DO  50  J * 0,  NSETS 
NP(J,1)  - 0 
50  CONTINUE 

DO  75  K - 1,  MAXDAT 
RFSTRP (K,l)  » 0.0 
RFSTRE (K,l)  = 0.0 
NF(K, 1 ) - 0.0 
75  CONTINUE 

DO  100  J - 0,  NSETS 

DO  150  K - 1,  MAXDAT 
LNSTRP(K, J, 1)  " 0.0 
LNSTRE (K,J, 1)  = 0.0 
LNNF(K, J, 1)  -0.0 
150  CONTINUE 
100  CONTINUE 

C BEGIN  CALCULATIONS 

C PREPARE  NP,  LNSTRP,  LNSTRE,  AND  LNNF  FOR  USE  BY  SUBROUTINE  SW2SU2 

IF  ( I OUT  .EQ.  10)  WRITE ( 8 , * ) 'NSETS  = ',  NSETS 

DO  200  J « 0,  NSETS 
NP( J, 1)  - NUM( J) 

IF  ( IOUT  .EQ.  16) 

& WRITE ( 8 , * ) 'J  = ' , J,  ' NUM  = ',  NUM(J),  ' NP  =',  NP( J, 1) 

DO  250  K = 1,  NUM(J) 

LNSTRP (K,J, 1)  = ALOG(PLAS(K,J) ) 

LNSTRE (K,J, 1)  = ALOG(ELAS (K, J) ) 

LNNF(K,J, 11  = ALOG( RAWNF ( K, J ) ) 

, IF  (IOUT  .EQ.  10)  THEN 

WRITE 
WRITE 
WRITE 
WRITE 
END  IF 
250  CONTINUE 
200  CONTINUE 


(8,* 

f,* 

8,* 

8/* 


) ' K = 


PLAS  - 9 ,PLAS(K, J)  , 
r ,ELAS (K,J)  , 


'ELAS 


LNSTRP 

LNSTRE 


UUfW  — f CtlilW  I f Anu 

RAWNF  = ' , RAWNF (K,J) , ' LNNF 


' , LNSTRP (K,J, 1 ) 
' , LNSTRE (K,J, 1) 
* ,LNNF(K, J, 1) 


C PREPARE  RFNP,  RFSTRP,  RFSTRE,  AND  NF  FOR  USE  BY  SUBROUTINE  EXPCTD 


RFNP(l)  = NUM(0) 
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NUM(O) 


RFNP 


RFNP(l) 


IF  ( I OUT  .EQ.  10)  WRITE ( 8 , * ) 'NUM 


DO  300  K - 1.  NUM(O) 

RFSTRPfK, 1)  - PLASfK, 0) 
RFSTRE (K, 1)  - ELAStK, 0) 
NF(K, 1)  - RAWNF (K, 0 ) 

IF  ( I OUT  .EQ.  10)  THEN 
WRITE ( 8 , * ) 'K  - K 
WRITE ( 8, *)  'PLAS  - 
WRITE ( 8 , * ) 'ELAS  ■ 
WRITE ( 8, * ) 'RAWNF  ■ 
ENDIF 
300  CONTINUE 


RFSTRP 
RFSTRE 
' NF  - 


RFSTRP (K, 1 
RFSTRE (K, 1 
NF(K,1) 


RETURN 

END 


C 


SUBROUTINE  PECOMP  CONTROLS  THE  CALCULATIONS  FOR  THE  STRAIN  DECOMPOSITION 
PORTION  OF  THE  INFORMATION  AGGREGATION  MODEL  FOR  THE  STRAIN  FORMULATION 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  PECC»fl>  (NSETS,  DESCRP,  NDC,  SP,  SE,  NPTS,  RAWSTR, 

& RAWNF,  NTENS,  TNSILE,  KP,  KE,  MP,  ME, 

& STRP,  STRE) 

INPUTS:  NSETS.  DESCRP,  NDC,  SP,  SE,  NPTS,  RAWSTR,  RAWNF,  NTENS, 

TNSILE,  KP,  KE,  MP,  ME 
OUTPUTS : STRP , STRE 

SUBPROGRAMS : TRMNAT 


IMPLICIT  NONE 


INTEGER  MAXDAT,  MAXSET,  MAXTNS 

PARAMETER  (MAXDAT  * 50,  MAXSET  > 5,  MAXTNS  « 5) 


COMMON  I OUT 


INTEGER  I,  I OUT,  J,  M,  NDC  ( 0 : MAXSET ) , NPTS  ( 0 : MAXSET ) , NSETS, 
& NTENS (0:MAXTNS) 


REAL 

& 

& 

& 

& 

& 


ALPHA ( MAXDAT , 0 : MAXSET) , KE,  KP,  KTERM, 

LAMBDA  (MAXDAT,  0:  MAXSET) , ME,  MP,  MTERM, 

RAWNF  (MAXDAT,  0:MAXSET),  RAWSTR  (MAXDAT,  0:MAXSET), 
SE ( MAXDAT , 0:MAXSET),  SP ( MAXDAT , 0:MAXSET), 

STRE (MAXDAT,  0:MAXSET),  STRP ( MAXDAT , 0:MAXSET), 
TNSILE (0:MAXSET,  MAXTNS) 


CHARACTER*  4 0 DESCRP ( 0 : MAXSET ) 


LIST  OF  VARIABLES 


ALPHA ( ) 

DESCRP ( ) 
I 

I OUT 

J 

KE 


KP 


KTERM 


2-D  ARRAY  CONTAINING  THE  RATIOS  OF  Sp  TO  Se  FOR  EACH 
TOTAL  STRAIN  POINT 

1-D  ARRAY  CONTAINING  DESCRIPTIONS  OF  EACH  S/N  DATA  SET 
CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A DATA  SET 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  DATA  SET 

S-N  CURVE  LOCATION  PARAMETER,  Ke,  FOR  THE  ELASTIC  STRAIN 
S-N  CURVE 

S-N  CURVE  LOCATION  PARAMETER,  Kp,  FOR  THE  PLASTIC  STRAIN 
S-N  CURVE 
EQUAL  TO  KP  / KE 
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LAMBDA 
M 

MAXDAT 
MAXSET 
MAXTNS 
ME 

MP 

C MTERM 
C NDC 
C 

C NPTS ( ) 

C NSETS 
C NTENS( ) 
C 

C RAWNF( ) 
C 

C RAWSTR( ) 
C 


C STRE( ) 

C STRP  ( ) 

C TNSIli:() 

c 


2-D  ARRAY  CONTAINING  VALUES  FOR  THE  PLASTIC  FRACTION  OF 
THE  TOTAL  STRAIN 

CONTROLS  DO  LOOP  FOR  EACH  TENSILE  TEST  DATA  POINT 
MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  S/N  DATA  SETS  ALLOWED 
MAXIMUM  NUMBER  OF  TENSILE  TESTS  PER  DATA  SET  ALLOWED 
S/N  CURVE  SHAPE  PARAMETER,  Me,  FOR  THE  ELASTIC  STRAIN 
S/N  CURVE  

S/N  CURVE  SHAPE  PARAMETER,  Mp,  FOR  THE  PLASTIC  STRAIN 
S/N  CURVE 

EQUAL  TO  -[(1  / Mp)  - (1  / Me)  ] 

1— D ARRAY  CONTAINING  Number  of  given  Decomposed  STRAIN 
POINTS  FOR  EACH  DATA  SET 

1-D  ARRAY  CONTAINING  NUMBER  OF  POINTS  IN  S/N  DATA  SETS 
NUMBER  OF  RELATED  MATERIAL  S/N  DATA  SETS 

1- D  ARRAY  CONTAINING  NUMBER  OF  TENSILE  TEST  DATA  POINTS 
FOR  EACH  DATA  SET 

2- D  ARRAY  CONTAINING  RAW  CYCLES  TO  FAILURE  DATA  FOR  ALL  S/N 
DATA  SETS 

2-D  ARRAY  CONTAINING  RAW  STRESS  DATA  (PSI)  OR  RAW  TOTAL 
STRAIN  DATA  (%)  FOR  ALL  S/N  DATA  SET 
2-D  ARRAY  CONTAINING  GIVEN  ELASTIC  STRAIN  COMPONENTS  («) 

2-D  ARRAY  CONTAINING  GIVEN  PLASTIC  STRAIN  COMPONENTS J* ) 

2-D  ARRAY  CONTAINING  CALCULATED  ELASTIC  STRAIN  COMPONENTS 
2-D  ARRAY  CONTAINING  CALCULATED  PLASTIC  STRAIN  COMPONENTS 
2-D  ARRAY  CONTAINING  TENSILE  TEST  DATA  — INDEXED  FOR  EACH 
DATA  SET 


C INITIALIZE  NECESSARY  ARRAYS 

DO  25  J - 0,  MAXSET 
DO  50  I - 1,  MAXDAT 
ALP HA ( I, J)  - 0.0 
LAMBDA(I, J)  « 0.0 
50  CONTINUE 
25  CONTINUE 


C BEGIN  CALCULATIONS 

KTERM  « KP  / KE 

MTERM  = - ((1.0  / MP)  - (1.0  / ME)) 

IF  ( I OUT  .EQ.  10)  THEN  

WRITE ( 8 , * ) ' KP  = ',  KP,  ' KE  ■ ' , KE,  ' KTERM  » ' , KTERM 
WRITE ( 8 , * ) 'MP  ■ ',  MP,  ' ME  = ' , ME,  ' MTERM  « ',  MTERM 
WRITE ( 8 , * ) 'NSETS  = ',  NSETS 
END  IF 


DO  100  J - 0,  NSETS 


IF  ( IOUT  .EQ.  10) 

& WRITE (8,*)  'J  = ' , J,  ' NDC  = ',  NDC(J) , 

& ' NPTS  - ',  NPTS(J),  ' NTENS  = 


NTENS(J) 


C IF  GIVEN  COMPONENT  DATA  EXITS,  NO  DECOMPOSTION  IS  REQUIRED 


150 


DO  150  I = 1,  NDC 
STRP ( I , J)  - SP 
STRE ( I , J)  « SE 
IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE (8,*) 
WRITE ( 8 , * ) 
END  IF 
CONTINUE 


Ji t*  I 

10)  THEN 

'I  - ',  I 

'SP  - ',  SP(I,J), 

'SE  ■ ',  SE(I,J), 


STRP 

STRE 


STRP(I, J) 
STRE( I, J) 


C DECOMPOSE  REMAINING  TOTAL  STRAIN  DATA 

DO  200  I - (NDC(J1  + 1),  NPTS(J) 

ALPHA(  I , J)  « KTERM  * RAWNF(  I#  J)  **  MTERM 
LAMBDA ( I, J)  - ALPHA(I,J)  / <1.0  + ALPHA(I,J)) 
STRP( I , J)  - LAMBDA(I, J)  * RAWSTR(I,J) 
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6 


200 


STRE(I.J)  ■ RAWSTR ( I , J ) - STRP(I, J) 

IF  ( I OUT  .EQ.  10)  THEM 

WRITE (8,*)  'I  - I,  ' RAWSTR  - ',  RAWSTR(I,J), 

' RAWNF  - ',  RAWNF(I,J) 

WRITE (8,*)  'ALPHA-  ' , ALPHA  ( I , J ) , 

' LAMBDA  - ' , LAMBDA ( I, J) 

WRITE (8,*)  ' STRP  - ',  STRP(I,J),  ' STRE  - ',  STRE(I,J) 
ENDIF 
CONTINUE 


C GENERATE  ELASTIC  COMPONENTS  FOR  TENSILE  TEST  DATA 

C AND  CALCULATE  TOTAL  STRAIN  VALUE 


& 


IF 


( (NPTS(J)  + NTENS(J))  .GT.  MAXDAT) 

WRITE ( 8 * ) 'ERROR:  EXCEEDED  MAXIMUM  NUMBER  OF  POINTS  DUE 

'TO  ADDITION  OF  TENSILE  DATA  IN  DATA  SET  ',  J 


CALL  TRMNAT 
ENDIF 


» 


I - NPTS(J) 

DO  250  M - 1,  NTENS(J) 

I - I + 1 

ALPHA ( I , J)  = KTERM 
STRP(I, J)  * TNSILE( J ,M) 

STRE(I,J)  - TNSILE ( J,M)  / ALPHA(I,J) 

RAWNF(I,J)  - 1.0 

RAWSTR (I , J)  - STRP(I,J)  + STRE(I,J) 

IF  (IOUT  .EQ.  10)  THEN 

WRITE (8,*)  'M  = ',  M,  ' I - I 
WRITE ( 8 , * ) 'TNSILE  - ',  TNSILEf J,M) , 

& ' ALPHA  = ',  ALPHA (I , J) 

WRITE ( 8 , * ) 'STRP  - ',  STRP(I,J),  ' STRE  - ',  STRE(I,J) 
WRITE ( 8 , * ) 'RAWSTR  - ',  RAWSTR(I,J), 

& ' RAWNF  - ',  RANNF(I,J) 

ENDIF 
250  CONTINUE 

NPTS(J)  = NPTS(J)  + NTENS(J) 


100  CONTINUE 


C WRITE  RESULTS  TO  DUMP 

WRITE(7,900) 

WRITE(7, 905)  DESCRP ( 0 ) , NPTS(0) 

DO  300  1*1,  NPTS(0) 

WRITE (7, 9 10)  RAWNF (1,0),  RAWSTR (1,0),  STRP(I,0),  STRE (1,0) 
300  CONTINUE 


WRITE(7,915)  NSETS 


DO  400  J « 1.  NSETS 

WRITE(7,905)  DESCRP (J) , NPTS(J) 

DO  506  I = 1.  NPTS(J) 

WRITE(7,9lO)  RAWNF ( I, J) , RAWSTR(I,J) 
500  CONTINUE 
400  CONTINUE 


STRP(I,J) 


STRE(I,J) 


900  FORMAT( ///,2X, 'ESTIMATED  STRAIN  DECOMPOSITION', 
& / / , 5X , ' SPECIFIC  MATERIAL ' ) 


905  FORMAT (//.2X, 'DESCRIPTION: ' ,2X,A40, 

& / , 2X, 'NUMBER  OF  DATA  POINTS: ' , 
fc  //,7X, 'LIFE', 5X, 'TOTAL  STRAIN' 
i 5X, 'EIASTIC  STRAIN' ,/) 


2X  12 

,5X, 'PLASTIC  STRAIN' 


t 


910  FORMAT <6X,F6 .0,6X,F7 .4, 11X,F8.5, 10X,F8.5) 


915  FORMAT (///,2X, 'RELATED  MATERIALS', 

& //,2X, 'NUMBER  OF  DATA  SETS : ' , 2X, 12 , / ) 


RETURN 

END 
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SUBROUTINE  PAREST  CONTROLS  THE  CALCULATIONS  FOR  THE  PARAMETER 
ESTIMATION  MODEL  PORTION  OF  THE  MATERIALS  CHARACTERIZATION  MODEL 


PROGRAMMER: 
DATE: 
VERSION : 


L.  NEWLIN  , „„ 

CODE:  13FEB89  FORMAT /COMMENTS:  15SEP89 

MATCHR  V8.3,  V8.4,  V8.5  MATGRMV4.3,  V4.4,  V4.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.s.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  PAREST  (VARY,  RANGEM, 
f,  ZROREG,  RAND, 
i SBND) 


MU,  SIG,  NF,  NPTS,  NUMREG, 
NBND,  STR,  BIGK,  BZERO,  MM, 


INPUTS:  VARY,  RANGEM,  MU,  SIG,  NF,  NPTS,  NUMREG,  ZROREG,  RAND, 

NBND,  STR 

OUTPUTS:  BIGK,  BZERO.  MM,  SBND 

SUBPROGRAMS:  FINDM,  FINDMN,  TRNSFM,  SMNVAR,  KBETA,  FINDK,  FINDS B 


IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  = 50,  MAXREG  = 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NP,  NPTS (MAXREG) , NUMREG,  VARY,  ZROREG 

REAL  BIGK(0: MAXREG),  BZERO.  K,  MEANZ,  MM(0 : MAXREG) , 
t MU(MAXREG) , NBND( 0: MAXREG) , NF( MAXDAT,  MAXREG), 

& RANGEM ( 2 , MAXREG),  SBND ( 0 : MAXREG) , SIG ( MAXREG ) , 

6 STR (MAXDAT,  MAXREG),  SZ2,  ZZ (MAXDAT) 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


BIGK ( ) 1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 

EACH  REGION 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  S/N  DATA  SET 
I OUT  OUTPUT  DUMP  CONTROLLER 

K VALUE  OF  k — PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXDAT  MAXIMUM  NUMBER  OF  POINTS  IN  S/N  DATA  SET  (PER  REGION)  ALLOWED 
MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MEANZ  SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

MM()  1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

MU ( ) 1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL 

' DISTRIBUTION  MEAN  FOR  EACH  REGION 

NBND ( ) 1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NF( ) 2-D  ARRAY  CONTAINING  RAWNF ( ) (CYCLES  TO  FAILURE)  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 
NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

NPTS ( ) 1-D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 

SPECIFIC  MATERIAL  S/N  DATA  SET 
NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

RAND  RANDOM  NUMBER  SEED 

RANGEM { ) 2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM (1,L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

SBNDO  1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R - -1.0) 
CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND ( ) 

SIG( ) 1-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  NORMAL  DISTRIBUTION 
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STANDARD  DEVIATION  FOR  EACH  REGION 

STR( ) 2-D  ARRAY  CONTAINING  RATSTR( ) FOR  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  %) 

SZ2  SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z = F(STR,  NF,  NBND,  MM) 

VARY  CONTROLS  TYPE  OF  CURVE  VARIATION  DESIRED  — 0 - NO  VARIATION; 

1 - S-N  RANDOMNESS  ONLY;  2 - UNIFORM  VARIATION; 

3 - TRUNCATED  NORMAL  VARIATION 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 

BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS.  1 - NO  ZERO  REGION 
ZZ( ) 1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA,  Z - F( STR, NF, NBND, MM) 


OBTAIN  THE  VALUES  OF  M FOR  EACH  REGION 
IF  (VARY  .LE.  2)  THEN 

UNIFORM  OR  NO  VARIATION  IN  M IS  DESIRED 
CALL  FINDM  (RAND,  NUMREG,  RAN GEM,  MM) 

ELSE 

NORMAL  VARIATION  IN  M IS  DESIRED 
CALL  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RAN GEM,  MM) 

ENDIF 

TRANSFORM  THE  S/N  DATA  INTO  THE  VARIABLE  Z * Ln(X) 

CALL  TRNSFM  (NPTS,  STR,  NF,  NUMREG,  MM,  NBND,  NP,  ZZ) 

CALCULATE  THE  SAMPLE  MEAN  AND  VARIANCE  OF  Z * Ln(X) 

CALL  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

CALCULATE  THE  VALUES  FOR  k AND  BETAO  FROM  THE  SAMPLE  MEAN 
AND  VARIANCE 

CALL  KBETA  (MEANZ,  SZ2,  K,  BZERO ) 

C CALCULATE  THE  VALUE  OF  K FOR  EACH  REGION  WHERE  A - K **  M 
CALL  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

C CALCULATE  STRESS  TIE-POINTS 

CALL  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

C WRITE  RESULTS  TO  FILE 

WRITE (7, 900)  NUMREG,  BZERO 

DO  200  L = ZROREG,  NUMREG 

WRITE (7, 9 10)  L,  MM(L) , BIGK(L),  NBND(L),  SBND(L) 

200  CONTINUE 

WRITE (7, 920) 

C FORMAT  STATEMENTS 

900  FORMAT (///. 2 X, 'SELECTED  VALUES  OF  S/N  CURVE  PARAMETERS', 
& //,2X, 'NUMBER  OF  REGIONS:  ' , 14 . 5X, ' BETAo  * ',F8.4 

t //,2X, 'REGION' ,7X, 'm' , 15X, 'K' ,9X, 'LIFE  BOUND', 5X, 

& 'STRESS  BOUND',/) 

910  FORMAT ( 5X, II, 5X,F9 . 5, 5X,E12 . 5, 5X,E9 . 3, 6X,Ell .5 ) 

920  FORMAT ( / / / ) 


RETURN 

END 
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c************************************************************************ 


c 

c 

c 

c 

c 

c 


SUBROUTINE  FINDH  CALCULATES  THE  VALUE  OF  M FOR  EACH  REGION  BY 
SAMPLING  OFF  THE  APPROPRIATE  M RANGE 


PROGRAMMER: 
DATE : 
VERSION: 


L.  NEWLIN 

CODE:  7JUN88  COMMENTS:  13JUL89 

MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDM  (RAND,  NUMREG,  RAN GEM,  MM) 


C INPUTS:  RAND,  NUMREG,  RANGEM 

C OUTPUTS:  MM 

C SUBPROGRAMS:  RANDOM,  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  ■ 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  MM( 0 : MAXREG) , PICK<2),  RANGEM (2 , MAXREG),  X 

DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 


IOUT 

L 

MAXREG 
MM( ) 
NUMREG 
PICK() 
RAND 
RANGEM ( ) 


X 


OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 
RANDOM  NUMBER  SEED 

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L)  IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

UNIFORM (0,1)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFF  THE  RANGE  ON  M 


C INITIALIZE  MM( ) 


DO  50  L - 0,  MAXREG 
MM(MAXREG)  = 0.0 
50  CONTINUE 

BEGIN  CALCULATIONS 

DO  100  L * 1,  NUMREG 


PICK(l) 
PICK (2 ) 


0.0 

0.0 


IF  ( RANGEM ( 2 , L ) .EQ.  0.0)  THEN 

M IS  SPECIFIED  AS  A POINT  VALUE 
MM(L)  = RANGEM ( 1,L) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 


' RANGEM ( 1,L)  =' , RANGEM ( 1,L) , 
' MM(L)  =',  MM(L) 

ELSEIF  (L  .EQ.  1)  THEN 

SAMPLE  ON  EXISTING  RANGE 
CALL  RANDOM (X,  RAND) 

MM(L)  - (RANGEM (2 ,L)  - RANGEM ( 1,L) ) * X + RANGEM ( 1,L) 

IF  (IOUT  .EQ.  id)  THEN 

WRITE ( 8, *)  'rAnGEM(I.L)  RANGEM( l.L) , 

' RANGEM ( 2, L)  =' , RAN GEM ( 2, L) 
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c 

c 


c 

c 


c 


WRITE ( 8, * ) 'L  , L,  ' X «'  , X,  ' MM(L)  ■'  , HH(L) 
END  IF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  - AMAX 1 ( MM  ( L- 1 ) , RANGEM(1,L)> 

PICK(2)  - RANGEM ( 2 ,L ) 

IF  (PICK(l)  .GT.  PiCK ( 2 ) ) THEN 

NO  RANGE  EXISTS  — THIS  SHOULD  NOT  BE  POSSIBLE 
STOP  PROGRAM 

WRITE ( 8,  * ) ' IMPOSSIBLE  M RANGE  IN  REGION' , L 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 
CALL  RANDOM  (X.  RAND) 

MM(L)  * ( PICK ( 2 ) - PICK(l))  * X + PICK(l) 

ENDIF 

IF  (IOUT  .EQ.  10)  THEN 

WRITE(8,*)  'L  L,  ' MM(L-l)  MM(L-l) , 

' RANGEM ( 1 , L ) RANGEM (1,L) 


WRITE (8,*)  ' 
WRITE ( 8 , * ) ' 


ENDIF 

ENDIF 


PICK ( 1 ) * ' , PICK ( 1 ) , ' PICK (2) 
RANGEM(  2,L)  RANGEM(2,L),  * 

MM(L)  MM(L) 


PICK( 2 ) 

, X, 


100  CONTINUE 


RETURN 

END 


c*************** ★**★♦*★********★******★★*★♦♦★ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 

Miles,  R.  F.,  The  RANDOM  Computer  Program:  A Linear  Congruential 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 

PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  1DEC87 

VERSICW : MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3, 

V7 \ V7.1,  V8 , V8.1,  V8.2, 

MATGRM  V2 , V3,  V3.1,  V3.2,  V3.3, 

V4.3,  V4.4,  V4.5 


V6,  V6.1,  V6.2, 
V8.3,  V8.4,  V8.5 
V4,  V4 . 1,  V4.2, 


£**++++*+*** ★★★★**★**★★*******★★*★★★★*****★★★★ 


C 


SUBROUTINE  RANDOM  (FRAC,  RAND) 

IMPLICIT  NONE 
COMMON  IOUT 
INTEGER  IOUT 
REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANG,  RAND,  RAND IV, 
6 RANT,  RANX 


RANM,  RANSUB, 


C 

C 

C FRAC 
C IOUT 
C RANA 
C RANG 
C RAND 
C RANDIV 
C RANM 
C RANSUB 
C RANT 
C RANX 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
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c 


USING  LCG  RANDOM  # GENERATOR 


RANA  ■ 671093.0 
RANC  - 7090885.0 
RANM  * 33554432.0 

10  RANX  “ RANA  * RAND  + RANC 
RANDIV  = RANX  / RANM 
RANT  - DINT ( RANDIV ) 

RANSUB  - RANT  * RANM 
RAND  - RANX  - RANSUB 
FRAC  - SNGL<RAND  / RANM) 


IF  ((FRAC  .EQ.  0.0)  .0 
IF  ( IOUT  .EQ.  2)  WRITE 
& • RANT  , RANT,  ' 

& ' FRAC  ■' , FRAC 

RETURN 
END 

C NOTES:  IOUT=2  DUMPS  TO  SCREEN 


R.  (FRAC  .EQ.  1.0))  GOTO  10 

(8,*) 'RANX  , RANX,  ' RANDIV  , RANDIV, 

RANSUB  RANSUB,  ' RAND  , RAND, 


C******** ******** ****** ************************************************** 


C SUBROUTINE  FINDMN  CALCULATES 
C SAMPLING  OFF  THE  APPROPRIATE 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  7JUN88 

C VERSION : MATCHR  V8,  V8.1, 

C MATGRM  V4,  V4.1, 


THE  VALUE  OF  M FOR  EACH  REGION  BY 
TRUNCATED  NORMAL  M DISTRIBUTION 

COMMENTS:  13FEB89 

V8.2,  V8.3,  V8.4,  V8.5 
V4.2,  V4.3,  V4.4,  V4.5 


SUBROUTINE  FINDMN  (RAND,  NUMREG,  MU,  SIG,  RANGEM,  MM) 


C INPUTS:  RAND,  NUMREG,  MU,  SIG,  RANGEM 

C OUTPUTS:  MM 

C SUBPROGRAMS:  NORMGN,  TRMNAT 


C IMPLICIT  NONE 


INTEGER  MAXREG 
PARAMETER  (MAXREG  * 3) 

COMMON  IOUT 

INTEGER  IOUT,  L,  NUMREG 

REAL  MM( 0 : MAXREG) , MU(MAXREG),  PICK(2),  RANGEM (2 , MAXREG), 
& SIG (MAXREG) , X 

DOUBLE  PRECISION  RAND 


IOUT 

L 

MAXREG 

MM<) 

SS&EG 

PICK() 
RAND 
RANGEM ( ) 


SIG() 


LIST  OF  VARIABLES 

OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
1-D  ARRAY  CONTAINING  THE  MEAN  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

1- D  ARRAY  CONTAINING  ADJUSTED  RANGE  ON  M TO  BE  SAMPLED  FROM 

RANDOM  NUMBER  SEED  

2- D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGES  ON  M 
FOR  EACH  REGION  — RANGEM ( 1 , L ) IS  THE  LOWER  BOUND  AND 
RANGEM ( 2, L)  IS  THE  UPPER  BOUND 

1-D  ARRAY  CONTAINING  THE  STANDARD  DEVIATION  OF  M FOR  EACH 
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REGION 

NORMAL  (MU,  SIGMA)  RANDOM  VARIATE  USED  TO  OBTAIN  VALUE  SAMPLED 
OFT  THE  RANGE  ON  M 


INITIALIZE  MM( ) 

DO  50  L * 0,  MAXREG 
MM(MAXREG)  » 0.0 
50  CONTINUE 


BEGIN  CALCULATIONS 

DO  100  L - 1,  NUMREG 


10 


20 


PICK(l) 
PICK (2 


0.0 

0.0 


IF  ( RANGEM ( 2 , L)  .EQ. 
M IS  SPECIFIED  AS 


0.0)  THEN 
A POINT  VALUE 


MM(L) 

IF  (IOUT  .EQ 


RANGEM ( 1 ,L) 

0)  WRITE ( 8 , * ) 


ELSEIF  (L  .EQ.  1)  THEN 
SAMPLE  ON  EXIS 


' RANGEM ( 1,L)  RANGEM ( 1,L) , 

' MM(L)  «' , MM(L) 


l.L)  =>',  RANGEM ( l.L)  , 
1(2, L)  RANGEM ( 2 , L ) 

,,  ’ X X,  ' MM(L)  ■ 


TING  RANGE 

CALL  NORMGN  (RAND,  MU(L) , SIG(L) , X) 

IF  ((X  .LT.  RANGEM ( 1 , L ) ) .OR.  (X  .GT 
MM(L)  « X 

IF  (IOUT  .EQ.  10)  THEN 

WRITE  ( 8 , * ) 'RANGEM(l.L)  =■' , RANGEM  ( l.L 

' RANGEM  ' ‘ 

WRITE (8,*)  L 

ENDIF 
ELSE 

ADJUST  RANGE  ACCORDING  TO  PREVIOUS  M VALUE 
AND  THEN  SAMPLE 

PICK(l)  - AMAX1 (MM(L— 1 ) , RANGEM ( 1,L) ) 

PICK(2 ) - RANG EM ( 2, L) 

IF  (PICK(l)  .GT.  PICK(2) ) THEN 

NO  RANGE  EXISTS  — THIS  SHOULD  NOT  BE  PO 
STOP  PROGRAM 

WRITE (8,*)  'IMPOSSIBLE  M RANGE  IN  REGION 
CALL  TRMNAT 
ELSE 

SAMPLE  ON  ADJUSTED  RANGE 


RANGEM(2,L) ) ) GOTO  10 


MM(L) 


CALL  NORMCR1  (RAND,  MU(L),  SIG(L),  X) 

IF  ((X  .LT.  PICK(l))  .OR.  (X  .GT.  PICK(2))>  GOTO  20 
MM(L)  “ X 


MM( 

ENDIF 
IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 

WRITE ( 8 , * 
WRITE (8 


ENDIF 

ENDIF 

100  CONTINUE 


10)  THEN 
'L  L, 

' RANGEM ( 1 , L ) , ftANGEM(l,L) 

'PICK(l)  PICK ( 1 ) , ' PICK (2 ) PICK(2 ) 

' RANGEM  ( 2 , L ) RANGEM(2,L),  ' X , X, 

r MM(L)  MM(L) 


MM(L-l)  MM(L-l), 

■ , RANGE1  “ “ 


RETURN 

END 


SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  3FEB88 
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c 

c 

c 

c 

c 

c 

c 


VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

The  random  variates  are  generated  using  the  "Direct  Method" 
Abramowitz . M.,  and  Stegun,  I.  A.,  editors,  Handbook  of 

Mathematical  Functions,  National  Bureau  of  Standards { Applied 
Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 


1970  with  corrections. 


§2; 


953. 


SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 

C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  ■ 3.1415926536) 

INTEGER  TOUT 


C 

C 

C FRAC 
C I OUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM( 0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0,1) 

UNIFORM  RANDOM  NUMBER  U(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0, 1) 

NORMAL  RANDOM  NUMBER  ON  N(0, 1) 


IF  ( ( I OUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15)) 

& WRITE (8,*)  'RAND  «’ , RAND,  ' MU  , MU,  ' SIGMA 


SIGMA 


CALL  RANDOM  (FRAC,  RAND) 
Ul  - FRAC 


CALL  RANDOM  (FRAC,  RAND) 
U2  - FRAC 


Zl 

Z2 


SQRT 

SQRT 


* ALOG 

* ALOG 


(u1)] 

★ COS( 

(UlJi 

* SIN  ( 

2. 

2. 


* PI  * U2) 

* PI  * U2 ) 


X = SIGMA  * Zl  + MU 
IF  ((IOUT  .EQ.  10)  .OR.  (IOUT 
& WRITE ( 8 , * ) 'Zl  »',  Zl,  ' Z2 


.EQ. 


Z2, 


X 


X 


RETURN 

END 


C************************************************************************ 


SUBROUTINE  TRNSFM  PERFORMS  THE  CALCULATIONS  NECESSARY  TO  TRANSFORM 
THE  S/N  DATA  INTO  THE  VARIABLE  Z = Ln(X) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  7JUN88  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4 , V4.1,  V4.2,  V4.3,  V4.4,  V4.5 
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SUBROUTINE  TFNSFM  (NPTS,  STR,  NT,  NUMREG,  MM,  NBND,  NP,  ZZ) 

C INPUTS:  NPTS,  STR,  NF,  NUMREG,  MM,  NBND 

C OUTPUTS:  NP,  ZZ 

C IMPLICIT  NONE 

INTEGER  MAXDAT,  MAXREG 

PARAMETER  (MAXDAT  - 50,  MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I,  I OUT,  K,  L,  LL,  NP,  NPTS(MAXREG) , NUMREG 

REAL  MM( 0 : MAXREG) , MML,  NBND ( 0 : MAXREG ) , NP ( MAXDAT , MAXREG), 

& STR (MAXDAT,  MAXREG),  ZZ (MAXDAT) 


C 

C 

C 


I 

I OUT 
K 
L 
LL 

MAXDAT 
MAXREG 
MM(  ) 
MML 
NBND( ) 


NF(  ) 


NP 

NPTS() 

NUMREG 
STR(  ) 


ZZ() 


LIST  OF  VARIABLES 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  EACH  REGION 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
CONTROLS  INNER  DO  LOOP  FOR  EACH  REGION 

MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1— D ARRAY  CONTAINING  SAMPLED  VALUES  OF  M FOR  EACH  REGION 
EQUAL  TO  MM(L)  FOR  A SET  OF  CALCULATIONS 

1—  D ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 
REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RAWNF( ) (CYCLES  TO  FAILURE)  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET  BROKEN  INTO  REGIONS 

TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N  DATA  SET 

1- D  ARRAY  CONTAINING  THE  NUMBER  OF  POINTS  PER  REGION  FOR  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 

NUMBER  OF  REGIONS  OF  INTEREST 

2- D  ARRAY  CONTAINING  RATSTRM  FOR  THE  SPECIFIC  MATERIAL 
S-N  DATA  SET  BROKEN  INTO  REGIONS  (PSI  OR  «) 

1-D  ARRAY  CONTAINING  TRANSFORMED  S/N  DATA, 

Z - F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 
NP  ■ 0 

DO  50  I - 1.  MAXDAT 

zzm  - o.o 

50  CONTINUE 


C BEGIN  CALCULATIONS 


DO  100  L = 1,  NUMREG 
MML  = MM(L) 

IF  ( I OUT  .EQ.  10)  WRITE ( 8 , * ) 'L  =' , L,  ' MM  *' , MM(L) , ' MML  «' , 
& MML,  ' NPTS  =',  NPTS (L) 


DO  200  K * 1,  NPTS(L) 

NP  * NP  + 1 

ZZ (NP)  * ALOG(STR(K,L) ) + ALOG(NF(K,L) ) * (1.0  / MML) 

IF  ( IOUT  .EQ.  10)  WRITERS, *) 'K  K,  ' NP  , NP,  ' NF  - ' , 

t NF(K,L),  ' STR»',  STR(K,L) , ' ZZ  ZZ(NP) 


& 

& 

& 

300 


DO  300  LL 
ZZ (NP) 


2,  L 
ZZ  ~ 

* 


ZZ (NP ) + ALOG(  NBND ( LL- 1 ) ) 

* <(1.0  / MM(LL-l))  - (1.0  / MH(LL) ) ) 
.EQ.  10)  WRITE ( 8 , * ) 'LL  «'  LL,  ' NBNDJ 


IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'LL  LL,  ' NBNDJ LL-1 ) 

NBND(LL-l),  ' MM(LL-l)  , MM(LL-l) , f MM(LL) 


MM(LL)  ( 
CONTINUE 


ZZ  =' 


ZZ (NP) 


t 
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200  CONTINUE 
100  CONTINUE 

RETURN 

END 

************************************************************* ****** 


subroutine  SKNVAR  calculates  the  Sample  MeaN  and  VARiance  OF 
Z * F(STR.  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  24AUG87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V5.3,  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2, 

V8.3,  V8.4,  V8.5 

MATGRM  V3.3,  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  SMNVAR  (NP,  ZZ,  MEANZ,  SZ2) 

INPUTS:  NP,  ZZ 

OUTPUTS:  MEANZ,  SZ2 

IMPLICIT  NONE 

INTEGER  MAXDAT 

PARAMETER  (MAXDAT  = 50) 

COMMON  I OUT 

INTEGER  I,  I OUT,  NP 

REAL  MEANZ,  SZ2,  ZZ (MAXDAT) 


LIST  OF  VARIABLES 

I CONTROLS  DO  LOOP  FOR  EACH  DATA  POINT  IN  A DATA  SET 

IOUT  OUTPUT  DUMP  CONTROLLER 

MAXDAT  MAXIMUM  NUMBER  OF  S/N  DATA  POINTS  (PER  REGION)  ALLOWED 
MEANZ  SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z * F(STR,  NF,  NBND,  MM) 

NP  TOTAL  NUMBER  OF  POINTS  IN  THE  SPECIFIC  MATERIAL  S/N 

DATA  SET 

SZ2  SAMPLE  VARIANCE  OF  TRANSFORMED  DATA,  Z - F(STR,  NF,  NBND,  MM) 

ZZ ( ) 1— D ARRAY  CONTAINING  THE  TRANSFORMED  S/N  DATA, 

Z - F(STR,NF,NBND,MM) 


C INITIALIZE  VARIABLES 

MEANZ  = 0.0 
SZ2  =0.0 

C CALCULATE  THE  MEAN  OF  ZZ ( ) , MEANZ 

DO  100  1=1,  NP 

MEANZ  ■ MEANZ  -I-  ZZ(I) 

IF  (IOUT  .EQ.  10)  WRxTE ( 8 , * ) ' NP  =',  NP,  ' I =' , I, 
& ' ZZ  =',  ZZ(I),  ' MEANZ  =',  MEANZ 

100  CONTINUE 

MEANZ  = MEANZ  / FLOAT  (NP) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) ' MEANZ  =',  MEANZ 
C CALCULATE  THE  VARIANCE  OF  ZZ ( ) , SZ2 


DO  200  I - 1,  NP 

SZ2  = SZ2  + (ZZ(I)  - MEANZ)  **  2 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'I  , I,  ' SZ2 


SZ2 
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200  CONTINUE 

SZ2  » SZ2  / FLOAT (NP  - 1) 

IF  ( IOUT  .EQ.  10)  WRITE ( o , * ) 9 SZ2  , SZ2 

RETURN 

END 


c************* ************************************************** ********* 


SUBROUTINE  KB ETA  CALCULATES  k AND  BETAO  FROM  THE  SAMPLE  MEAN  AND 
VARIANCE  OF  Z - F(STR,  NF,  NBND,  MM) 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  60CT87  COMMENTS:  13JUL89 

VERSION:  MATCHR  V6,  V6.1,  V6.2,  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3, 

V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  KBETA  (MEANZ,  SZ2,  K,  BZERO) 

INPUTS:  MEANZ,  SZ2 

OUTPUTS:  K,  BZERO 

IMPLICIT  NONE 

REAL  PI 

PARAMETER  (PI  - 3.1415926536) 

COMMON  IOUT 
INTEGER  IOUT 

REAL  BZERO,  K,  MEANZ,  SZ,  SZ2 


LIST  OF  VARIABLES 


BZERO 

IOUT 

K 

MEANZ 

PI 

SZ 

SZ2 


VALUE  OF  WE I BULL  PARAMETER,  BETAO,  CHARACTERIZING  THE 
SPECIFIC  MATERIAL  S/N  DATA  SET 
OUTPUT  DUMP  CONTROLLER 

VALUE  OF  k — PARAMETER  CHARACTERIZING  SPECIFIC  MATERIAL 
DATA  BASE 

SAMPLE  MEAN  OF  TRANSFORMED  DATA,  Z ■ F(STR,  NF,  NBND,  MM) 
SELF  EXPLANATORY  CONSTANT 
SZ2  **0.5 

SAMPLE  VARIANCE  OF  THE  TRANSFORMED  DATA, 

Z - F(STR,  NF,  NBND,  MM) 


C PERFORM  CALCULATIONS 


SZ  - SZ2  **  0.5 

BZERO  ■ PI  / (SZ  * (6.0  **  0.5)) 
K - MEANZ 


C DATA  DUMP  STATEMENTS 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
ENDIF 


10)  THEN 

'SZ2  SZ2 , ' SZ  SZ 

'MEANZ  MEANZ,  ' K ■ ',  K, 


BZERO 


BZERO 


RETURN 

END 
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SUBROUTINE  FINDK  CALCULATES  THE  VALUE  OF  K,  WHERE  A - K **  M FOR 
EACH  REGION 
PROGRAMMER:  L.  NEWLIN 

VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDK  (BZERO,  K,  MM,  NBND,  NUMREG,  BIGK) 

INPUTS:  BZERO,  K,  MM,  NBND,  NUMREG 

OUTPUTS : BIGK 

IMPLICIT  NONE 

INTEGER  MAXREG 

REAL  GAMMA 

PARAMETER  (GAMMA  = 0.57721566490,  MAXREG  “ 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  BIGK ( 0 : MAXREG ) , BZERO,  K,  MM( 0: MAXREG) , NBND ( 0 : MAXREG ) 

LIST  OF  VARIABLES 

BIGKO  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 
FOR  EACH  REGION 

BZERO  VALUE  OF  WEIBULL  PARAMETER,  BETAO,  CHARACTERIZING  SPECIFIC 
MATERIAL  DATA  BASE 
GAMMA  EULER'S  CONSTANT 

IOUT  OUTPUT  DUMP  CONTROLLER  

K VALUE  OF  k — PARAMETER  CHARACTERIZING  THE  SPECIFIC  MATERIAL 

DATA  BASE 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM< ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBNDM  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 


INITIALIZE  VARIABLES 

DO  50  L - 0,  MAXREG 
BIGK(L)  = 0.0 
50  CONTINUE 

CALCULATE  K FOR  REGION  ONE 

BIGK(l)  = ( ALOG (2.0)  **  (1.0  / BZERO))  * EXP(K  + GAMMA  / BZERO) 
WRITE(7,*)  ' REGION : 1,  K =',  BIGK(l) 

IF  (IOUT  .EQ.  10)  WRITE ( 8 ,*)' BZERO  BZERO,  ' k K, 

& > GAMMA  GAMMA,  ' BIGK(l)  =',  BIGK(l) 

CALCULATE  K FOR  REMAINING  REGIONS 

DO  100  L - 2,  NUMREG 

BIGK(L)  ” BIGK(L-l)  * NBND(L-l) 

4 **  ((1.0  / MM(L) ) - (1.0  / MM(L-1) ) ) 

WRITE (7,*)  'REGION  L.  ' K =',  BIGK(L) 

IF  (IOUT  .EQ.  10)  WRITE(8,*)'L  =’,  L,  ' NBNDfL-1 ) . 

& NBND(L-l),  ' MM(L)  =5 , MM(L) , ' MM(L-l)  =',  MM(L-l), 

& ' BIGK(L)  BIGK(L) 

100  CONTINUE 
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RETURN 

END 


SUBROUTINE  FINDSB  CALCULATES  THE  REGION  'TIE-POINTS'  — THE  STRESS 
VALUES  WHICH  CORRESPOND  TO  THE  "LIFE  BOUNDARIES"  ACCORDING  TO  THE 
RANDOMLY  SELECTED  Ms.  AND  THE  Ks  CALCULATED  FROM  THE  BETA  AND  k 
CHARACTERIZING  SPECIFIC  MATERIAL 
PROGRAMMER:  L.  NEWLIN 

DATE:  22DEC88 

VERSION:  MATCHR  V8.2,  V8.3,  V8.4,  V8.5 
MATGRM  V4.2,  V4.3,  V4.4,  V4.5 

SUBROUTINE  FINDSB  (NUMREG,  ZROREG,  NBND,  BIGK,  MM,  SBND) 

INPUTS:  NUMREG,  ZROREG,  NBND,  BIGK,  MM 

OUTPUTS : SBND 

IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG,  ZROREG 

REAL  BIGK(0:MAXREG) , MM(0 : MAXREG) , NBND ( 0 : MAXREG) , 

& SBND(0:MAXREG) 


LIST  OF  VARIABLES 

BIGK( ) 1— D ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A « K **  M 

FOR  EACH  REGION 

I OUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1— D ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBNDO  1— D ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 

NUMREG  NUMBER  OF  REGIONS  OF  INTEREST 

SBND()  1-D  ARRAY  CONTAINING  STRESS  VALUES  (PSI,  R - -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY”  VALUES  FOR  EACH 
REGION  CONTAINED  IN  NBND() 

ZROREG  ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


C INITIALIZE  SBND( ) 

DO  50  L = 0,  MAXREG 
SBND(L)  - 0.0 
50  CONTINUE 

C CALCULATE  SBND(0)  IF  ZROREG  ~ 0 

IF  (ZROREG  .EQ.  0)  THEN 

SBND ( 0 ) - BIGK(l)  * NBND ( 0 ) **  (-1.0  / MM(1)) 

END  IF 

C CALCULATE  THE  NON-ZERO  REGION  STRESS  BOUNDARIES 

DO  100  L - 1,  NUMREG 

IF  (NBND(L)  .GE.  1.0E+36)  THEN 
SBND(L)  « 0.0 
ELSE 

SBND(L)  - BIGK(L)  * NBND(L)  **  (-1.0  / MM(L) ) 
END  IF 
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100  CONTINUE 

RETURN 

END 


C******** ******** ******** ****** ********************************** ******** 


C SUBROUTINE  ADJSTM  CONTROLS  THE  CALCULATIONS  NECESSARY  TO  CONSTRAIN 
C Me  TO  BE  GREATER  THAN  THE  SELECTED  Mp  BY  ADJUSTING  THE  POSTERIOR 
C RANGE  ON  Me 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  7JUN88 

C VERSION:  MATCHR  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

C 

C copyright  (C)  1990,  California  Institute  of  Technology, 
c U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 


SUBROUTINE  ADJSTM  (MP,  RANGME,  MEBND) 

C INPUTS:  MP,  RANGME 

C OUTPUTS:  MEBND 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L 

REAL  MEBND ( 2 , MAXREG),  MP ( 0 : MAXREG) , RANGME(2,  MAXREG) 

LIST  OF  VARIABLES 


I OUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  POINT  IN  A REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MEBND ( ) 2-D  ARRAY  CONTAINING  ALLOWABLE  RANGE  ON  Me,  FOR  ELASTIC 

COMPONENTS,  AFTER  SELECTION  OF  Mp 

MP ( ) 1— D ARRAY  CONTAINING  SELECTED  VALUE  OF  Mp  FOR  PLASTIC  COMPONENTS 

RANGME ()  2-D  ARRAY  CONTAINING  VALUES  OF  THE  POSTERIOR  RANGE  ON  Me 
FOR  ELASTIC  COMPONENTS  — RANGME (1,1)  IS  THE  LOWER 
BOUND  AND  RANGME (2,1)  IS  THE  UPPER  BOUND 


DO  50  L - 1,  MAXREG 
MEBND( 1,L)  * 0.0 
MEBND ( 2, L)  = 0.0 
50  CONTINUE 

MEBND (1,1)  - MAX(MP ( 1 ) , RANGME (1,1)) 
MEBND (2,1)  = RANGME (2,1) 

RETURN 

END 


c** ******** ****************************************** ******** ************ 


C THIS  SUBROUTINE  GENERATES  WEIBULL( BETA, ETA)  RANDOM  VARIATES  WITH 
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MEDIAN  OF  DISTRIBUTION  CONSTRAINED  TO  BE  ONE  USING  THE  "INVERSE 


TRANSFORM  METHOD" 

PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  18MAR87 

VERSION:  MATCHR  V4,  V5,  V5.1 

V7,  V7.1,  V8 
MATGRM  V2 , V3,  V3.1 
V4.3,  V4.4, 


COMMENTS:  15SEP89 

, V5.2,  V5.3,  V6,  V6.1,  V6.2, 

, V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
, V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.5 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7— 918 
is  acknowledged. 


SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

INPUTS:  BETA,  RAND 

OUTPUTS : WEIB 

SUBPROGRAMS : RANDOM 

IMPLICIT  NONE 

COMMON  IOUT 

INTEGER  IOUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


LIST  OF  VARIABLES 

ARG  INTERMEDIATE  CALCULATION  VARIABLE 

BETA  WEIBULL  DISTRIBUTION  SHAPE  PARAMETER 

ETA  WEIBULL  DISTRIBUTION  LOCATION  PARAMETER 

FRAC  UNIFORM  (0,1)  RANDOM  VARIATE 

IOUT  OUTPUT  DUMP  CONTROLLER 

RAND  RANDOM  NUMBER  SEED 

WEIB  WEIBULL (BETA, ETA)  GENERATED  RANDOM  VARIATE 


CALCULATE  CONSTRAINED  ETA 

ETA  = 1.0  / (ALOG(2 .0)  **  (1.0  / BETA)) 

GENERATE  WEIBULL  RANDOM  VARIATE 

CALL  RANDOM (FRAC,  RAND) 

ARG  - — ALOG (1.0  - FRAC) 

WEIB  * ETA  * ARG** (1.0 /BETA) 

IF  (IOUT  .EQ.  10)  WRITE (8,*) 'BETA  - ',  BETA,  ' ETA-',  ETA, 
fc  ' FRAC  FRAC,  ' ARG  =',  ARG,  ' WEIB  =' , WEIB 

RETURN 

END 


*★******★★★★**★★*******★★******★★*★★****★**★****★★***★****************** 


SUBROUTINE  KOMO  CALCULATES  Ko  AND  Mo  FOR  THE  ZERO  REGION  (NO  DATA 
REGION  TO  THE  LEFT)  . IT  ACCOUNTS  FOR  TYING  UP  THE  TENSILE  POINT 
AT  SZERO,  AND  SCALING  DOWN  THE  CURVE  IF  IT  WENT  ABOVE  SZERO. 
PROGRAMMER  : L.  NEWLIN 

DATE : 1AUG9 1 

VERSION:  MATCHR  V8 .5  MATGRM  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 
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SUBROUTINE  KOMO  (SZERO,  BIGK,  MM,  NBND,  TRSBND,  TRBIGK, 

& FACTR,  NUMREG) 

C INPUTS:  SZERO,  BIGK,  MM,  NBND,  TRSBND,  FACTR 

C OUTPUTS:  TRBIGK,  MM,  TRSBND 

C IMPLICIT  NONE 

INTEGER  MAXREG 

PARAMETER  (MAXREG  - 3) 

COMMON  I OUT 

INTEGER  I OUT,  L,  NUMREG 

REAL  BIGK ( 0 :MAXREG) , FACTR,  MMj 0 : MAXREG) , NBND( 0: MAXREG) , 

1 SCLK,  SZERO,  TRBIGK(0:MAXREG),  TRSBND(0: MAXREG) 


LIST  OF  VARIABLES 

BIGKO  1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M FOR 
EACH  REGION 

FACTR  SCALE  FACTOR  * PHI  * KRATIO  * Z 
I OUT  OUTPUT  DUMP  CONTROLLER 

L CONTROLS  DO  LOOP  FOR  EACH  REGION 

MAXREG  MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

MM( ) 1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 

NBNDO  1-D  ARRAY  CONTAINING  UPPER  BOUNDS  (CYCLES)  FOR  THE  NUMREG 

REGIONS  OF  INTEREST 
NUMREG  NUMBER  OF  REGIONS 

SCLK  ADJUSTMENT  FACTOR  FOR  BIGK  IF  TRSBND(O)  > SZERO 
SZERO  STRESS  TENSILE  TEST  POINT,  So 

TRBIGK ()  1-D  ARRAY  CONTAINING  VALUES  OF  K,  ADJUSTED  TO  KEEP 
SBND(O)  < SO  FOR  EACH  TRIAL 

TRSBND ( ) 1-D  ARRAY  CONTAINING  STRESS  VALUES  CORRESPONDING  TO  THE 

LIFE  BOUNDARY  VALUES  FOR  EACH  REGION  CONTAINED  IN  NBND( ) 
ADJUSTED  BY  VARIATION  PARAMETERS  FOR  EACH  TRIAL 


BIGK(O)  - SZERO 


100 


C 


IF  (TRSBND(O)  -GT.  SZERO)  THEN 
SCLK  - SZERO/TRSBND ( 0 ) 

DO  100  L * 0,  NUMREG 

TRBIGK(L)  - BIGK(L)  * SCLK 
TRSBND (L)  ■ TRSBND (L)  * SCLK 
CONTINUE 


ELSE 

TRBIGK(O)  “ SZERO /FACTR 

MM( 0 ) - MM( 1 ) * ( (ALOG  (BIGK(l) ) - ALOG  (TRSBND 
& + ALOG  (FACTR))  / (ALOG  (SZERO)  - ALOG 

END  IF 


IF  ( I OUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'SZERO  = ',  SZERO,  ' BIGKO  = TRBIGK ( 0) 

WRITE ( 8 , * ) 'FACTOR  = ',  FACTR,  ' BIGKl  = ',  TRBIGK ( 1 ) 
WRITE ( 8 , * ) ' MMl  = ',  MM( 1 ) , ' MMO  = ',  MM(0) 

ENDIF 


RETURN 

END 


C************************************************************************ 


C FUNCTION  GTLIFE  CALCULATES  THE  CYCLES  TO  FAILURE  FOR  A PARTICULAR  STRESS 
C BASED  UPON  THE  MATERIALS  CHARACTERIZATION  S/N  EQUATION 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  10FEB89 
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C VERSION:  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

Q 

C copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Gove  mine  nt  sponsorship  under  NASA  Contract  NAS 7— 918 
C is  acknowledged . 


REAL  FUNCTION  GTLIFE  (S,  MM,  BIGK,  PHI,  KRATIO,  LNZ,  SBND, 

& ZROREG,  NUMREG,  SZERO) 

C INPUTS:  S,  MM,  BIGK,  PHI,  KRATIO,  LNZ,  SBND,  ZROREG,  NUMREG,  SZERO 

C OUTPUTS : GTLIFE 

C IMPLICIT  NONE 

INTEGER  I OUT,  L,  MAXREG,  NUMREG,  ZROREG 
PARAMETER  (MAXREG  ■ 3) 

COMMON  IOUT 

REAL  BIGK ( 0 : MAXREG) , GETLIF,  KRATIO,  LNZ,  MM< 0: MAXREG) , PHI, 

& S,  SBND ( 0 : MAXREG ) , SZERO,  TEMP 


LIST  OF  VARIABLES 


BIGK( ) 

GETLIF 

IOUT 

KRATIO 

L 

LNZ 

MAXREG 

NUMREG 

PHI 

S 

SBND ( ) 


SZERO 

temp 

ZROREG 


1-D  ARRAY  CONTAINING  VALUES  OF  K,  WHERE  A = K **  M 
FOR  EACH  REGION 

VALUE  TO  BE  ASSIGNED  TO  GTLIFE  — CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRESS  LEVEL 
OUTPUT  DUMP  CONTROLLER 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
NORMAL ( 0, PVAR)  GENERATED  RANDOM  VARIATE 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 

1-D  ARRAY  CONTAINING  SELECTED  VALUES  OF  M FOR  EACH  REGION 
NUMBER  OF  REGIONS  OF  INTEREST 

WEIBULL ( BET AO , ETAO)  GENERATED  RANDOM  VARIATE 
VALUE  OF  STRESS  (PSI)  FOR  WHICH  A VALUE  OF  LIFE  (CYCLES  TO 
FAILURE)  IS  REQUIRED 

1-D  ARRAY  CONTAINING  THE  STRESS  VALUES  (PSI,  R - -1.0) 

CORRESPONDING  TO  THE  "LIFE  BOUNDARY"  VALUES  FOR  EACH  REGION 
CONTAINED  IN  NBNDQ 
STRESS  TENSILE  TEST  POINT,  So 

TEMPORARY  VARIABLE  USED  TO  PREVENT  ARITHMETIC  UNDER  AND  OVER 
FLOWS 

ZeRO  REGion  — VALUES  CHOSEN  TO  FACILITATE  REGION  DO  LOOP 
BEGINNING  VALUE  — 0 - ZERO  REGION  EXISTS,  1 - NO  REGION 


GETLIF  * 0.0 

C CALCULATE  CYCLES  TO  FAILURE 

IF  ((S  .GE.  SZERO)  .AND.  (ZROREG  .EQ.  0))  THEN 
GETLIF  =1.0 
ELSE 

DO  100  L = ZROREG,  NUMREG 
IF  (S  .GT.  SBND(L) ) THEN 

TEMP  - MM(L)  * (ALOG(BIGK(L) ) - ALOG(S)  + ALOG(PHI) 
t + ALOG  (KRATIO)  + LNZ) 

IF  (TEMP  .GT.  86.0)  THEN 
TEMP  =86.0 
END  IF 

GETLIF  = EXP  (TEMP) 

GOTO  150 
ENDIF 
100  CONTINUE 
ENDIF 

150  CONTINUE 

GTLIFE  = GETLIF 
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RETURN 

END 


*********************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  GTLIF2  CALCULATES  THE  CYCLES  TO  FAILURE  FOR  A PARTICULAR 
VALUE  OF  TOTAL  STRAIN  BASED  UPON  THE  MATERIALS  CHARACTERIZATION 
COMPONENT  STRAIN  S/N  EQUATION.  THE  SOLUTION  IS  FOUND  USING  A 
NEWTON’S  METHOD  ITERATION  SUBROUTINE  AND  THE  LIFE  CORRESPONDING 
TO  THE  ELASTIC  STRAIN  IS  USED  AS  THE  INITIAL  LIFE  VALUE,  No. 

PROGRAMMERS  L.  NEWLIN  

DATE:  CODE:  15FEB89  COMMENTS:  13JUL89 

VERSION:  MATCHR  V8.3,  V8.4,  V8.5  MATGRM  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  Sponsorship  under  NASA  contract  NAS7-918 
is  acknowledged. 


REAL  FUNCTION  GTLIF2  (STR,  KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z) 

INPUTS:  STR,  KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z 

OUTPUTS : GTLIF2 

SUBPROGRAMS:  NEWTON,  TRMNAT 


IMPLICIT 

NONE 

COMMON 

IOUT 

INTEGER 

IEND 

REAL 

DERF 

& 

PHI, 

IER, 

EPS, 

STR, 


IOUT 

F,  GETLIF, 
Z 


KE, 


KP, 


KRATIO, 


ME,  MP,  NZERO, 


LIST  OF  VARIABLES 


DERF 

EPS 

F 

GETLIF 

IEND 

IER 


IOUT 

KE 

KP 

KRATIO 

ME 

MP 

NZERO 

PHI 

STR 

Z 


RESULTANT  VALUE  OF  DERIVATIVE  AT  ROOT 

INPUT  VALUE  WHICH  SPECIFIES  THE  UPPER  BOUND  OF  THE  ERROR  OF 
THE  RESULT 

RESULTANT  FUNCTION  VALUE  AT  ROOT 

VALUE  TO  BE  ASSIGNED  TO  GTLIF2  — CYCLES  TO  FAILURE  FOR 
THE  REQUIRED  STRAIN  LEVEL 
MAXIMUM  NUMBER  OF  ITERATION  STEPS  SPECIFIED 
RESULTANT  ERROR  PARAMETER,  CODED  — 0 - NO  ERROR;  1 - NO 
CONVERGENCE  AFTER  IEND  ITERATION  STEPS;  2 - AT  ANY 
ITERATION  STEP  DERIVATIVE  DERF  WAS  EQUAL  TO  ZERO 


OUTPUT  DUMP  CONTROLLER  „ 

S/N  CURVE  LOCATION  PARAMETER,  Ke,  FOR  THE  ELASTIC  STRAIN 

S/N  CURVE  

S/N  CURVE  LOCATION  PARAMETER,  Kp,  FOR  THE  PLASTIC  STRAIN 
S/N  CURVE 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
S/N  CURVE  SHAPE  PARAMETER,  Me,  FOR  THE  ELASTIC  STRAIN 
S/N  CURVE 

S/N  CURVE  SHAPE  PARAMETER,  Mp,  FOR  THE  PLASTIC  STRAIN 
S/N  CURVE 

EQUAL  TO  THE  LIFE  FROM  THE  ELASTIC  PORTION  OF  THE  CURVE 

USED  AS  THE  INITIAL  VALUE  IN  THE  NEWTON'S  METHOD  ITERATION 
WEIBUIL  ( BETAO , ETAO)  GENERATED  RANDOM  VARIABLE 
VALUE  OF  TOTAL  STRAIN  (%)  FOR  WHICH  CYCLES  TO  FAILURE 
IS  DESIRED 

LOG-NORMAL ( 0 , PVAR ) RANDOM  VARIATE 


EPS  - 1.0E-6 
IEND  - 1000 

C CALCULATE  INITAL  VALUE  OF  LIFE  FOR  NEWTON 
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NZERO  - (KE  * PHI  * KRATIO  * Z / STR)  **  HE 

C LET  NEWTON  ITERATE  TO  FIND  A SOLUTION 

CALL  NEWTON  (GETLIF,  Ff  DERF,  NZERO,  EPS,  IEND,  IER,  STR, 

& KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z) 

C NOW  CHECK  IER  FOR  ANY  PROBLEMS  AND  ASSIGN  GTLIF2  ACCORDINGLY 

IF  (IER  .EQ.  0)  THEN 
GTLIF2  * GETLIF 

IF  ( I OUT  .EQ.  10)  WRITE  ( 8,  * ) 'GETLIF  ■' , GETLIF 
ELSEIF  ( IER  .EQ.  1)  THEN 

WRITE ( 8 , * ) ' NO  CONVERGENCE  AFTER  SPECIFIED  NO.  ITERATION  STEPS' 
CALL  TRMNAT 

ELSEIF  (IER  .EQ.  2)  THEN 

WRITE ( 8, * ) 'DERIVATIVE  EQUAL  TO  ZERO' 

CALL  TRMNAT 
ELSE 

WRITE (8,*)  'ERROR  CODE  INCORRECTLY  SPECIFIED' 

CALL  TRMNAT 
ENDIF 


RETURN 

END 


C***  **★**★★**★★★*★*★★*★★★★★★★*■**★★**  ************************  ************ 


C SUBROUTINE  FCT  IS  USED  BY  SUBROUTINE  NEWTON  TO  CALCULATE  THE  VALUE 
C OF  THE  FUNCTION  AND  ITS  DERIVATIVE  AT  THE  VALUE  'LIFE',  IN  ORDER  TO 
C FIND  THE  SOLUTION  OF  THE  COMPONENT  STRAIN  S/N  CURVE 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  21JUN88  COMMENTS:  13JUL89 

C VERSION:  MATCHR  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

C MATGRM  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


C INPUTS:  LIFE,  STR,  KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z 

C OUTPUTS:  F,  DERF 

C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I OUT 

REAL  DERF,  F,  INVME,  INVMP,  KE,  KEPROD,  KP,  KPPROD,  KRATIO, 

& LIFE,  ME,  MP,  PHI,  STR,  Z 


C 

c 

C DERF 
C F 
C INVME 
C IMVMP 
C I OUT 
C KE 
C 

C KEPROD 
C KP 
C 

C KPPROD 
C KRATIO 
C LIFE 
C ME 
C 

C MP 
C 


LIST  OF  VARIABLES 

RESULTANT  VALUE  OF  DERIVATIVE  AT  ROOT 
RESULTANT  FUNCTION  VALUE  AT  ROOT 
EQUAL  TO  1/Me  ( iNVerse  of  Me) 

EQUAL  TO  1/Mp  (INVerse  of  Mp) 

OUTPUT  DUMP  CONTROLLER 

S/N  CURVE  LOCATION  PARAMETER,  Ke,  FOR  THE  ELASTIC  STRAIN 
S/N  CURVE 

EQUAL  TO  KE  * PHI  * KRATIO  * Z 

S/N  CURVE  LOCATION  PARAMETER,  Kp,  FOR  THE  PLASTIC  STRAIN 
S/N  CURVE 

EQUAL  TO  KP  * PHI  * KRATIO  * Z 

RATIO  OF  K*/K,  CONSTANT  OVER  REGIONS  AND  COMPONENTS 
VALUE  OF  N (CYCLES  TO  FAILURE) 

S/N  CURVE  LOCATION  PARAMETER,  Me,  FOR  THE  ELASTIC  STRAIN 
S/N  CURVE 

S/N  CURVE  LOCATION  PARAMETER,  Mp,  FOR  THE  PLASTIC  STRAIN 
S/N  CURVE 
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C PHI 
C STR 

c 

c z 


WE I BULL ( BETAO  r ETAO)  GENERATED  RANDOM  VARIABLE 
VALUE  OF  TOTAL  STRAIN  (%)  FOR  WHICH  CYCLES  TO  FAILURE 
DESIRED 

LOG-NORMAL ( 0 , PVAR ) RANDOM  VARIATE 


IS 


INVMP  - 1.0  / MP 

INVME  - 1.0  / ME 

KPPROD  » KP  * PHI  * KRATIO  * Z 

KEPROD  “ KE  * PHI  * KRATIO  * Z 

F ■ KPPROD  * LIFE  **  (- INVMP)  + KEPROD  * LITE  **  (- INVME)  - STR 

DERF  ■ - (KPPROD  * INVMP  * LIFE  **  (-  1.0  - INVMP) 
i + KEPROD  * INVME  * LIFE  **  (-  1.0  - INVME)) 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE  ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
END  IF 


RETURN 

END 


5)  THEN 

'INVMP  ■ ',  INVMP,  ' INVME  - ' , 
'KPPROD  * KPPROD,  ' KEPROD  * 
'F  ■ ',  F,  ' DERF  = ',  DERF 
'LIFE  - ' , LIFE 


INVME 
',  KEPROD 


C*********************************************************************** 


THE  FOLLOWING  SUBROUTINE  IS  A MODIFIED  VERSION  OF  SUBROUTINE  RTNI 
TAKEN  FROM  "MATHEMATICS  — ROOTS  OF  NONLINEAR  EQUATIONS"  (SEE  P.  220) 

PURPOSE 

TO  SOLVE  GENERAL  NONLINEAR  EQUATIONS  OF  THE  FORM  F(X)  ” 0 BY  MEANS 
OF  NEWTON'S  ITERATION  METHOD. 

USAGE 

CALL  NEWTON  (X,  F,  DERF,  XST,  EPS,  I END,  IER) 

DESCRIPTION  OF  PARAMETERS 

X RESULTANT  ROOT  OF  EQUATION  F(X)  - 0. 

F RESULTANT  FUNCTION  VALUE  AT  ROOT  X. 

DERF  RESULTANT  VALUE  OF  DERIVATIVE  AT  ROOT  X. 

FCT  NAME  OF  THE  EXTERNAL  SUBROUTINE  USED.  IT  COMPUTES  TO  GIVEN 
ARGUMENT  X FUNCTION  VALUE  F AND  DERIVATIVE  DERF.  ITS 
PARAMETER  LIST  MUST  BE  X,  F,  DERF. 

XST  INPUT  VALUE  WHICH  SPECIFIES  THE  INITIAL  GUESS  OF  THE  ROOT  X. 

EPS  INPUT  VALUE  WHICH  SPECIFIES  THE  UPPER  BOUND  OF  THE  ERROR  OF 

RESULT  X. 

IEND  MAXIMUM  NUMBER  OF  ITERATION  STEPS  SPECIFIED 
IER  RESULTANT  ERROR  PARAMETER  CODED  AS  FOLLOWS 
IER  =0  — NO  ERROR  

IER  “ 1 — NO  CONVERGENCE  AFTER  IEND  ITERATION  STEPS 
IER  -2  — AT  ANY  ITERATION  STEP  DERIVATIVE  DERF  WAS 
EQUAL  TO  ZERO 


THE  PROCEDURE  IS  BYPASSED  AND  GIVES  THE  ERROR  MESSAGE  IER  ■ 2 IF  AT 
ANY  ITERATION  STEP  DERIVATIVE  OF  F(X)  IS  EQUAL  TO  0.  POSSIBLY  THE 
PROCEDURE  WOULD  BE  SUCCESSFUL  IF  IT  IS  STARTED  ONCE  MORE  WITH 
ANOTHER  INITIAL  GUESS  XST. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

THE  EXTERNAL  SUBROUTINE  FCT(X,  F,  DERF)  MUST  BE  FURNISHED  BY  THE  USER 


C 

C 

C 


SOLUTION  OF  EQUATION  F(X)  ■ 0 IS  DONE  BY  MEANS  OF  NEWTON'S  ITERATION 
METHOD,  WHICH  STARTS  AT  THE  INITIAL  GUESS  XST  OF  A ROOT  X.  CONVERG- 
ENCE IS  QUADRATIC  IF  THE  DERIVATIVE  OF  F(X)  AT  ROOT  X IS  NOT  EQUAL 
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C TO  ZERO*  ONE  ITERATION  STEP  REQUIRES  ONE  EVALUATION  OF  F(X)  AND  ONE 
C EVALUATION  OF  THE  DERIVATIVE  OF  F(X)  . FOR  TEST  ON  SATISFACTORY 
C ACCURACY  SEE  FORMULEA  (2)  OF  MATHEMATICAL  DESCRIPTION. 

C REFERENCE.  SEE  R.  ZURMUEHL.  PRAKTISCHE  MATHEMATIK  FUER  INGEN  I EURE 
C UND  PHYSIKER,  SPRINGER,  BERLIN /GOETTINGEN /HEIDELBERG,  1963,  PP.  12-17 
C 

C DATE:  22APR87;  REV.  7JUN88 


SUBROUTINE  NEWTON  (X,  F,  DERF,  XST,  EPS,  I END,  IER,  STR, 
& KP,  KE,  MP,  ME,  PHI,.  KRATIO,  Z) 


C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I,  I END,  IER,  I OUT 

REAL  A,  DERF,  DX,  EPS,  F,  TOL,  TOLF,  X,  XST, 

& STR,  KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z 


C PREPARE  ITERATION 


IER  - 0 
X - XST 
TOL  * X 

IF  ( I OUT  .EQ.  5)  WRITE ( 8,  * ) 'XST  -',XST, ' X X, ' TOL  «',TOL 
CALL  FCT  (TOL,  F,  DERF,  STR,  KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z) 

TOLF  « lOO.  * EPS 
IF  (IOUT  .EQ.  5) 

f>  WRITE  (8,*)  'TOL  *',TOL,  ' F »'  ,F,  ' DERF  **'  , DERF,  ' TOLF  «•'  , TOLF 
C START  ITERATION  LOOP 


DO  6 I - 1.  I END 
IF  (F)  1,  7,  1 

C EQUATION  IS  NOT  SATISFIED  BY  X 

1  IF  (DERF)  2,  8,  2 


C ITERATION  IS  POSSIBLE 

2  DX  - F / DERF 
X « X - DX 
TOL  * X 

IF  (IOUT  .EQ.  5^ 

& WRITE ( 8 , * ) 'I  =',  I,  ' DX  «',  DX,  ' X X,  ' TOL  *',  TOL 

CALL  FCT  (TOL,  F,  DERF,  STR,  KP,  KE,  MP,  ME,  PHI,  KRATIO,  Z) 


TEST  ON  SATISFACTORY  ACCURACY 
TOL  - EPS 
A * ABS(X) 

IF  (A  - 1.)  4,  4,  3 

3 TOL  * TOL  * A 

4 IF  (ABS (DX)  - TOL)  5,  5,  6 

5 IF  (ABS (F)  - TOLF)  7,7,6 

6 CONTINUE 


C END  OF  ITERATION  LOOP 


C NO  CONVERGENCE  AFTER  I END  ITERATION  STEPS.  ERROR  RETURN 

IER  - 1 

7 RETURN 

C ERROR  RETURN  IN  CASE  OF  ZERO  DIVISOR 

8 IER  - 2 
RETURN 

END 
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c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  ' SORTM'  SORTS  THE  ARRAY , ALLM( ) , FROM  LOWEST  TO  HIGHEST 
M FOR  EACH  REGION 
PROGRAMMER : L . NEWLIN 

DATE:  10FEB88 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 

Copyright  (C)  1990,  California  Institute  of  Technology • 

U.S.  Government  Sponsorship  under  NASA  Contract  NAS 7 -9 18 
is  acknowledged. 


SUBROUTINE  SORTM  (ALLM,  NUMREG,  NUM) 

C INPUTS:  ALLM,  NUMREG,  NUM 

C OUTPUTS : ALLM 

C IMPLICIT  NONE 


COMMON  I OUT 

INTEGER  I,  INC,  I OUT,  L,  MAXMM,  MAXREG,  NUM,  NUMREG 
PARAMETER  (MAXMM  « 20001,  MAXREG  * 3) 

LOGICAL  INORDR 


REAL  ALLM  (MAXMM,  MAXREG),  TEMP 


C 

C 

C ALLM(  ) 
Cl 
INC 

INORDR 
I OUT 
L 

MAXMM 
MAXREG 
NUM 
NUMREG 
TEMP 


LIST  OF  VARIABLES 

2-D  ARRAY  CONTAINING  VALUES  TO  BE  SORTED  FOR  EACH  REGION 
CONTROLS  INSERTION  POINTER 
SORT  INCREMENT  VARIABLE 

FLAG  TO  INDICATE  WHETHER  SORT  IS  FINISHED 
OUTPUT  DUMP  CONTROLLER 
CONTROLS  DO  LOOP  FOR  EACH  REGION 
MAXIMUM  NUMBER  OF  M'S  TO  BE  SORTED 
MAXIMUM  NUMBER  OF  REGIONS  ALLOWED 
NUMBER  OF  ELEMENTS  IN  ALLM( ) TO  BE  SORTED 
NUMBER  OF  REGIONS  OF  INTEREST 
TEMPORARY  SORTING  VARIABLE 


DO  400  L - 1,  NUMREG 

5 INC  = NUM 
10  IF  (INC  .GT.  1)  THEN 
INC  - INC  / 2 
20  INORDR  = .TRUE. 

DO  300  I = 1,  (NUM  - INC) 

IF  (ALLM(I,L)  .GT.  Ali^l(I  + INC,  L))  THEN 
TEMP  = ALLM(I,L) 

ALLM( I.L)  = ALLM (I  + INC,  L) 

ALLM(I  + INC,  L)  = TEMP 
INORDR  ■=  .FALSE. 

ENDIF 

300  CONTINUE 

IF  (.NOT.  INORDR)  GOTO  20 
GOTO  10 
ENDIF 

400  CONTINUE 


RETURN 

END 
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Section  7.4 

Prior  Distribution  Parameter  Estimation  Program 


The  program  tree  structure,  list  of  subprograms,  description  of  the  key  variables, 
and  the  FORTRAN  source  listing  for  the  prior  failure  distribution  parameter  estimation 
codes  BFIT  and  ABTFIT,  and  the  assurance  calculation  code  LZERO  are  given  here. 
The  pertinent  methodology  is  given  in  Section  2.1.1.  The  overall  descriptions  of  the 
programs  and  the  flowcharts  are  given  in  Section  4.2.  The  user’s  guide  for  running 
BFIT,  ABTFIT,  and  LZERO  is  given  in  Section  6.4. 

7.4.1  BFIT  Program 

7.4.1 .1  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-10.  The  section  number 
where  each  subprogram  is  described  is  given  next  to  the  name.  The  program, 
subprogram,  and  file  names  are  indicated  by  UPPERCASE  letters. 


Table  7-10  List  of  Subprograms  for  Program  BFIT 


NAME 

SECTION 

FUNCTION 

BFIT 

4.2.2 

The  main  routine  that  controls  the  logical  flow  of  the  prior  failure 
distribution  parameter/?  estimation  calculations. 

LLS 

4.2.2. 1 

Solves  a linear  least  squares  problem. 

7.4.1 .2  Description  of  Variables 

A list  of  variables  used  in  the  prior  failure  distribution  parameter  p estimation  code, 
BFIT,  is  given  in  Table  7-11.  The  variable  names  are  indicated  by  BOLD  UPPERCASE 
letters;  the  variable  “type”  can  be  interpreted  as  follows:  INT  is  a standard  integer 
variable,  and  DRE  is  a double  precision  variable.  The  various  array  dimensions  are 
defined  by  using  the  MAXM  parameter. 


Table  7-1 1 List  of  Variables  for  Program  BFIT 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

B 

DRE 

Slope  parameter  calculated  by  LLS,  estimate  of  /?. 

DIFFX(MAXM) 

DRE 

1 -D  array  containing  values  of  the  difference  be- 
tween X(l)  and  MEANX  for  each  point  used  in  the 

linear  regression. 
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Table  7-1 1 List  of  Variables  for  Program  BFIT  (Cont’d) 


VARIABLE  NAME 

TYPE 

DIFFY(MAXM) 

DRE 

END 

INT 

FOFN 

DRE 

1 

INT 

IOUT 

INT 

UFE(MAXM) 

DRE 

LNC 

DRE 

M 

INT 

MAXM 

INT 

MEANX 

DRE 

MEANY 

DRE 

START 

INT 

SX2 

DRE 

SXY 

DRE 

X(MAXM) 

DRE 

Y(MAXM) 

DRE 

DESCRIPTION 

1 -D  array  containing  values  of  the  difference 
between  Y(l)  and  MEANY  for  each  point  used 
in  the  linear  regression. 

Ending  index  position  for  regression  performed  by 
LLS. 

F(Nj)  in  Equation  2-8. 

Controls  DO  loop. 

Output  dump  controller. 

1-D  array  containing  values  of  Nj,  Equation  2-8, 
generated  by  the  PFM. 

Intercept  parameter  calculated  by  LLS. 

Length  of  F,  the  number  of  (F(A//).  Nj)  pairs 
provided  by  the  PFM. 

Maximum  value  for  M. 

The  sample  mean  of  X. 

The  sample  mean  of  Y. 

Starting  index  position  for  regression  performed  by 
LLS. 

The  sample  variance  of  X. 

The  sample  covariance  of  X and  Y. 

1 -D  array  containing  values  of  In  Nj  corresponding 
to  the  Nj' s in  the  array  UFE( ). 

1 -D  array  containing  values  of  Yf  Equation  2-8, 
corresponding  to  the  A//s  in  the  array  UFE( ) . 


7.4.1. 3 Program  BFIT  Listing 


c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  BFIT  CONTROLS  THE  LINEAR  LEAST  SQUARES  CALCULATIONS 
REQUIRED  TO  ESTIMATE  THE  PRIOR  DISTRIBUTION  SHAPE  PARAMETER 
PROGRAMMERS  L.  NEWLIN 

DATE:  CODE:  20AUG90  COMMENTS:  20SEP91 
VERSION:  1.1 


Copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
is  acknowledged. 


PROGRAM  BFIT 

C DECLARATION  OF  VARIABLES 
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no  oonn 


INTEGER  DUM,  END,  I,  I OUT,  M,  MAXH,  START 
PARAMETER  (MAXM  - 200) 

DOUBLE  PRECISION  B,  FOFN,  LIFE (MAXM) , LNC,  Y (MAXM) 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


B 

DUM 

END 

FOFN 

I 

IOUT 
LIFE( ) 
LNC 
M 

MAXM 

START 

Y<) 


LIST  OF  VARIABLES 
Shape  parameter. 

Dummy  variable  used  during  data  entry. 

Ending  position  for  regression  loops. 

Controls  DO  loop. 

Output  dump  controller. 

1— D array  containing  values  of  N generated  by  the  PFM. 
Intercept  parameter. 

The  number  of  (F(N),  N)  pairs  provided  by  the  PFM. 

Maximum  value  for  M. 

Starting  position  for  regression  loops 

1-D  array  containing  values  of  Y corresponding  to  the  N's 
in  the  array  LIFE ( ) . 


C INITIALIZE  VARIABLES  AND  READ  INPUT  PARAMETERS 

OPEN  (11,  FILE  * ' BFITD' , STATUS  - 'OLD') 

OPEN  ( 8 , FILE  « ' IOUTPR ' , STATUS  * 'NEW') 

OPEN  (12,  FILE  * 'LOWLIF',  STATUS  = 'OLD') 

OPEN  (13,  FILE  * ' BFITO' , STATUS  * 'NEW') 

READ(11,*)  IOUT,  START,  END,  M 
DO  100  I = 1,  M 

READ( 12 , * ) DUM,  FOFN,  LIFE(I) 

Y ( I ) = DLOG  ( - DLOG  (1.D0  - FOFN)) 

100  CONTINUE 

C PERFORM  LINEAR  LEAST  SQUARES  TO  FIND  SHAPE  PARAMETER  B 

CALL  LLS  (LIFE,  Y,  START,  END,  B,  LNC,  IOUT) 

C PRINT  RESULTS 

WRITE( 13 ,900 ) B 

900  FORMAT  ( 2 X, ' Copyright  (C)  1990,  California  Institute  of  ', 

& ' Technology . U . S . Government ' , / , 2X , ' Sponsorship  under  ' , 

& 'NASA  Contract  NAS7-918  is  acknowledged.',////, 

& 2X, 'The  solution  is  ' , /,5X, 'Beta:  r,Dl2.7) 


STOP 

END 

c* *★★*★★★***★★★★**★*★★★★*★★*★★★***★★★★★**★★★*★★**★★*★*** **★★*★*★★****★ 

SUBROUTINE  LLS  PERFORMS  A Linear  Least  Squares  FIT 
PROGRAMMER:  L.  NEWLIN 

DATE:  17AUG90 

VERSION:  BFIT  VI,  VI. 1 

SUBROUTINE  LLS  (LIFE,  Y,  START,  END,  B,  LNC,  IOUT) 

INPUTS:  LIFE,  Y,  START,  END,  IOUT 

OUTPUTS:  B,  LNC 

C IMPLICIT  NONE 

INTEGER  MAXM 

PARAMETER  (MAXM  - 200) 

INTEGER  END,  I,  IOUT,  START 

DOUBLE  PRECISION  B,  DIFFX(MAXM) , DIFFY(MAXM) , LIFE(MAXM), 

& LNC,  MEANX,  MEANY,  SX2,  SXY,  X(MAXM),  Y(MAXM) 
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LIST  OF  VARIABLES 


C 

c 

C B 

C DIFFXO 
C 

C DIFFY ( ) 
C 

C END 
C I 
C I OUT 
C LIFE ( ) 
C 

C LNC 
C MAXM 
C MEANX 
C MEANY 
C START 
C SX2 
C SXY 

§ $ii 


1-D^arra^  containing  the  difference  between  X and  MEANX  for 

l-^array  containing  the  difference  between  Y and  MEANY  for 
each  LIFE.  , 

Ending  position  for  regression  loops, 
controls  DO  loops. 

Output  dump  contrpller.  . . . . .. 

1-D  array  containing  values  of  the  lives  generated  by  the  PFM 
(already  sorted). 

Intercept  parameter . . , . , , . _ 

Maximum  number  of  fatigue  lives  allowed  for  regression. 

Sample  mean  of  X. 

sample  mean  of  Y.  , 

starting  ppsition  for  regression  loops, 
sample  variance  of  x. 

Sample  covariance  of  X and  Y. 

X = In  (Life) 

Y = In  (-In  (1  - F(Life) ) ) 


C INITIALIZE  VARIABLES 

MEANX  - 0 .DO 
MEANY  = 0 . DO 
SX2  - 0 .DO 
SXY  = 0 .DO 
DO  50  I = 1,  MAXM 
X(I)  = 0 .DO 
DIFFX(I)  » 0 .DO 
DIFFY ( I ) - 0 .DO 
50  CONTINUE 

C BEGIN  CALCULATIONS  — FIRST  CALCULATE  THE  SAMPLE  MEANS 

DO  100  I - START,  END 

X(I)  = DLOG  (LIFE ( I ) ) 

MEANX  = MEANX  + X(I) 

MEANY  - MEANY  + Y(I) 

IF  ( I OUT  .EQ.  10)  THEN  

WRITE 
WRITE 
WRITE 
ENDIF 

100  CONTINUE 

MEANX  = MEANX  / DFLOAT ( END  - (START  - 1)) 

MEANY  ” MEANY  / DFLOAT ( END  - (START  - 1)) 

WRITE  ( 8 , * ) 'MEANX  * ',  MEANX,  ' MEANY  *='  , MEANY 

C CALCULATE  THE  SAMPLE  VARIANCE  AND  COVARIANCE 

DO  150  I = START,  END 

DIFFX(I)  = X(I)  - MEANX 
DIFFY ( I ) = Y(lj  - MEANY 
SX2  = SX2  + DIFFX(I)  **  2 
SXY  = SXY  + DIFFX(I)  * DIFFY(I) 

IF  ( IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) ' DIFFX  = ',  DIFFX(I),  ' DIFFY  = ',  DIFFY ( I ) 

WRITE ( 8 , * ) ' SX2  = ',  SX2,  ' SXY  = ' , SXY 
ENDIF 

150  CONTINUE 


i pi 
(8,*) 


’ I * ' , I , ' LIFE  » 

'X  « ',  X(I),  ' Y > 
'MEANX  = ',  MEANX, 


, LIFE ( 1 ) 

V(I) 

MEANY  = 


MEANY 
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SX2  - SX2  / DFIiOAT ( END  - START) 

SXY  - SXY  / DFLOAT ( END  - START) 

WRITE ( 8, *)  ' SX2  = SX2,  ' SXY  = ' , SXY 

C CALCULATE  REGRESSION  PARAMETERS 

B « SXY  / SX2 

LNC  - MEANY  - B * MEANX 

WRITE ( 8 , * ) 'B  - B,  ' LNC  * LNC 

RETURN 

END 


7.4.2  ABTFIT  Program 
7.4.2. 1 Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  ABTFIT  is  given  in  Figure  7-11.  The  program, 
subprogram,  and  file  names  are  indicated  by  UPPERCASE  letters.  Subprogram 
DUNLSJ  is  described  in  “User’s  Manual,”  IMSL  Math/Library  FORTRAN  Subroutines 
for  Mathematical  Applications  MALB-USM-UNBND-EN8901 -1.1,  Version  1.1,  Volume 
3,  IMSL  Inc.,  January  1989,  pp.  841-846. 

I ABTFIT  i 

I 1 DUNLSJ  | 


AST  | 

JABT  | 

Figure  7-1 1 Tree  Structure  For  Program  ABTFIT 

7.4.2.2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-12.  The  section  number 
where  each  subprogram  is  described  is  given  next  to  the  name. 


Table  7-12  Ust  of  Subprograms  for  Program  ABTFIT 


NAME 

SECTION 

FUNCTION 

ABT 

4.2.3.1 

Evaluates  the  function  which  defines  the  least  squares  problem. 

ABTFIT 

4.2.3 

The  main  routine  that  controls  the  logical  flow  of  the  prior  failure 
distribution  parameter  estimation  calculations. 

DUNLSJ 

N/A 

An  IMSL  routine  that  solves  a nonlinear  least  squares  problem  by 
using  a modified  Levenberg-Marquardt  algorithm. 

JABT 

4.2.3.2 

Evaluates  the  Jacobian  at  a point  X. 
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7. 4.2.3  Description  of  Variables 

A list  of  variables  used  in  the  prior  failure  distribution  parameter  estimation  code, 
ABTFIT,  is  given  in  Table  7-13.  The  variable  names  are  indicated  by  BOLD  UPPER- 
CASE letters;  the  variable  “type”  can  be  interpreted  as  follows:  INT  is  a standard 
integer  variable,  and  DRE  is  a double  precision  variable.  The  various  array  dimen- 
sions are  defined  by  using  the  following  parameters:  MAXJAC,  MAXM,  N,  and  N2. 


Table  7-13  List  of  Variables  for  Program  ABTFIT 

VARIABLE  NAME  TYPE  DESCRIPTION 

ABT  DRE  Evaluates  the  function  given  by  Equation  2-10 

which  defines  the  least  squares  problem. 

ARGA,  ARGB  DRE  Intermediate  calculation  variables. 


B 

DRE 

END 

INT 

F(M) 

DRE 

FJAC  (MAXJAC,  N) 

DRE 

FOFN 

DRE 

FSCALE(MAXM) 

DRE 

FVEC(MAXM) 

DRE 

1 

INT 

IOUT 

INT 

IPARAM(6) 

INT 

J 

INT 

JABT 

DRE 

LDFJAC 

INT 

LIFE  (MAXM) 

DRE 

UFEM(MAXM) 

DRE 

LSCALE 

DRE 

Slope  parameter,  b. 

Ending  index  position  for  regression. 

Vector  of  length  M containing  the  function  values  at 
X. 

The  M by  N matrix  containing  the  calculated 
Jacobian  at  the  approximate  solution. 

F(Nj)  in  Equation  2-10. 

Vector  of  length  M containing  the  diagonal  scaling 
matrix  for  the  functions. 

Vector  of  length  M containing  the  residuals  at  the 
approximate  solution. 

Controls  DO  loop. 

Output  dump  controller. 

Parameter  vector  of  length  6,  required  by  DUNLSJ. 

Array  index  variable. 

Evaluates  the  Jacobian  at  a point  X. 

Leading  dimension  of  FJAC. 

1 -D  array  containing  values  of  Nj  Equation  2-10, 
generated  by  the  PFM  and  scaled  by  LSCALE. 

1-D  array  containing  all  values  of  N,  Equation  2-10, 
generated  by  the  PFM. 

Used  to  scale  Nj  values  to  control  instability  in  8 
estimation. 
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Table  7-13  List  of  Variables  for  Program  ABTFIT  (Cont'd) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

M 

INT 

Length  of  F,  the  number  of  (F( Nj),  Nj)  pairs  to  be 
used. 

MAXJAC 

INT 

Maximum  value  for  LDFJAC. 

MAXM 

INT 

Maximum  value  for  M. 

MTOT 

INT 

The  total  number  of  (F(Nj),  Nj)  pairs  prcMded  by  the 
PFM. 

N 

INT 

Length  of  X,  two  for  this  application. 

N2 

INT 

Dummy  parameter  replacing  N in  routines  ABT  and 
JABT. 

RPARAM(7) 

DRE 

Parameter  vector  of  length  7,  required  by  DUNLSJ. 

START 

INT 

Starting  index  position  for  regression. 

X(N) 

DRE 

Vector  of  length  N containing  the  approximate 
solution.  X(1)  is  6,  and  X(2)  Is  a. 

XGUESS(N) 

DRE 

Vector  of  length  N containing  the  Initial  guess. 

XSCALE(N) 

DRE 

Vector  of  length  N containing  the  diagonal  scaling 
matrix  for  the  variables. 

Y(MAXM) 

DRE 

1-D  array  containing  values  of  Yj,  Equation  2-10, 
corresponding  to  the  Nfs  in  the  array  UFE( ). 

7 .4.2.4  Program  ABTFIT  Listing 

C PROGRAM  ABTFIT  CONTROLS  THE  NONLINEAR  LEAST  SQUARES  CALCULATIONS 
C REQUIRED  TO  ESTIMATE  THE  PRIOR  DISTRIBUTION  PARAMETERS  THETA  & ALPHA 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  24AUG90  COMMENTS: 2 0SEP91 

C VERSION:  4.2 

c 

C Copyright  (C)  1990,  California  institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged. 

PROGRAM  ABTFIT 

C DECLARATION  OF  VARIABLES 

COMMON  Y,  LIFE,  I OUT,  XGUESS,  B 

INTEGER  DUM,  END,  I,  IPARAM(6),  IOUT,  J,  LDFJAC,  M,  MAXJAC, 
& MAXM,  MTOT,  N,  START 

PARAMETER  (MAXJAC  - 200,  MAXM  = 200,  N * 2) 

DOUBLE  PRECISION  ABT,  B,  F JAC ( MAXJAC , N) , FOFN(MAXM) , 

& FSCALE(MAXM) , FVEC(MAXM),  JABT,  LIFE (MAXM) , 

& LIFEM(MAXM),  LSCALE,  RPARAM( 7 ) , X(N),  XGUESS(N), 

i XSCALE(N),  Y (MAXM) 
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EXTERNAL  ABT,  JABT,  DUNLSJ 


C 

C 

C ABT 
C 

C B 
C DUM 
C END 
C F JAC ( ) 

C 

C FOFNM 
C FSCALEO 
C 

C FVEC ( ) 

C 

C I 
C I OUT 
C IPARAH( ) 
C J 
C JABT 
C LDFJAC 
LIFE ( ) 

LIFEM() 

L SCALE 
M 

MAXJAC 
MAXM 
MTOT 

N 

RPARAM(  ) 
START 
X<) 

XGUESS ( ) 
XSCALE ( ) 

Y() 


LIST  OF  VARIABLES 

Evaluates  the  function  which  defines  the  nonlinear  least 
squares  problem. 

Shape  parameter. 

Dummy  variable  used  during  data  entry. 

Ending  position  for  regression  loops 

The  H by  N matrix  containing  the  calculated  Jacobian  at  the 
approximate  solution. 

1-D  array  containing  values  of  F(Ni).  _ 

Vector  of  length  M containing  the  diagonal  scaling  matrix  for 
the  functions . . . , . , _ ^ ^ 

vector  of  length  M containing  the  residuals  at  the  approximate 
solution. 

Controls  DO  loop. 

output  dump  controller.  . , , 

Parameter  vector  of  length  6,  required  by  DUNLSJ. 

Array  index  variable. 

Evaluates  the  Jacobian  at  a point  X. 

Leading  dimension  of  FJAC.  _ . . . 

1-D  array  containing  values  of  the  life.  Ni,  generated  by  the 
PFM  to  be  used  by  the  nonlinear  least  squares  algorithm. 

1-D  array  containing  all  MTOT  values  of  the  life,  Ni,  generated 
by  the  PFM. 

LIFE ( ) scaling  parameter  to  enable  convergence.  ^ 

Length  of  F,  the  number  of  (F(Ni) , Ni)  pairs  provided  by  the 
PFM  to  be  used  by  the  nonlinear  least  squares  algorithm. 
Maximum  value  for  LDFJAC. 

Maximum  value  for  M and  MTOT. 

Length  of  FOFNM  & LIFEM( ) , the  number  of  (F(Ni),  Ni)  pairs 
provided  by  the  PFM. 

Length  of  X,  two  for  this  application. 

Parameter  vector  of  length  7,  required  by  DUNLSJ. 

Starting  position  for  regression  loops 

Vector  of  length  N containing  the  approximate  solution.  X(l) 
is  theta.  X(2)  is  alpha. 

Vector  of  length  N containing  the  initial  guess, 
vector  of  length  N containing  the  diagonal  scaling  matrix  for 
the  variables.  , 

1-D  array  containing  values  of  Y corresponding  to  the  Ni's  in 
the  array  LIFE ( ) . 


C INITIALIZE  VARIABLES  AND  READ  INPUT  PARAMETERS 

DATA  FSCALE  / MAXM*1.0D0  / 

IPARAM(l)  * 0 

OPEN  (11,  FILE  = 'P ARAMS' , STATUS  * 'OLD') 

READ ( ilf  * ) I OUT,  START,  END,  MTOT 
READ ( 11, * ) XGUESS ( 1 ) , XGUESS(2),  B 
READ ( 11. * ) XSCALE ( 1 ) , XSCALE (2 ) , LSCALE 
CLOSE  (11) 

M * END  - START  + 1 
LDFJAC  = M 

IF  ( IOUT  .EQ.  10)  OPEN  (8,  FILE  = 'IOUTPR',  STATUS  * 'NEW') 

IF  (IOUT  .EQ.  20)  THEN 

OPEN  (8,  FILE  * 'IOUTPR',  STATUS  = 'NEW') 

WRITE  (8,*)  ' THETA  ALPHA' 

ENDIF 

OPEN  (12,  FILE  = 'LOWLIF',  STATUS  = 'OLD') 

DO  100  I - 1,  MTOT 

READ(12,*)  DUM,  FOFN(I),  LIFEM(I) 

100  CONTINUE 
CLOSE  (12) 

DO  200  I = 1,  M 

J = I + START  - 1 
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LIFE ( I ) ® LIFEM(J)  * LSCALE 
Y(I)  * - DLOG  (1.D0  - FOFN(J)) 

200  CONTINUE 

C PERFORM  NONLINEAR  LEAST  SQUARES  TO  FIND  THETA  AND  ALPHA 

CALL  DUNLSJ  (ABT,  JABT,  M,  N,  XGUESS,  XSCALE,  FSCALE , 

& IP ARAM,  RPARAM,  X,  FVEC,  FJAC,  LDFJAC) 


C PRINT  RESULTS 


OPEN  (13,  FILE 
WRITE (13,900)  X 
& i: 

CLOSE  (13) 


' ABTOUT' 


STATUS 


'NEW' ) 


;(2),  B.  ( X ( 1 ) *LSCALE** ( — B)  ) , 
PARAM(3),  IPARAM(4),  iparAm(5) 


OPEN  (14,  FILE  « ' BAYESD ' , STATUS  = 'NEW') 
WRITE ( 14 , * ) B,  (X(1)*LSCALE**(-B)),  X(2) 
CLOSE  (14) 


900  FORMAT 
& 

& 

& 

& 

& 

& 

& 

& 

& 


////,2X  'The  solution  is 
/,5X, 'Alpha:  ',  Dll. 6, 

/ , 5X, ' Beta:  ' , Dll. 6, 

/,5X, 'Theta:  ',  Dll. 6. 

//,2X, 'The  number  of  iterations  is  ',10X,I3, 

/,2X, 'The  number  of  function  evaluations  is  ',13, 
/,2X, 'The  number  of  Jacobian  evaluations  is  ',13,/) 


STOP 

END 


C SUBROUTINE  ABT  EVALUATES  THE  FUNCTION  AT  THE  POINT  X 
C PROGRAMMER:  L.NEWLIN 

C DATE:  CODE:  23AUG90  COMMENTS:  20SEP91 

C VERSION:  ABTFIT  V4.1,  V4.2 

SUBROUTINE  ABT  (M,  N,  X,  F) 

COMMON  Y,  LIFE,  I OUT,  XGUESS,  B 

INTEGER  I,  I OUT,  M,  MAXM,  N,  N2 

PARAMETER  (MAXM  = 200,  N2  * 2) 

DOUBLE  PRECISION  B,  F(M) , LIFE (MAXM) , X(N) , XGUESS(N2),  Y(MAXM) 


C 

C 

C B 
C F ( ) 

C I 
C I OUT 
C LIFE(  ) 

C 

C M 
C 

C MAXM 
C N 
C N2 
C X<) 

C 

C XGUESS () 
C Y ( ) 

C 


LIST  OF  VARIABLES 

Shape  parameter. 

Vector  of  length  M containing  the  function  values  at  X. 

Controls  DO  loop. 

Output  dump  controller. 

1— D array  containing  values  of  the  life,  Ni,  generated  by 
the  PFM. 

Length  of  F,  the  number  of  (F(Ni) , Ni)  pairs  provided  by 
the  PFM. 

Maximum  value  for  M. 

Length  of  X,  two  for  this  application. 

Dummy  parameter  replacing  N in  routines  ABT  and  JABT. 

Vector  of  length  N containing  the  approximate  solution. 
X(l)  is  theta.  X(2)  is  alpha. 

Vector  of  length  N containing  the  initial  guess. 

1-D  array  containing  values  of  Y corresponding  to  the  Ni's 
in  the  array  LIFE ( ) . 


IF  ( IOUT  .EQ.  20)  WRITE( 8, 175 ) X(l),  X(2) 
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noon 


DO  100  I - 1,  M 

F( I ) * Y ( I ) - X ( 2 ) * DLOG  ( 1 .DO  + (LIFE(I)  **  B)  / X(l)) 
IF  (IOUT  .EQ.  10) 

WRITE ( 8, 150)  I,  F(I),  X<1),  X(  2 ) , LIFE(I),  Y(I) 


100  CONTINUE 


150  FORMAT 
175  FORMAT 


(I5,1X,D10.3,1X,D10.3.1X,D10.3,1X,2D16.10) 
2X, 'F  ' ,Dl§.6, 1X,D13.6) 


RETURN 

END 


C********************************************************************* 


SUBROUTINE  JABT  EVALUATES  THE 
PROGRAMMER:  L.NEWLIN 

DATE : CODE : 2 3AUG9 0 

VERSION;  ABTFIT  V4.1,  V4.2 


JACOBIAN  OF  THE  FUNCTION  AT  THE  POINT  X 
COMMENTS:  20SEP91 


SUBROUTINE  JABT  (M,  N,  X,  FJAC,  LDFJAC) 


COMMON  Y,  LIFE,  IOUT,  XGUESS,  B 
INTEGER  I,  IOUT,  LDFJAC,  M,  MAXM,  N,  N2 
PARAMETER  (MAXM  = 200,  N2  = 2) 

DOUBLE  PRECISION  ARGA,  ARGB,  B,  FJAC( LDFJAC,  N), 
& LIFE (MAXM) , X(N),  XGUESS(N2),  Y(MAXM) 


C 

C 

C ARGA 
C ARGB 
C B 
C F ( ) 

C FJAC() 

C 

C I 
C IOUT 
C JABT 
C LDFJAC 
C 

C LIFE() 

C 

C M 
C 

C MAXM 
C N 
C N2 
C X (N ) 

C 

C XGUESS ( ) 
C Y ( ) 

C 


LIST  OF  VARIABLES 

Intermediate  calculation  variables. 

Intermediate  calculation  variables. 

Shape  parameter.  , _ . „ 

Vector  of  length  M containing  the  function  values  at  X. 

The  M by  N matrix  containing  the  calculated  Jacobian  at  the 
approximate  solution . 

Controls  DO  loop. 

Output  dump  controller. 

Evaluates  the  Jacobian  at  a point  X.  . _ . ..  , . 

Leading  dimension  of  FJAC  exactly  as  specified  in  the  dimension 
statement  of  the  calling  program.  , 

1— D array  containing  values  of  the  life,  Ni,  generated  by 
the  PFM.  . . , , 

Length  of  F,  the  number  of  (F(Ni),  Ni)  pairs  provided  by 
the  PFM. 

Maximum  value  for  M. 

Length  of  X,  two  for  this  applicatipn. 

Dummy  parameter  replacing  N m routines  ABT  and  JABT. 

Vector  of  length  N containing  the  approximate  solution. 

X(l)  is  theta.  X(2)  is .alpha.  . 

Vector  of  length  N containing  the  initial  guess . 

1-D  array  containing  values  of  Y corresponding  to  the  Ni's 
in  the  array  LIFE  ( ) . 


IF  (IOUT  .EQ.  20)  WRITE ( 8,175)  X(l),  X(2) 


DO  100  I « 1,  M 


ARGA 

ARGB 

FJAC 

FJAC 


= (LIFE(I)  **  B)  / X(l) 

= 1.D0  + ARGA 

(1.1)  « X(2)  * ARGA  / (X(l)  * ARGB) 

(1.2)  * - DLOG  (ARGB) 


IF  (IOUT  .EQ. 
WRITE ( 8 , * ) 
WRITE ( 8 , * ) 
WRITE(8,*) 
WRITE  ( 8 , ♦ ) 


10)  THEN 
'I  7 
' XI  * ' 


I 

i 


'ARGB 
' FJAC 1 = 


N = ',  LIFE(I) 

X2  = ' , X(2) 
ARC5A,  ARGB 

FJAC (1,1),  ' FJAC2  = 


Ml), 

KGA, 


FJAC (1,2) 
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END  IF 
100  CONTINUE 

175  FORMAT  (2X, 'J  ' ,D13 .6 , IX, D13 . 6 ) 

RETURN 

END 


7.4.3  LZERO  Program 
7.4.3.1  Program  Tree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  LZERO  is  given  in  Figure  7-12.  The  program, 
subprogram,  and  file  names  are  indicated  by  UPPERCASE  letters. 


LLZE. 

son 

-I  GAMMA  1 

i 

HuLGAM  1 

4MUELLR  1 

1 

pCT  J 

4 GAMMA  1 

1 

A DLGAM  | 

\ GAMMA" 

I DLGAM  1 


Figure  7-12  Tree  Structure  For  Program  LZERO 

7.4.3.2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-14.  The  section  number 
where  each  subprogram  is  described  is  given  next  to  the  name. 


Table  7-14  List  of  Subprograms  for  Program  LZERO 


NAME 

SECTION 

FUNCTION 

DLGAM 

4.2. 4.2 

Calculates  the  double  precision  value  of  ln[  r(x)]  for  a given  value 

of  X. 

FCT 

4.2.4.4 

Calculates  the  value  of  the  function  at  the  current  iteration  value  of 
X,  in  order  to  find  the  solution  for  the  desired  assurance  level. 

GAMMA 

4.2.4. 1 

Calculates  the  cumulative  distribution  function  for  a Gamma  variate. 

LZERO 

4.2.4 

The  main  routine  that  controls  the  logical  flow  of  the  assurance 
calculation. 
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Table  7-14  List  of  Subprograms  for  Program  LZERO  (Cont’d) 

NAME  SECTION  FUNCTION 

MUELLR  4.2.4.3  Solves  the  general  nonlinear  equation  of  the  f(x)  = 0 form  by 

means  of  Mueller’s  iteration  method. 

TRMNAT  4.2.4.5  Performs  premature  program  termination  when  required. 

7.4.3.3  Description  of  Variables 

A list  of  variables  used  in  the  assurance  calculation  code,  LZERO,  is  given  in  Table 
7-15.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the  variable 
“type"  can  be  interpreted  as  follows:  I NT  is  a standard  integer  variable,  and  DRE  is 
a double  precision  variable. 


Table  7-15  List  of  Variables  for  Program  LZERO 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

A 

DRE 

Desired  assurance  level  requested  by  the  user. 

ALPHA 

DRE 

Gamma  distribution  parameter  a in  Equation  2-1. 

BETA 

DRE 

Weibull  distribution  parameter  /?  in  Equation  2-1. 

DLGAM 

DRE 

Function  that  calculates  the  natural  logarithm  of  a 
Gamma  function. 

EPS 

DRE 

Value  of  the  maximum  error  allowed  in  the  result  of 
the  Mueller’s  iteration  method  calculations. 

F 

DRE 

Cumulative  distribution  function  in  Equation  2-5. 
When  A equals  A0,  F equals  the  desired  assurance 
level. 

FL 

DRE 

Cumulative  distribution  function  in  Equation  2-5. 
When  A equals  X,b,  FL  equals  the  assurance  level. 

FU 

DRE 

Cumulative  distribution  function  in  Equation  2-5. 
When  X equals  Xub,  FU  equals  the  assurance  level. 

IER 

INT 

Provides  information  on  the  type  of  error  occurring 
in  the  Mueller's  iteration  method  calculations.  A 
value  of  0 indicates  that  no  error  occurred;  a value 
of  1 indicates  no  convergence  after  NS  iteration 
steps;  and  a value  of  2 indicates  that  the  basic  as- 
sumption, that  the  bounds  provided  do  not  bound 
the  solution,  is  not  satisfied. 

IOUT 

INT 

Output  dump  controller. 

LAMBDA 

DRE 

The  random  variate  A in  Equation  2-1.  When  A 

equals  A0,  F equals  the  desired  assurance  level. 
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Table  7-15  List  of  Variables  for  Program  LZERO  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

LAML 

DRE 

The  lower  bound  of  A0  in  Equation  2-1.  When  A 
equals  Xlb,  FL  equals  the  assurance  level. 

LAMU 

DRE 

The  upper  bound  of  A0  in  Equation  2-1.  When  A 
equals  Xub,  FU  equals  the  assurance  level. 

NS 

INT 

Number  of  terms  of  the  infinite  series  used  to 
approximate  the  Gamma  cumulative  distribution 
function. 

PSI 

DRE 

Computational  precision  for  calculating  the  value 
of  a Gamma  cumulative  distribution. 

THETA 

DRE 

Gamma  distribution  parameter  8 in  Equation  2-1. 

7.4.3.4  Program  LZERO  Usting 

C PROGRAM  LZERO  CALCULATES  THE  PARAMETER  LAMBDA  FOR  A GIVEN  ASSURANCE 
C PROGRAMMER:  L.  NEWLIN 

C DATE:  24SEP91 

C VERSION:  V2 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C u.3.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
c is  acknowledged • 


PROGRAM  LZERO 

C SUBPROGRAMS:  GAMMA,  MUELLR,  TRMNAT 
C FILES:  1 : BAYESD-OLD , 2 : LDAT-OLD , 

C 3 : LOUT-NEW , 8 : IOUTPR-NEW 


C IMPLICIT  NONE 

COMMON  I OUT 

COMMON  / INFO  / A,  ALPHA,  THETA,  NS,  PSI 
INTEGER  IER,  I OUT,  NS 

DOUBLE  PRECISION  A,  ALPHA,  BETA,  EPS,  F,  FL,  FU,  LAMBDA,  LAML, 

& 


C 

C 

C A 

C ALPHA 
C BETA 
C EPS 
C F 
C FL 
C FU 
C IER 
C 
C 
C 
C 
C 
C 


LAMU,  PSI,  THETA 


LIST  OF  VARIABLES 

REQUESTED  ASSURANCE  LEVEL 
GAMMA  DISTRIBUTION  PARAMETER 
WE I BULL  DISTRIBUTION  PARAMETER 
COMPUTATIONAL  PRECISION  FOR  SUBPROGRAM  MUELLR 
CUMULATIVE  DISTRIBUTION  FUNCTION  AT  LAMBDA 
CUMULATIVE  DISTRIBUTION  FUNCTION  AT  LAML 
CUMULATIVE  DISTRIBUTION  FUNCTION  AT  LAMU 
RESULTANT  ERROR  PARAMETER  CODED  AS  FOLLOWS: 

IER  * 0 - NO  ERROR.  

IER  ■ 1 - NO  CONVERGENCE  AFTER  I END  ITERATION  STEPS 

FOLLOWED  BY  IEND  SUCCESSIVE  STEPS  OF 
BISECTION . 

IER  = 2 - BASIC  ASSUMPTION  FCT(XLI)  * FCT(XRI)  LESS 

THAN  OR  EQUAL  TO  ZERO  IS  NOT  SATISFIED. 
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I OUT 

LAMBDA 

LAML 

LAMU 

NS 

PSI 

THETA 


OUTPUT  DUMP  CONTROLLER 

THRESHOLD  LAMBDA  AT  WHICH  F( ) IS  CALCULATED 


LAMBDA  LOWER  BOUND 
LAMBDA  UPPER  BOUND 

NUMBER  OF  TERMS  OF  THE  INFINITE  SERIES  TO  CALCULATE  GAMMA 
COMPUTATIONAL  PRECISION  FOR  SUBPROGRAM  GAMMA 
WEIBULL  DISTRIBUTION  PARAMETER 


PSI  “ 1.0D-6 
EPS  » 1.0D-10 
NS  * 1000 


OPEN  (1,  FILE 
OPEN  (2,  FILE 
OPEN  (3,  FILE 


' BAYESD ' , STATUS  ■ 'OLD') 
'LDAT',  STATUS  ■ 'OLD') 
'LOUT',  STATUS  - 'NEW') 


READ(1,*) 

READ(2 , *2 

WRITE (3,9 


BETA,  THETA,  ALPHA 
I OUT,  A,  LAML,  LAMU 
00)  ALPHA,  THETA 


CLOSE ( 1) 

CLOSE ( 2 ) 

IF  ( IOUT  .EQ.  10)  OPEN  (8,  FILE  - 'IOUTPR',  STATUS  ■ 'NEW') 

CALL  GAMMA  (LAML,  ALPHA,  THETA,  NS,  PSI,  FL) 

CALL  GAMMA  (LAMU,  ALPHA,  THETA,  NS,  PSI,  FU) 

WRITE (3,910)  LAML,  FL,  LAMU,  FU 

IF  ((A  .LE.  FL)  .OR.  (A  .GE.  FU) ) CALL  TRMNAT 

CALL  MUELLR  (LAMBDA,  LAML,  LAMU,  EPS,  NS,  IER) 


IF  (IER  .EQ.  0)  THEN  

CALL  GAMMA  (LAMBDA,  ALPHA,  THETA,  NS,  PSI,  F) 
WRITE(3,920)  F.  LAMBDA 
ELSEIF  (IER  .EQ.  1)  THEN 

WRTTF!  (2  * ) 

& 'NO  CONVERGENCE  AFTER  SPECIFIED  NUMBER  OF  ITERATIONS' 

CALL  TRMNAT 

ELSEIF  (IER  .EQ.  2\  THEN 

WRITE (2,*)  'BASIC  ASSUMPTION  NOT  SATISFIED' 

CALL  TRMNAT 
ELSE 

WRITE (2 , * ) 'ERROR  INCORRECTLY  SPECIFIED' 

CALL  TRMNAT 
ENDIF 


900  FORMAT 
& 

& 

6 

& 

& 

& 


(2X, 'Copyright  (C)  1990,  California  Institute  of 
'Technology.  U.S.  Government', 

^NASA  ContracthNls7^918  is  acknowledged.', 
////,2X, 'The  Gamma  distribution  parameters  are' 
//,7x, 'Alpha  ' , D12 . 7 , 

/ , /X, 'Theta  ' ,D12 .7 ) 


910  FORMAT 
& 

& 

& 


(//,2X, 'Lambda  lower  bound 
5X, 'Assurance  ',F9.7, 
//#2Xf 'Lambda  upper  bound 
5X, 'Assurance  ' ,F9.7) 


' ,D12 .7, 
' ,D12 .7 , 


920  FORMAT 
& 


(//,2X, 'At  an  assurance  level  of  ',F9.7, 
/,4X, 'The  value  of  lambda  is  ',D12.7) 


t 


STOP 

END 


('**********************'*****»**************************************** 

C SUBROUTINE  GAMMA  CALCULATES  THE  CUMULATIVE  DISTRIBUTION  FUNCTION  FOR 

C A GAMMA  VARIATE 
C PROGRAMMERS  D.  EBBELER 
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DATE:  8DEC89 

VERSION:  LZERO  VI,  V2 

SUBROUTINE  GAMMA  (X,  ALPHA,  THETA,  NS,  PSI,  F) 
SUBPROGRAMS : DLGAM 

IMPLICIT  NONE 
COMMON  I OUT 

INTEGER  I,  I OUT,  NS 

DOUBLE  PRECISION  ALPHA,  DLGAM,  F,  FB,  PSI,  RI,  THETA,  X 


LIST  OF  VARIABLES 

ALPHA  WEIBULL  DISTRIBUTION  PARAMETER 

DLGAM  FUNCTION  THAT  CALCULATES  LOGARITHM  OF  GAMMA(XX) 

F CUMULATIVE  DISTRIBUTION  FUNCTION 

FB  INCREMENT  OF  F 

I COUNTER  FOR  SERIES  SUMMATION 

I OUT  OUTPUT  DUMP  CONTROLLER 

X THRESHOLD  AT  WHICH  F()  IS  CALCULATED 

NS  NUMBER  OF  TERMS  OF  THE  INFINITE  SERIES  TO  CALCULATE  GAMMA 

PSI  COMPUTATIONAL  PRECISION 

RI  REAL  VALUE  OF  I 

THETA  WEIBULL  DISTRIBUTION  PARAMETER 


IF  ( IOUT  .EQ.  10) 

& WRITE (8,*)  'ALPHA  = ' , ALPHA,  ' THETA  • ',  THETA 
I = -1 
F - 0 .DO 

SUM  THE  SERIES  FROM  I = 1,  NS 
11*1+1 

IF  (I  .GT.  NS)  GO  TO  3 
RI  * D FLOAT ( I ) 

FB  * DEXP  (-  DLGAM  (ALPHA  + 1.D0  + RI)  + (RI  + ALPHA) 
& * DLOG  (X  * THETA)  - X * THETA) 

IF  (IOUT  .EQ.  10)  WRITE( 8, * ) 'I  * ',  I,  ' FB  * ' , FB 

IF  (I  .EQ.  0)  GO  TO  2 

IF  (DABS  (FB  / F)  .LE.  PSI)  RETURN 

2 F = F + FB 

IF  (IOUT  .EQ.  10)  WRITE ( 8 , * ) 'F  * ',  F 
GO  TO  1 

3 F » 0.D0 
RETURN 
END 


******************************************************************* 


THE  FUNCTION  CALCULATES  THE  DOUBLE  PRECISION  NATURAL  LOGARITHM  OF 
THE  GAMMA  FUNCTION  OF  A GIVEN  DOUBLE  PRECISION  ARGUMENT. 

NOTE:  THIS  IS  A MODIFIED  VERSION  OF  THE  SUBROUTINE  OF  THE  SAME 

NAME  FOUND  IN  'Mathematics  — special  Functions',  IBM 
APPLICATION  PROGRAM,  SYSTEM/ 360  SCIENTIFIC  SUBROUTINE  PACKAGE, 
VERSION  ill,  PROGRAMMER'S  MANUAL,  Program  Number  360-CM-03X, 
Page  362 . 

METHOD:  THE  EULER- MCLAURIN  EXPANSION  TO  THE  SEVENTH  DERIVATIVE 

TERM  IS  USED,  AS  GIVEN  BY  M.  ABRAMOWITZ  AND  I. A.  STEGUN, 
'HANDBOOK  OF  MATHEMATICAL  FUNCTIONS',  U.S.  DEPARTMENT  OF 
COMMERCE,  NATIONAL  BUREAU  OF  STANDARDS  APPLIED  MATHEMATICS 
SERIES.  1966,  EQUATION  6.1.41. 


DOUBLE  PRECISION  FUNCTION  DLGAM(XX) 
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C SUBPROGRAMS : TRMNAT 


COMMON  I OUT  

DOUBLE  PRECISION  XX,  ZZ,  TERM,  RZZ , DLNG 
INTEGER  IER,  I OUT 


XX 

ZZ 

TERM 

RZZ 

DLNG 

IER 


THE  DOUBLE  PRECISION  ARGUMENT  FOR  THE  LOG  GAMMA  FUNCTION 
VARIABLE  ACTUALLY  USED  IN  THE  CALCULATION  INSTEAD  OF  XX 
USED  TO  CONVERT  TO  X <*  18 
1/ZZ**2 

HOLDS  VALUE  OF  DLGAM  DURING  CALCULATIONS 
ERROR  CONTROLLER : 

-1--XX  IS  WITHIN  10** (-9)  OF  BEING  ZERO  OR  XX 
IS  NEGATIVE.  DLNG  IS  SET  TO  -1.0D35 
0 — — jjo  ERROR  • 

+1  --  XX  IS  GREATER  THAN  10**30.  DLNG  IS  SET  TO  +1.0D35. 


IER  - 0 
ZZ  - XX 

IF  (XX-1.D10)  2,2,1 

1 IF  (XX-1.D30)  8,9,9 

C SEE  IF  XX  IS  NEAR  ZERO  OR  NEGATIVE 

2 IF  (XX-l.D-9)  3,3,4 

3 IER  - -1 
DLNG  - -1.D35 
GO  TO  10 

C XX  GREATER  THAN  ZERO  AND  LESS  THAN  OR  EQUAL  TO  l.D+10 

4 TERM  = 1 .DO 

5 IF  (ZZ-18.D0)  6,6,7 

6 TERM  - TERM*ZZ 

ZZ  - ZZ  + 1 .DO  ; . 

C IF  (IOUT  .EQ.  1)  WRITE (8,*) 'TERM  = ' , TERM, ' ZZ  »',ZZ 

GO  TO  5 

7 ^NG%1(ZZ-o!5DOj*DLOG(ZZ)-ZZ  +0.9189385332046727  -DLOG(TERM)+ 

1 ( 1Vd0/ZZ1* ( . 8333j33333^33333D-1  -{RZZ*( .277777777777777/D— 2 +(RZZ* 
2 (T7936507936507936D-3  -(RZZ*( .59523809§2380952D-3) ) ) >))> 

C IF  (IOUT  .EQ.  1)  WRITE ( 8 , * ) 'RZZ  =',RZZ,'  DLNG  =' , DLNG 

GO  TO  10 

C XX  GREATER  THAN  l.D+10  AND  LESS  THAN  l.D+30 

8 DLNG  - ZZ  * (DLOG(ZZ)  - 1.D0) 

GO  TO  10 

C XX  GREATER  THAN  OR  EQUAL  TO  l.D+30 

9 IER  = +1 
DLNG  = 1.D35 

10  IF  (IER  .NE.  0)  THEN  _ , 

write i 2 , * ) * attempted  to  take  dlgam  of  number  , 

s,  'TOO  LARGE  OR  TOO  SMALL' 

CALL  TRMNAT 
ENDIF 

C IF  ( IOUT  .EQ.  1)  WRITE(8,*)  'AT  10,  DLNG  *' , DLNG 

DLGAM  = DLNG 

RETURN 

END 


C+  + + it**  + * + + + + + + *****ir  + + * + **  + + ***  + + + + ***  + + ***  + + * + **++  + **+  + + + + + *++***  + + 


SUBROUTINE  TRMNAT 

STOP 

END 
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c************* ****** ****** ****** ****** ******************************* 


*** ********** ********** **  * ***********  ********************************* 


FUNCTION  FCT  CALCULATES  THE  CUMULATIVE  DISTRIBUTION  FUNCTION  FOR 
A GAMMA  VARIATE  MINUS  THE  DESIRED  ASSURANCE 
PROGRAMMER:  L.  NEWLIN 

DATE:  24SEP91 

VERSION:  LZERO  V2 


DOUBLE  PRECISION  FUNCTION  FCT  (X) 

SUBPROGRAMS : GAMMA 

COMMON  I OUT 

COMMON  / INFO  / A,  ALPHA,  THETA,  NS,  PSI 
INTEGER  I OUT,  NS 

DOUBLE  PRECISION  A,  ALPHA,  F,  PSI,  THETA,  X 


LIST  OF  VARIABLES 

A REQUESTED  ASSURANCE  LEVEL 

ALPHA  GAMMA  DISTRIBUTION  PARAMETER 

F CUMULATIVE  DISTRIBUTION  FUNCTION 

I OUT  OUTPUT  DUMP  CONTROLLER 

X THRESHOLD  LAMBDA  AT  WHICH  FQ  IS  CALCULATED 

NS  NUMBER  OF  TERMS  OF  THE  INFINITE  SERIES  TO  CALCULATE  GAMMA 

PSI  COMPUTATIONAL  PRECISION 

THETA  WEIBULL  DISTRIBUTION  PARAMETER 


CALL  GAMMA  (X,  ALPHA,  THETA,  NS,  PSI,  F) 
IF  ( IOUT  .EQ.  10) 

& WRITE (8,*)  'X  = ',  X,  ' F * ',  F 

FCT  - F - A 

RETURN 

END 


**★★****★**★ ****************************** ****** 


SUBROUTINE  MUELLR 

THE  FOLLOWING  SUBROUTINE  IS  A MODIFIED  VERSION  OF  SUBROUTINE 
DRTMI  TAKEN  FROM  "Mathematics  — Roots  of  Nonlinear  Equations," 

IBM  APPLICATION  PROGRAM,  SYSTEM/360  SCIENTIFIC  SUBROUTINE  PACKAGE, 
VERSION  III,  PROGRAMMER'S  MANUAL,  Program  Number  360-CM-03X,  Page  219. 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE 

TO  SOLVE  GENERAL  NONLINEAR  EQUATIONS  OF  THE  FORM  FCT(X)  = 0 
BY  MEANS  OF  MUELLER'S  ITERATION  METHOD. 

USAGE 

CALL  MUELLR  (X,  XLI,  XRI,  EPS,  I END,  IER) 

DESCRIPTION  OF  PARAMETERS 

X - DOUBLE  PRECISION  RESULTANT  ROOT  OF  EQUATION  FCT(X)  * 0. 

F - DOUBLE  PRECISION  RESULTANT  FUNCTION  VALUE  AT  ROOT  X. 

FCT  - NAME  OF  THE  EXTERNAL  DOUBLE  PRECISION  FUNCTION 
SUBPROGRAM  USED. 

XLI  - DOUBLE  PRECISION  INPUT  VALUE  WHICH  SPECIFIES  THE 
INITIAL  LEFT  BOUND  OF  THE  ROOT  X. 

XRI  - DOUBLE  PRECISION  INPUT  VALUE  WHICH  SPECIFIES  THE 
UPPER  BOUND  OF  THE  ERROR  OF  RESULT  X. 

I END  - MAXIMUM  NUMBER  OF  ITERATION  STEPS  SPECIFIED. 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IER  - RESULTANT  ERROR  PARAMETER  CODED  AS  FOLLOWS 

IER  « 0 - NO  ERROR.  

IER  - 1 - NO  CONVERGENCE  AFTER  IEND  ITERATION  STEPS 

FOLLOWED  BY  IEND  SUCCESSIVE  STEPS  OF 
BISECTION. 

IER  = 2 - BASIC  ASSUMPTION  FCT(XLI)  * FCT(XRI)  LESS 

THAN  OR  EQUAL  TO  ZERO  IS  NOT  SATISFIED. 

REMARKS 

THE  PROCEDURE  ASSUMES  THAT  FUNCTIONS  VALUES  AT  INITIAL 
BOUNDS  XLI  AND  XRI  HAVE  NOT  THE  SAME  SIGN.  IF  THIS  BASIC 
ASSUMPTION  IS  NOT  SATISFIED  BY  INPUT  VALUES  XLI  AND  XRI,  THE 
PROCEDURE  IS  BYPASSED  AND  GIVES  THE  ERROR  MESSAGE  IER  = 2. 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

THE  EXTERNAL  DOUBLE  PRECISION  FUNCTION  SUBPROGRAM  FCT(X) 

MUST  BE  FURNISHED  BY  THE  USER. 

METHOD 

SOLUTION  OF  EQUATION  FCT(X)  ■ 0 IS  DONE  BY  MEANS  OF  MUELLER'S 
ITERATION  METHOD  OF  SUCCESSIVE  BISECTIONS  AND  INVERSE 
PARABOLIC  INTERPOLATION,  WHICH  STARTS  AT  THE  INITIAL  BOUNDS 
XLI  AND  XRI.  CONVERGENCE  IS  QUADRATIC  IF  THE  DERIVATIVE  OF 
FCT(X)  AT  ROOT  X IS  NOT  EQUAL  TO  ZERO.  ONE  ITERATION  STEP 
REQUIRES  TWO  EVALUATIONS  OF  FCT(X) . FOR  TEST  ON  SATISFACTORY 
ACCURACY  SEE  FORMULAE  (3,4)  OF  MATHEMATICAL  DESCRIPTION. 

FOR  REFERENCE,  SEE  G.  K.  KRISTIANSEN,  ZERO  OF  ARBITRARY 
FUNCTION , BIT,  VOL.  3 (1963),  PP.  205-206. 


SUBROUTINE  MUELLR  (X,  XLI,  XRI,  EPS,  IEND,  IER) 
COMMON  I OUT 

DOUBLE  PRECISION  A,  DX,  EPS,  F,  FCT,  FL,  FM,  FR, 

& TOL,  TOLF,  X,  XL,  XLI,  XM,  XR,  XRI 

INTEGER  I,  IEND,  IER,  IOUT,  K 


C CHECK  INPUTS 

IF  (IOUT  .EQ.  20)  THEN 
WRITE ( 8 , * ) 'X  « X 

WRITE (8,*)  ' XLI  * ',  XLI,  ' XRI  = ',  XRI 
ENDIF 

C PREPARE  ITERATION 

IER  = 0 
XL  - XLI 
XR  - XRI 
X = XL 
TOL  = X 
F = FCT (TOL) 

IF  (F)  1,  16,  1 

1 FL  = F 
X * XR 
TOL  - X 

F = FCT (TOL) 

IF  (F)  2,  16,  2 

2 FR  = F 

IF  (DSIGN ( 1 .DO , FL)  + DSIGN(1.D0,  FR) ) 25,  3,  25 

C BASIC  ASSUMPTION  FL  * FR  LESS  THAN  0 IS  SATISFIED 

C GENERATE  TOLERANCE  FOR  FUNCTION  VALUES 

3 1 = 0 

TOLF  = 100.  * EPS 
C START  ITERATION  LOOP 

4 1 = 1 + 1 
START  BISECTION  LOOP 


C 
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DO  13  K — 1,  I END 
X = . 5D0  * (XL  + XR) 

TOL  = X 
F * FCT(TOL) 

IF  (F)  5,  16,  5 ^ „ 

IF  (DSIGN( 1 .DO,  F)  + DSIGN(1.D0,  FR) ) 7,  6,  1 

C INTERCHANGE  XL  AND  XR  IN  ORDER  TO  GET  THE  SAME  SIGN  IN  F AND  FR 

6 TOL  - XL 
XL  * XR 
XR  * TOL 
TOL  * FL 
FL  * FR 
FR  * TOL 

7 TOL  * F - FL 
A - F + TOL 

^ 

IF  (A  - FR  * (FR  - FL) ) 8,  9,  9 

8 IF  (I  - I END)  17,  17,  9 

9 XR  = X 
FR  = F 

C TEST  ON  SATISFACTORY  ACCURACY  IN  BISECTION  LOOP 


TOL  = EPS 
A = DABS ( XR) 

IF  (A  - I.dO)  11, 

10  TOL  = TOL  + A 

11  IF  ( DABS ( XR  - XL) 

12  IF  ( DABS ( FR  - FL) 

13  CONTINUE 


11,  10 


- TOL)  12, 

- TOLF)  14 


13 

13 


C END  OF  BISECTION  LOOP 

C NO  CONVERGENCE  AFTER  I END  ITERATION  STEPS  FOLLOWED  BY  I END 

C SUCCESSIVE  STEPS  OF  BISECTION  OF  STEADILY  INCREASING  FUNCTION 

C VALUES  AT  RIGHT  BOUNDS.  ERROR  RETURN. 


IER  = 1 

14  IF  (DABS (FR)  - DABS(FL) ) 16,  16,  15 

15  X = XL 
F * FL 

16  RETURN 

C COMPUTATION  OF  ITERATED  X-VALUE  BY  INVERSE  PARABOLIC  INTERPOLATION 


17  A * FR  - F 

DX  * (X  - XL)  * FL  * (1.D0  + F * (A  - TOL) 

& / (A  * (FR  - FL)))  / TOL 

XM  “ X 
FM  — F 
X = XL  - DX 
TOL  = X 
F = FCT(TOL) 

IF  (F)  18,  16,  18 

C TEST  ON  SATISFACTORY  ACCURACY  IN  ITERATION  LOOP 


18 


19 

20 
21 


TOL  = EPS 
A = DABS (X) 

IF  (A  - I.DO)  20, 
TOL  = TOL  * A 


20 


IF  (DABS(DX)  - TOL) 
IF  (DABS(F)  - TOLF) 


21 

16 


22 

22 


C PREPARATION  OF  NEXT  BISECTION  LOOP 

22  IF  (DSIGN ( 1 .DO , F)  + DSIGN(1.D0,  FL) ) 24,  23,  24 

23  XR  = X 
FR  = F 
GO  TO  4 

24  XL  = X 
FL  « X 
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XR  - XM 
FR  = FM 
GO  TO  4 

C END  OF  ITERATION  LOOP 

C ERROR  RETURN  IN  CASE  OF  WRONG  INPUT  DATA 

25  IER  - 2 
RETURN 
END 
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Section  7.5 

Bayesian  Statistical  Procedure  Program 

A description  of  the  key  variables  and  the  FORTRAN  source  listing  for  the  Bayesian 
statistical  procedure  code  BAYES  are  given  here.  The  pertinent  statistical  methodol- 
ogy is  given  in  Section  2.1.1.  The  overall  description  of  the  program  and  the  flowchart 
are  given  in  Section  4.3.  The  user’s  guide  for  running  BAYES  is  given  in  Section  6.5. 

7.5.1  BAYES  Program 

7.5.1 .1  Description  of  Variables 

A list  of  variables  used  in  the  Bayesian  statistical  procedure  code,  BAYES,  is  given 
in  Table  7-16.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the 
variable  “type”  is  specified  as  follows:  INT  is  a standard  integer  variable  and  RE  is  a 
standard  real  variable.  The  array  dimensions  are  defined  by  using  the  parameter 
MAXTYM.  The  program  name  is  indicated  by  UPPERCASE  letters. 

Table  7-16  Ust  of  Variables  for  Program  BAYES 
(Footnote  is  at  the  end  of  the  table) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

ALPHA 

RE 

Gamma  distribution  parameter  a for  prior  distribu- 
tion of  Weibull  parameter  A,  Equation  2-1. 

ALPHUP 

RE 

Gamma  distribution  parameter  a'  for  posterior 
distribution^  Weibull  parameter  A,  Equation  2-2. 

B1 

RE 

Bi-life1  calculated  from  Equation  2-6  by  using  prior 
distribution  parameters  a,  9,  and  /3. 

B1UP 

RE 

Bi-life1  calculated  from  Equation  2-6  by  using 
posterior  distribution  parameters  a’,  6',  and  /?. 

BETA 

RE 

Weibull  distribution  shape  parameter/?,  Equation  2-1. 

BP01 

RE 

B.01  -life1  calculated  from  Equation  2-6  by  using 
prior  distribution  parameters  a,  9,  and  /?. 

BP01UP 

RE 

B.01 -life1  calculated  from  Equation  2-6  by  using 
posterior  distribution  parameters  a',  9’,  and  /?. 

BP1 

RE 

B.l-life1  calculated  from  Equation  2-6  by  using 
prior  distribution  parameters  a,  9,  and  /?. 

BP1UP 

RE 

B.l-life1  calculated  from  Equation  2-6  by  using 
posterior  distribution  parameters  a',  9',  and  /?. 
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Table  7-16  List  of  Variables  for  Program  BAYES  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

ETA 

RE 

Estimate  of  E(rj)  where  17  = A-1/^  with  A ~ r(a,  8) 

ETUP 

RE 

Estimate  of  E(  17)  where  17  = A-1/^  with 
A ~ r(a'.0'). 

FAIL 

INT 

Number  of  test  faBure  times  in  operating  ex- 
perience data. 

1 

INT 

Controls  DO  loop. 

INVALP 

RE 

Value  of  1/a. 

INVALU 

RE 

Value  of  1/a’. 

INVBET 

RE 

Value  of  1//3. 

LAMBDA 

RE 

Expected  value  of  A ~ r(a,  8)  in  Equation  2-1. 

LAMBUP 

RE 

Expected  value  of  A ~ r(a',  8')  in  Equation  2-2. 

SUSP 

INT 

Number  of  test  suspension  times  in  operating 
experience  data. 

MAXTYM 

INT 

Maximum  number  of  faBure  and/or  suspension 
times  allowed.  The  maximum  number  of  times 
allowed  is  50. 

THETA 

RE 

Gamma  distribution  parameter  8 for  prior  distribu- 
tion of  Weibull  parameter  A,  Equation  2-1. 

THETUP 

RE 

Gamma  distribution  parameter  8'  for  posterior 
distribution  of  Weibull  parameter  A,  Equation  2-2. 

TYME(MAXTYM) 

RE 

1 -D  array  containing  operating  experience  as 
faBure  and  suspension  times  f/,  Equation  2-2. 

1 A B-life  is  the  value  of  the  failure  parameter  (e.e.,  time)  at  a failure  probability  specified  as  a 
percent:  e.g.,  B.l  is  the  failure  time  at  a probability  of  0.001  or  0.1%. 
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7.5.1. 2 Program  BAYES  Listing 


PROGRAM  BAYES  PERFORMS  THE  BAYESIAN  UPDATING  OF  THE  PRIOR  DISTRIBUTION 
(FROM  THE  PFM)  WITH  THE  OPERATING  HISTORY  (BOTH  FAILURES  AND  SUSPENSIONS) 
PROGRAMMER:  L.  NEWLIN 

DATE:  CODE:  12MAY88  COMMENTS:  11SEP91 

VERSION:  3.1 

Copyright  (C)  1990,  California  Institute  of  Technology. 

U.S.  Government  sponsorship  under  NASA  Contract  NAS 7 -9 18 
is  acknowledged. 


PROGRAM  BAYES 

FILES:  1 : BAYES D— OLD ; 2 : BAYESO-NEW ; 3 : UBA YES-NEW ; 

IMPLICIT  NONE 
INTEGER  MAXTYM 
PARAMETER  (MAXTYM  = 50) 

INTEGER  FAIL,  I,  SUSP 

REAL  ALPHA,  ALPHUP,  Bl,  BlUP,  BETA,  BP01,  BP 01 UP,  BPl,  BP1UP, 

& ETA,  ETUP,  INVALP,  INVALU,  INVBET,  LAMBDA,  LAMBUP, 

& THETA,  THETUP,  TYME (MAXTYM) 


LIST  OF  VARIABLES 

ALPHA  PRIOR  GAMMA  DISTRIBUTION  PARAMETER  ALPHA 

ALPHUP  POSTERIOR  OR  UPDATED  GAMMA  DISTRIBUTION  PARAMETER  ALPHA 
Bl  PRIOR  DISTRIBUTION  Bl  LIFE  CALCULATED  FROM  BETA,  THETA  AND 

ALPHA 

BlUP  POSTERIOR  OR  UPDATED  DISTRIBUTION  Bl  LIFE  CALCULATED  FROM  BETA, 

THETUP  AND  ALPHUP 

BETA  WEIBULL  DISTRIBUTION  SHAPE  PARAMETER 

BP 01  PRIOR  DISTRIBUTION  B.01  LIFE  CALCULATED  FROM  BETA,  THETA  AND 

ALPHA 

BP01UP  POSTERIOR  OR  UPDATED  DISTRIBUTION  B.01  LIFE  CALCULATED  FROM  BETA, 

THETUP  AND  ALPHUP  

BPl  PRIOR  DISTRIBUTION  B.l  LIFE  CALCULATED  FROM  BETA,  THETA  AND 

ALPHA 

BP1UP  POSTERIOR  OR  UPDATED  DISTRIBUTION  B.l  LIFE  CALCULATED  FROM  BETA, 
THETUP  AND  ALPHUP 

ETA  PRIOR  WEIBULL  DISTRIBUTION  LOCATION  PARAMETER  

ETUP  POSTERIOR  OR  UPDATED  WEIBULL  DISTRIBUTION  LOCATION  PARAMETER 

FAIL  NUMBER  OF  FAILURES  IN  OPERATING  EXPERIENCE 

I CONTROLS  DO  LOOP 

INVALP  INVerse  of  ALPha  — EQUAL  TO  1 /ALPHA 
INVALU  INVerse  of  ALphUp  — EQUAL  TO  1 /ALPHUP 
INVBET  INVerse  of  BETa  — EQUAL  TO  1/BETA 

LAMBDA  PRIOR  WEIBULL  DISTRIBUTION  PARAMETER  EQUAL  TO  ( 1/ETA) **BETA 
LAMBUP  POSTERIOR  OR  UPDATED  WEIBULL  DISTRIBUTION  PARAMETER  EQUAL 
TO  ( 1/ETUP) **BETA 

MAXTYM  MAXIMUM  NUMBER  OF  FAILURE  AND/OR  SUSPENSION  TIMES  ALLOWED 

SUSP  NUMBER  OF  SUSPENSIONS  IN  OPERATING  EXPERIENCE 

THETA  PRIOR  GAMMA  DISTRIBUTION  PARAMETER  THETA 

THETUP  POSTERIOR  OR  UPDATED  GAMMA  DISTRIBUTION  PARAMETER  THETA 

TYME( ) 1-D  ARRAY  CONTAINING  FAILURE  AND  SUSPENSION  OPERATING  EXPERIENCE 


OPEN  (1,  FILE  = ' BAYESD ' , STATUS  = 'OLD') 

OPEN  (2,  FILE  = 'BAYESO',  STATUS  = 'NEW') 

OPEN  (3,  FILE  = ' UBA YES ' , STATUS  = 'NEW') 

C INITIALIZE  OPERATING  EXPERIENCE  ARRAY 

DO  10  I - 1,  MAXTYM 
TYME(I)  = 0.0 
10  CONTINUE 


C 

C 


7-473 


C READ  DATA  FROM  FILE  BAYES D 

READ( 1,  *)  BETA,  THETA,  ALPHA 
READ(1,*)  FAIL,  SUSP 

DO  50  I = 1,  (FAIL  + SUSP) 

READ( 1,  *)  TYME(I) 

50  CONTINUE 

C BEGIN  CALCULATIONS  — UPDATE  ALPHA  AND  THETA 


ALPHUP  = ALPHA  + FLOAT  (FAIL) 

THETUP  “ THETA 

DO  100  I - 1,  (FAIL  + SUSP) 

THETUP  = THETUP  + TYME(I)  **  BETA 
100  CONTINUE 


C CALCULATE  LAMBDA,  ETA,  AND  BLIVES  FOR  BOTH  PRIOR  AND 
C POSTERIOR  DISTRIBUTIONS 

LAMBDA  * ALPHA  / THETA 
LAMB UP  = ALPHUP  / THETUP 


INVBET  = 1.0  / BETA 
INVALP  - 1.0  / ALPHA 
INVALU  = 1.0  / ALPHUP 


ETA  = (1.0  / LAMBDA)  **  INVBET 
ETUP  = (1.0  / LAMB UP)  **  INVBET 


BP01  = (THETA  * (0.9999  ** 
BP1  = (THETA  * (0.999  ** 
Bl  = (THETA  * (0.99  ** 


(-  INVALP)  - 1))  **  INVBET 
(-  INVALP)  - 1) ) **  INVBET 
(-  INVALP)  - 1))  **  INVBET 


C 

C 


BP01UP  = 
BP1UP  = 
B1UP 


(THETUP 

* 

(0.9999 

Irk 

(-  INVALU) 

- in 

(THETUP 

♦ 

0.999 

*k 

- INVALU 

- i 

(THETUP 

* 

0.99 

*k 

(-  INVALU) 

- i ) 

**  INVBET 
**  INVBET 
**  INVBET 


WRITE  RESULTS  TO  FILE  BAYESO  AND  THE  POSTERIOR  DISTRIBUTION 
TO  FILE  U BA YES  FOR  ANY  FURTHER  UPDATING 


WRITE ( 3 , * ) BETA,  THETUP,  ALPHUP 


WRITE (2, 900)  BETA.  BETA,  ALPHA,  ALPHUP, 
& LAMBDA,  LAMB UP,  ETA,  ETUP 

WRITE (2, 910)  BP01,  BP01UP,  BPl,  BP1UP, 
WRITE(2, 920) 


THETA,  THETUP, 
Bl,  BlUP 


IF  (FAIL  .GT.  0)  THEN 
WRITE(2.930)  FAIL 
DO  200  I » 1,  FAIL 

WRITE (2, 940)  TYME(I) 
200  CONTINUE 
ENDIF 


250 


IF 


(SUSP  .GT.  0)  THEN 
WRITE (2, 950)  SUSP 
DO  256  I = (FAIL  + 1), 
WRITE(2, 940)  TYME(I) 
CONTINUE 


(FAIL  + SUSP) 


ENDIF 


900  FORMAT 
& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


(2X, 'Copyright  (C)  1990,  California  institute  of  ', 

' Tec  hnology . U . S . Government ' , 

/,2X, 'Sponsorship  under  ;,  , . . , 

'NASA  contract  NAS7-918  xs  acknowledged.', 

////,29X, 'BAYESIAN  UPDATING  SUMMARY',////, 

18X, 'PRIOR  DISTRIBUTION' ,1 OX, 'POSTERIOR  DISTRIBUTION ' , 
///, 2X, 'PARAMETERS:' ,//.8X, ' BETA' , 10X,F9 .6 ,22X,F9 . 6 , 
//,^X, 'ALPHA' , 9X,E12 .6 , 19X,E12 .6 , 

//,7X, 'THETA' ,9X,E12.6,19X,E12.6, 

// , 6X, 'LAMBDA' , 9X. E12 . 6 , 19X. E12 .6, 

//,9X, 'ETA' ,9X,E12.6,19X,E12.6) 
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910  FORMAT 
& 

& 


(//, 6X, 'BLIVES' ,//.8X, 'B. 01 ' . 9X,E12 .6, 19X,E12 .6, 
//,9X, 'B.1',9X,E12.6, 19X,E12 .6 , 

//,10X, 'Bl ' , 9X,E12 .6 , 19X,E12 .6 ) 


920  FORMAT  ( ////,26Xf 'OPERATING  EXPERIENCE') 

930  FORMAT  (//, 5X, 'NUMBER  OF  FAILURES s ', 5Xf 12 , 
& //,10X, 'FAILURE  TIMES: '/) 


940  FORMAT  (29X,E12.6) 

950  FORMAT  ( //,2X, 'NUMBER  OF  SUSPENSIONS 5X, 12, 
& // , 7X, ' SUSPENSION  TIMES : ' / ) 


STOP 

END 
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Section  7.6 

Random  Number  Generation  Subprograms 


Descriptions  of  the  key  variables  and  the  FORTRAN  source  listings  for  the  random 
number  generator  codes  are  given  here.  The  pertinent  statistical  methodology  is 
given  in  Section  2.1. 3.1.  The  overall  descriptions  of  the  subprograms  are  given  in 
Section  4.4. 

7.6.1  RANDOM  Subprogram 

7.6.1 .1  Description  of  Variables 

A list  of  variables  used  in  the  Uniform(0,1)  random  number  generator  code, 
RANDOM,  is  given  in  Table  7-17.  The  variable  names  are  indicated  by  BOLD 
UPPERCASE  letters;  the  variable  “type”  is  specified  as  follows:  INT  is  a standard 
integer  variable,  RE  is  a standard  real  variable,  and  DRE  is  a double  precision  real 
variable.  The  subprogram  names  are  indicated  by  UPPERCASE  letters. 


Table  7-17  List  of  Variables  for  Subprogram  RANDOM 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

FRAC 

RE 

The  Uniform(0,1)  random  variate  generated  by 
RANDOM. 

IOUT 

INT 

Output  dump  controller. 

RANA 

DRE 

Constant  used  by  the  linear  congruential  algorithm. 

RANC 

DRE 

Constant  used  by  the  linear  congruential  algorithm. 

RAND 

DRE 

Random  number  seed. 

RANDIV 

DRE 

Intermediate  calculation  variable. 

RANM 

DRE 

Constant  used  by  the  linear  congruential  algorithm. 

RANSUB 

DRE 

Intermediate  calculation  variable. 

RANT 

DRE 

Intermediate  calculation  variable. 

RANX 

DRE 

Intermediate  calculation  variable. 
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7.6.1 .2  Subprogram  RANDOM  Listing 


.rirwwir~wwwww~~>'’'  - *********** ******************************** *** 

SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS 

Miles,  R.  F.,  The  RANDOM  Computer  Program:  A Linear  Congruential 
Random  Numoer  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 

PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATE:  1DEC87  _ _ „ _ , 

VERSION:  MATCHR  V4,  V5,  V5.1,  V5 .2 , V5 .3,  V6, 

V7,  V7.1,  V8,  V8.1,  ** 

MATGRM  V2 , V3,  V3.1,  V3.2, 

V4 • 3 V4 • 4 V4 « 5 

c*********************************************************************1 


„ V6.1,  V6.2, 

V8.2,  V8.3,  V8.4,  V8.5 
V3.3,  V4,  V4.1,  V4.2, 


SUBROUTINE  RANDOM  (FRAC,  RAND) 

IMPLICIT  NONE 
COMMON  I OUT 
INTEGER  IOUT 
REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANC,  RAND,  RAND IV,  RANM,  RANSUB, 
i RANT,  RANX 


C 

c 

C FRAC 
C IOUT 
C RANA 
C RANC 
C RAND 
C RANDIV 
C RANM 
C RANSUB 
C RANT 
C RANX 


LIST  OF  VARIABLES 

UNIFORM  (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


C USING  LCG  RANDOM  # GENERATOR 

RANA  = 671093.0 
RANC  ■ 7090885.0 
RANM  « 33554432.0 

10  RANX  - RANA  * RAND  + RANC 
RANDIV  * RANX  / RANM 
RANT  = DINT ( RANDIV ) 

RANSUB  = RANT  * RANM 
RAND  = RANX  - RANSUB 
FRAC  = SNGL(RAND  / RANM) 


IF 

IF 

& 

& 


( (FRAC 
(IOUT 
' RANT 
' FRAC 


.EQ 

EQ. 

_ t 


0.0)  .OR.  (FRAC  .EQ.  1.0))  GOTO  10 
2)  WRITE (8,*) 'RANX  , RANX,  ' RANDIV  =' , RANDIV, 
RANT,  ' RANSUB  =',  RANSUB,  ' RAND  =' , RAND, 

FRAC 


RETURN 

END 

C NOTES:  IOUT*2  DUMPS  TO  SCREEN 
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7.6.2  NORMGN  Subprogram 


7 .6.2.1  Description  of  Variables 

A list  of  variables  used  in  the  Normal^,  a2)  random  number  generator  code, 
NORMGN,  is  given  in  Table  7-18.  The  variable  names  are  indicated  by  BOLD 
UPPERCASE  letters;  the  variable  “type”  is  specified  as  follows:  INT  is  a standard 
integer  variable,  RE  is  a standard  real  variable,  and  DRE  is  a double  precision  real 
variable.  The  subprogram  names  are  indicated  by  UPPERCASE  LETTERS. 


Table  7-18  List  of  Variables  for  Subprogram  NORMGN 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

FRAC 

RE 

A Uniform(0,1)  random  variate  generated  by 
RANDOM. 

IOUT 

INT 

Output  dump  controller. 

MU 

RE 

Mean  n of  the  Normal  distribution. 

PI 

RE 

n,  constant  equal  to  3.1415926536. 

RAND 

DRE 

Random  number  seed. 

SIGMA 

RE 

Standard  deviation  a of  the  Normal  distribution. 

X 

RE 

The  Normal^,  a2)  random  variate  generated  by 
NORMGN. 

U1 

RE 

U(0,1 ) random  variate. 

U2 

RE 

U(0,1)  random  variate. 

Z1 

RE 

N (0, 1 ) random  variate. 

Z2 

RE 

N(0,1)  random  variate. 

7.6.2.2  Subprogram  NORMGN  Listing 


C*** **************************************** *************************** 
C SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

DATES  3FEB88 

VERSION:  MATCHR  V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 

MATGRM  V4,  V4.1,  V4.2,  V4.3,  V4.4,  V4.5 


C 
C 
C 
C 
C 
C 
C 

c 
c 
c 

c . _ _ 

£*****♦**************************************************************** 


The  random  variates  are  generated  using  the  "Direct  Method" 
Abramowitz.  M.,  and  Stegun,  I.  A.,  editors.  Handbook  of 

Mathematical  Functions,  National  Bureau  of  Standards c Applied 
Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 
1970  with  corrections,  pg.  953. 


SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  X) 
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C SUBPROGRAM:  RANDOM 

C IMPLICIT  NONE 

COMMON  IOUT 
DOUBLE  PRECISION  RAND 

REAL  FRAC,  MU,  PI,  SIGMA,  X,  Ul,  U2,  Zl,  Z2 
PARAMETER  (PI  * 3.1415926536) 

INTEGER  IOUT 


C 

C 

C FRAC 
C IOUT 
C MU 
C RAND 
C SIGMA 
C X 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM ( 0 , 1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE 
UNIFORM  RANDOM  NUMBER  U(0, 1) 

UNIFORM  RANDOM  NUMBER  U(0,1) 

NORMAL  RANDOM  NUMBER  ON  N(0, 1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 


IF  ((IOUT  .EQ.  10)  .OR.  (IOUT 
& WRITE (8,*)  'RAND  =' , RAND, 

CALL  RANDOM  (FRAC,  RAND) 

Ul  * FRAC 


.EQ.  15)) 

' MU  =' , MU,  ' SIGMA  =' , SIGMA 


CALL  RANDOM  (FRAC,  RAND) 

U2  - FRAC 

IF  ((IOUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15)) 
& WRITE ( 8 , * ) 'Ul  ■' , Ul,'  U2  , U2 


Zl  « SQRT  (-  2. 
Z2  - SQRT  (-  2. 


* ALOG 

* ALOG 


(Ul) ) 

+ cost 

M) 

* SIN( 

2. 

2. 


* PI  * U2) 

* PI  * U2 ) 


X - SIGMA  * Zl  + MU 

IF  ((IOUT  .EQ.  10)  .OR.  (IOUT  .EQ.  15)) 
& WRITE (8,*)  'Zl  *',  Zl,  ' Z2  -',  Z2, 


X =' 


X 


RETURN 

END 


7.6.3  BETAGN  Subprogram 
7.6.3.1  Description  of  Variables 

A list  of  variables  used  in  the  Beta(a,  b,  p,  9)  random  number  generator  code, 
BETAGN,  is  given  in  Table  7-19.  The  variable  names  are  indicated  by  BOLD 
UPPERCASE  letters;  the  variable  “type”  is  specified  as  follows:  INT  is  a standard 
integer  variable,  RE  is  a standard  real  variable,  and  DRE  is  a double  precision  real 
variable.  The  subprogram  names  are  indicated  by  UPPERCASE  letters. 
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Table  7-19  Ust  of  Variables  for  Subprogram  BETAGN 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

A 

RE 

Lower  bound  a of  the  Beta  distribution. 

B 

RE 

Upper  bound  b of  the  Beta  distribution. 

GAM 

RE 

The  Gamma(a,  1 ) random  variate  generator  GAM. 

IOUT 

INT 

Output  dump  controller. 

RAND 

DRE 

Random  number  seed. 

RHO 

RE 

Beta  distribution  parameter/?. 

THETA 

RE 

Beta  distribution  parameter  6. 

W 

RE 

A Beta(0, 1 ,p,0)  random  variate 

X 

RE 

The  Beta(a,  b,  p,  6)  random  variate  generated  by 
BETAGN. 

Yl 

RE 

Gamma(a,  1)  random  variate. 

Y2 

RE 

Gamma(a,  1)  random  variate. 

7 .6.3.2  Subprogram  BETAGN  Listing 


THIS  SUBROUTINE  GENERATES  A BETA  RANDOM  VARIABLE 
PROGRAMMER:  L.  GRONDALSKI , L.  NEWLIN 

DATE:  9MAR87 

SUBPROGRAM:  GAM 

The  random  variates  are  generated  using  the  method  described  in: 
Johnson,  N.  L.f  and  Kotz,  S.,  Distribution  in  Statistics:  Continuous 
Univariate  Distributions  - 1,  Houghton  Mifflin  Company,  1970, 

pp.  181-182. 


t PP> 

C*************  ********************************************************* 


SUBROUTINE  BETAGN  (RAND,  RHO,  THETA,  A,  B,  X) 
COMMON  I OUT 


DOUBLE  PRECISION  RAND 

REAL  A,  B,  GAM,  RHO,  THETA,  W,  X,  Yl,  Y2 


INTEGER  IOUT 


C 


IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'RAND  »' , RAND,  ' 
& ' THETA  = ',  THETA,  ' A =' , A,  ' B =', 

Yl  = GAM( (RHO  * THETA  + 1.),  RAND) 

Y2  “ GAM( ( ( 1 . - RHO)  * THETA  +1.),  RAND) 

W = Yl  / (Yl  + Y2) 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'Yl  *',  Yl,  ' Y2 


RHO  =',  RHO, 
B,  ' X =',  X 


Y2, 


W =' 


w 


C TRANSFORMING  STANDARD  BETA  DISTRIBUTION  TO  BETA  DISTRIBUTION 


X = W * (B-A)  + A 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'W  =' , W,  ' X X 

RETURN 

END 
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7.6.4  GAM  Subprogram 
7.64.1  Description  of  Variables 

A list  of  variables  used  in  the  Gamma(a,  1 ) random  number  generator  code,  GAM, 
is  given  in  Table  7-20.  The  variable  names  are  indicated  by  BOLD  UPPERCASE 
letters;  the  variable  “type”  is  specified  as  follows:  INT  is  a standard  integer  variable, 
RE  is  a standard  real  variable,  and  DRE  is  a double  precision  real  variable.  The 
subprogram  names  are  indicated  by  UPPERCASE  letters 


Table  7-20  Ust  of  Variables  for  Subprogram  GAM 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

A 

RE 

Intermediate  calculation  variable. 

ALPHA 

RE 

Gamma  distribution  parameter  a. 

ARG 

RE 

intermediate  calculation  variable. 

GAM 

RE 

The  Gamma(a,  1)  random  variate  generated  by 
GAM. 

IOUT 

INT 

Output  dump  controller. 

RAND 

DRE 

Random  number  seed. 

Ul 

RE 

U(0,1)  random  variate. 

U2 

RE 

U(0,1)  random  variate. 

VI 

RE 

Exponent lal(l)  random  variate. 

V 2 

RE 

Exponential ) random  variate. 

7.6.4.2 

Subprogram  GAM  Listing 

C The  random  variates  are  generated  using  an  "Acceptance/Rejection  Method* 
C Fishman,  George  S.f  "Sampling  From  the  Gamma  Distribution  on  a 
C Computer, " conmunications  of  the  ACM,  Volume  19,  Number  7,  July  1976, 
C pp.  407-409. 


REAL  FUNCTION  GAM  (ALPHA,  RAND) 

C SUBPROGRAM:  RANDOM 

COMMON  I OUT 
INTEGER  IOUT 

REAL  A,  ALPHA,  ARG,  Ul,  U2,  Vl,  V2 
DOUBLE  PRECISION  RAND 
A « ALPHA  - 1. 

C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'A  =' , A,  ' ALPHA  ALPHA 
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10  CALL  RANDOM  (Ul,  RAND) 

CALL  RANDOM  (U2,  RAND) 

VI  * - ALOG(Ul) 

V2  * - ALOG(U2) 

C IF  (IOUT  .EQ.  15)  WRITE ( 8,  * ) 'Ul  *',  Ul,  ' U2  -' , U2,  ' Vl  *', 
C t,  Vl,  ' V2  *',  V2 

ARG  * A * (VI  - ALOG(Vl)  - 1.) 

IF  (V2  .LT.  ARG)  GOTO  lt> 

GAM  = ALPHA  * Vl 

C IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'GAMMA*',  GAM 

RETURN 

END 


7.6.5  WEIBGN  Subprogram 

7 .6.5.1  Description  of  Variables 

A list  of  variables  used  in  the  Weibull(/3,  random  number  generator  code, 
WEIBGN,  is  given  in  Table  7-21.  The  variable  names  are  indicated  by  BOLD 
UPPERCASE  letters;  the  variable  “type”  is  specified  as  follows:  INT  is  a standard 
integer  variable,  RE  is  a standard  real  variable,  and  DRE  is  a double  precision  real 
variable.  The  subprogram  names  are  indicated  by  UPPERCASE  letters. 


Table  7-21  List  of  Variables  for  Subprogram  WEIBGN 


VARIABLE  NAME 

TYPE 

ARG 

RE 

BETA 

RE 

ETA 

RE 

FRAC 

RE 

IOUT 

INT 

RAND 

DRE 

WEIB 

RE 

DESCRIPTION 

Intermediate  calculation  variable. 

Weibuil  distribution  shape  parameter /9. 

Weibull  distribution  location  parameter  17. 

A Uniform(0,1)  random  variate  generated  by 
RANDOM. 

Output  dump  controller. 

Random  number  seed. 

The  Weibull(/3,  rj(fi))  random  variate  generated  by 
WEIBGN. 


7.6.5.2  Subprogram  WEIBGN  Listing 

C THIS  SUBROUTINE  GENERATES  WEIBULL f BETA, ETA)  RANDOM  VARIATES  WITH 
C MEDIAN  OF  DISTRIBUTION  CONSTRAINED  TO  BE  ONE  USING  THE  "INVERSE 
C TRANSFORM  METHOD" 

C PROGRAMMER:  L.  NEWLIN 

C DATE:  CODE:  18MAR87  COMMENTS:  15SEP89 

C VERSION:  MATCHR  V4,  V5,  V5.1,  V5.2,  V5.3,  V6,  V6.1,  V6.2, 

C V7,  V7.1,  V8,  V8.1,  V8.2,  V8.3,  V8.4,  V8.5 
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MATGRM  V2,  V3,  V3.1,  V3.2,  V3.3,  V4,  V4.1,  V4.2, 
V4.3,  V4.4,  V4.5 


copyright  (C)  1990,  Calif ornia  Institute  of  Technology. 
y.S.  Government  sponsorship  under  NASA  contract  NAS7-918 
is  acknowledged. 


SUBROUTINE  WEIBGN  (BETA,  RAND,  WEIB) 

C INPUTS:  BETA,  RAND 

C OUTPUTS : WEIB 

C SUBPROGRAMS : RANDOM 

C IMPLICIT  NONE 

COMMON  I OUT 

INTEGER  I OUT 

REAL  ARG,  BETA,  ETA,  FRAC,  WEIB 
DOUBLE  PRECISION  RAND 


C LIST  OF  VARIABLES 

C 

C ARG  INTERMEDIATE  CALCULATION  VARIABLE 

C BETA  WEIBULL  DISTRIBUTION  SHAPE  PARAMETER 
C ETA  WEIBULL  DISTRIBUTION  LOCATION  PARAMETER 

C FRAC  UNIFORM  (0,1)  RANDOM  VARIATE 

C I OUT  OUTPUT  DUMP  CONTROLLER 

C RAND  RANDOM  NUMBER  SEED  

C WEIB  WEIBULL (BETA, ETA)  GENERATED  RANDOM  VARIATE 


C CALCULATE  CONSTRAINED  ETA 

ETA  - 1.0  / (ALOG(2.0)  **  (1.0  / BETA)) 
C GENERATE  WEIBULL  RANDOM  VARIATE 


CALL  RANDOM (FRAC,  RAND) 

ARG  - - ALOG (1.0  - FRAC) 

WEIB  * ETA  * ARG* *(1.0 /BETA) 
IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) 
& ' FRAC  =',  FRAC,  ' ARG  ■' 


'BETA 
, ARG, 


BETA, 
' WEIB  =*=' 


' ETA 
WEIB 


ETA, 


RETURN 

END 


7.6.6  PRYRV  Subprogram 

7.6.6. 1 Description  of  Variables 

A list  of  variables  used  in  the  random  number  generator  code  PRYRV,  which 
generates  a pair  of  independent  Uniform  variates  U(a,  b),  and  U(c,  d),  is  given  in  Table 
7-22.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the  variable 
“type”  is  specified  as  follows:  INT  is  a standard  integer  variable,  RE  is  a standard  real 
variable,  and  DRE  is  a double  precision  real  variable.  The  subprogram  names  are 
indicated  by  UPPERCASE  letters 
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Table  7-22  List  of  Variables  for  Subprogram  PRYRV 


VARIABLE  NAME 

TYPE 

FRAC 

RE 

IOUT 

INT 

RAND 

DRE 

RHOl 

RE 

RH02 

RE 

THEl 

RE 

THE  2 

RE 

X 

RE 

Y 

RE 

DESCRIPTION 

A Uniform(0,1)  random  variate  generated  by 
RANDOM. 

Output  dump  controller. 

Random  number  seed. 

Lower  bound  a of  the  U(a,b)  distribution. 

Upper  bound  b of  the  U(a,b)  distribution. 

Lower  bound  c of  the  U(c,cf)  distribution. 

Upper  bound  d of  the  U(c,d)  distribution. 

The  U(a,b)  random  variate  generated  by  PRYRV. 
The  U(c,d)  random  variate  generated  by  PRYRV. 


7.6.6.2  Subprogram  PRYRV  Listing 


C****** **************************************************************** 
C SUBROUTINE  PRYRV  GENERATES  A PAIR  OF  U(RH0l,RH02)  AND  U(THE1,THE2) 

C INDEPENDENT  RANDOM  VARIATES 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE:  9MAR87 

C SUBPROGRAM:  RANDOM 

C 

C Copyright  (C)  1990,  California  Institute  of  Technology. 

C U.S.  Government  Sponsorship  under  NASA  Contract  NAS7-918 
C is  acknowledged . 

C+** ************************************ ******************************* 
SUBROUTINE  PRYRV  (RAND,  RHOl,  RH02,  THE1,  THE2,  X,  Y) 


COMMON  I OUT 


DOUBLE  PRECISION  RAND 

REAL  FRAC,  RHOl,  RH02 , THEl , THE2,  X,  Y 
INTEGER  IOUT 


C 


CALL  RANDOM  (FRAC,  RAND) 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'FRAC 
X = FRAC  * (RH02  - RHOl)  + RHOl 


FRAC 


C 


CALL  RANDOM  (FRAC,  RAND) 

IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'FRAC 
Y = FRAC  * (THE2  - THEl)  + THEl 


FRAC 


IF  (IOUT  .EQ.  15)  WRITE ( 8 , * ) 'RHOl 
& ' THEl  =',  THEl,  ' THE 2 =', 


=',  RHOl,  ' RH02  =',  RH02, 
THE2,  ' X =',  X,  ' Y =' , Y 


RETURN 

END 
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Section  7.7 

Reference  Time  History  Generation  Program 


The  program  tree  structure,  list  of  subprograms,  description  of  the  key  variables, 
and  the  FORTRAN  source  listing  for  the  reference  time  history  generation  code  NBSIN 
are  given  here.  The  pertinent  methodology  is  given  in  Section  2.1.4.  The  overall 
description  of  the  program  and  the  flowchart  are  given  in  Section  4.5.  The  user’s 
guide  for  running  NBSIN  is  given  in  Section  6.6. 

7.7.1  NBSIN  Program 

7.7.1 .1  Program  T ree  Structure 

The  tree  structure  gives  the  layout  of  the  program  in  terms  of  the  subprogram 
hierarchy.  The  tree  structure  for  NBSIN  is  given  in  Figure  7-13.  Subprograms 
NORMGN  and  RANDOM  are  described  in  Section  4.4.  The  program,  subprogram, 
and  file  names  are  indicated  by  UPPERCASE  letters. 

I NBSIN  1 

1 I NORMGN  | 

1 -I  RANDOM  1 


Figure  7-13  Tree  Structure  For  Program  NBSIN 


7.7.1 .2  List  of  Subprograms 

A list  of  subprograms  and  their  purposes  is  given  in  Table  7-23.  The  section  number 
where  each  subprogram  is  described  is  given  next  to  the  name. 


Table  7-23  Ust  of  Subprograms  for  Program  NBSIN 


NAME 

SECTION 

FUNCTION 

NORMGN1 

4.4.3 

Generates  two  independent  Normal^,  a 2)  random  variates. 

RANDOM2 

4.4.2 

Uses  a Linear  Congruential  random  number  Generator  (LCG)  to 
generate  Uniform(0,1)  random  variates. 

NBSIN 

4.5.2 

The  main  routine  that  controls  the  logical  flow  and  performs  the 
calculations  of  the  time  history  generation. 

1 

The  Normal  distribution  is  discussed  on  Page  2-23 . 

2 

The  Uniform  distribution  is  discussed  on  Page  2-23. 
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7.7.1 .3  Description  of  Variables 

A list  of  variables  used  in  the  time  history  generation  code,  NBSIN,  is  given  in  Table 
7-24  below.  The  variable  names  are  indicated  by  BOLD  UPPERCASE  letters;  the 
variable  “type”  can  be  interpreted  as  follows:  CH6  is  a character  variable,  six 
characters  long;  INT  is  a standard  integer  variable;  and  DRE  is  a double  precision 
real  variable.  The  various  array  dimensions  are  defined  by  using  the  following 
parameters:  MAXHIS,  MAXRAN,  MAXSIN,  and  MAXTIM. 


Table  7-24  List  of  Variables  for  Program  NBSIN 
(Footnotes  are  at  the  end  of  the  table) 

VARIABLE  NAME  TYPE  DESCRIPTION 

A(MAXSIN)  DRE  1 -D  array  containing  the  amplitudes  of  the 

sinusoidal  processes. 


CUP 

DELTAT 

F 

FC(MAXSIN) 
FILNUM  (MAXHIS) 
FO(MAXRAN) 

HISNAM  (MAXHIS) 
I 


DRE  Peak-dipping  level  for  the  narrow-band  processes. 

DRE  The  time  increment  At  of  Equation  2-60. 

DRE  f (Hz)  of  Equation  2-60,  the  frequency  used  to 

determine  the  time  increment,  usually  the  value  of 
ma x(fQ,  fc). 

DRE  1 -D  array  containing  values  of  the  frequencies  fc 
(Hz)  of  the  carrier  (sinusoidal)  processes.1 

INT  1 -D  array  containing  the  file  unit  numbers  for  the 
reference  time  history  storage  files. 

INT  f0  (Hz)  of  Equation  2-58,  the  1 -D  array  containing 
values  of  the  modal  frequencies  of  the  component. 
These  are  the  frequencies  of  the  narrow-band 
processes. 

CH6  1 -D  array  containing  the  History  NAMes  for  the 
time  history  files. 

INT  Controls  DO  loop  for  each  history  and  time 
increment. 


IOUT 

INT 

J 

INT 

K 

INT 

LASTT 

DRE 

MAXHIS 

INT 

Output  dump  controller. 

Controls  DO  loop  for  each  sinusoidal  process. 
Controls  DO  loop  for  each  narrow-band  process. 
Length  T of  the  time  histories  to  be  generated.2 

Maximum  total  number  of  time  histories  allowed. 
The  maximum  number  of  time  histories  allowed 
is  29. 
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Table  7-24  List  of  Variables  for  Program  NBSIN  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

MAXRAN 

INT 

Maximum  number  of  narrow-band  time  histories 
allowed.  The  maximum  number  of  narrow-band 
histories  allowed  is  19. 

MAXSIN 

INT 

Maximum  number  of  sinusoidal  time  histories 
allowed.  The  maximum  number  of  sinusoidal 
histories  allowed  is  10. 

MAXTIM 

INT 

Maximum  number  of  time  increments  allowed. 
The  maximum  number  of  increments  is  25,000. 

MU 

DRE 

Mean  p of  the  Normal  distribution  used  to  generate 
the  narrow-band  process.  The  value  of  p must  be 
zero. 

N 

DRE 

N of  Equation  2-60,  the  number  of  points  per  cycle 
of  frequency  f. 

N1,N2 

DRE 

Normal(0, 1)  random  variates. 

NCI  (MAXRAN) 

DRE 

1 -D  array  containing  values  of  Nc(tj),  Equation 
2-57,  the  values  of  the  cosine  components  of  the 
narrow-band  processes. 

NCIOLO  (MAXRAN) 

DRE 

1-D  array  containing  values  of  Wc(f/_i).3 

NI(MAXRAN) 

DRE 

1 -D  array  containing  values  of  Equation  2-57, 

the  narrow-band  processes. 

N RAND  (0:4) 

INT 

1 -D  array  containing  the  number  of  narrow-band 
time  histories  for  each  correlation  group  with 
NRAND(O)  being  the  total  number  of  narrow-band 
time  histories. 

NSI(MAXRAN) 

DRE 

1 -D  array  containing  values  of  Ns(tj),  Equation 
2-57,  the  values  of  the  sine  components  of  the 
narrow-band  processes. 

NSIN 

INT 

The  number  of  sinusoidal  time  histories. 

NSIOLD(MAXRAN) 

DRE 

1 -D  array  containing  values  of  Ws(f/_ i).4 

NTIM 

INT 

The  number  of  time  increments. 

PHASE(MAXSIN) 

DRE 

1 -D  array  containing  the  relative  phase  angle  shifts 
(rad)  of  the  sinusoidal  processes. 

RAND 

DRE 

Random  number  seed. 

RHO(MAXRAN) 

DRE 

p of  Equation  2-60,  the  1-D  array  containing  a value 
of  the  autocorrelation  coefficient  for  each  narrow- 
band  process. 

SHIFT 

DRE 

User-requested  amount  to  shift  all  sinusoidal 
process  phase  angles  (degrees). 
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Table  7-24  List  of  Variables  for  Program  NBSIN  (Cont’d) 


VARIABLE  NAME 

TYPE 

DESCRIPTION 

SI(MAXSIN) 

DRE 

1-D  array  containing  values  of  S(f(),  the  sinusoidal 
processes. 

SIG  M AC  (MAXRAN) 

DRE 

1 -D  array  containing  values  of  oc  the  standard 
deviation  of  the  cosine  components  of  the  narrow- 
band  processes. 

SIGMAN(MAXRAN) 

DRE 

1 -D  array  containing  values  of  oN,  Equation  2-60, 
the  standard  deviation  of  the  narrow-band 
processes. 

TI(0:MAXTIM) 

DRE 

1 -D  array  containing  the  time  values,  tj. 

TWOPI 

DRE 

Value  of  2ji. 

UCI  (MAXRAN) 

DRE 

1 -D  array  containing  values  of  uc(f,-)  the 
Normal(0.  of)  generated  random  variates  for 
the  cosine  components  of  the  narrow-band 
processes.5 

USI(MAXRAN) 

DRE 

1 -D  array  containing  values  of  us(tj)  the 
Normal(0,  of)  generated  random  variates  for  the 
sine  components  of  the  narrow-band  processes.5 
Note:  os  = oc. 

WC(MAXSIN) 

DRE 

1 -D  array  containing  values  of  the  angular  frequen- 
cies o>c  of  the  sinusoidal  processes. 

WO  (MAXRAN) 

DRE 

o)0  of  Equation  2-57,  the  1-D  array  containing 
values  of  the  modal  angular  frequencies  of  the 
component.  These  are  the  angular  frequencies  of 
the  narrow-band  processes. 

xc 

DRE 

The  damping  coefficient  £ of  Equation  2-58. 

Z1  (MAXRAN) 

DRE 

1 -D  array  containing  Normal (0, 1 ) random  variates 
for  the  cosine  component  of  the  narrow-band 
process. 

Z2(MAXRAN) 

DRE 

1-D  array*containing  Normal(0, 1)  random  variates 
for  the  sine  component  of  the  narrow-band 

process. 


1 f is  discussed  on  Page  2-30. 

2 T is  discussed  on  Page  2-30. 

3 See  variable  NCI( ). 

4 See  variable  NSI( ). 

5 See  u(t)  in  Equation  2-60. 


7-490 


noonnoononoonnonnnnonono  o on  ooooooooo 


7.7.1 .4  Program  NBSIN  Listing 


PROGRAM  NBSIN  CONTROLS  THE  GENERATION  OF  MULTIPLE  SINUSOID  AND 
NARROW-BAND  PROCESSES 

PROGRAMMER:  L.  NEWLIN  , , 

DATE:  CODE:  28JAN91  COMMENTS:  11SEP91 

VERSION:  V5.4 


copyright  (C)  1990,  California  Institute  of  Technology. 
U.S.  Government  sponsorship  under  NASA  contract  NAS7— 918 
is  acknowledged. 


PROGRAM  NBSIN 


SUBPROGRAMS : NORMGN 

FILES:  1 :NBS IN-OLD; 


8 : IOUTPR-NEW; 


11-39 : user  named-NEW 


IMPLICIT  NONE 


COMMON  I OUT 

INTEGER  MAXHIS,  MAXRAN,  MAXSIN,  MAXTIM 


DOUBLE  PRECISION  RAND,  TWOPI 

PARAMETER  (MAXHIS  - 29.  MAXRAN  - 19,  MAXSIN  - 10,  MAXTIM  - 25000, 
i TWOPI  - 6.263185308) 


INTEGER  FILNUM( MAXHIS),  I,  IOUT,  J,  K,  N,  NRAND(0:4),  NSIN,  NTIM 

DOUBLE  PRECISION  A (MAXSIN) , CLIP.  DELTAT,  F,  FC (MAXSIN) , 
FO(MAXRAN),  LASTT,  MU,  Nl,  N2,  NCI (MAXRAN ) , 

NCiOLD( MAXRAN),  Nl (MAXRAN) , NSI (MAXRAN) , NSIOLD (MAXRAN) , 
PHASE ( MAXSIN ) , RHO(MAXRAN) , SHIFT,  SI(MAXSIN),  SIGMA, 
SIGMAC ( MAXRAN ) , SIGMAN (MAXRAN ) , TI  ( 0 : MAXTIM) , 

UCI (MAXRAN) , USI  (MAXRAN) , WC(MAXSIN),  WO (MAXRAN) , XC, 
Zl(MAXRAN) , Z2 (MAXRAN) 


& 

& 

& 

& 

& 

& 


CHARACTER* 6 HISNAM(MAXHIS) 


DATA  (FILNUM(I) , 1=1.  MAXHIS)  / 

11,  12  16,  14,  15,  16,  i7,  18, 

21  22  23  24,  25,  26,  27,  28, 

31  32  33  34,  35,  36,  37,  38, 


19, 

29, 

39 


20 

30 

/ 


t 

t 


LIST  OF  VARIABLES 


A <) 

CLIP 
DELTAT 
F 

FC<) 

FILNUH( ) 
Fon 

HISNAM( ) 
I 

IOUT 
J 
K 

LASTT 

MAXHIS 
MAXRAN 
MAXSIN 
MAXTIM 
MU 
N 
Nl 
N2 
C NCI ( ) 


1— D ARRAY  CONTAINING  THE  AMPLITUDES  OF  SINUSOIDAL  PROCESSES 
PEAK-CLIPPING  LEVEL 
TIME  INCREMENT 

FREQUENCY  USED  TO  DETERMINE  TIME  INCREMENT  

1— D ARRAY  CONTAINING  FREQUENCIES  OF  SINUSOIDAL  PROCESSES 
1— D ARRAY  CONTAINING  UNIT  NUMBERS  FOR  TIME  HISTORY  FILES 
1— D ARRAY  CONTAINING  FREQUENCIES  OF  NARROW-BAND  PROCESSES 
1— D ARRAY  CONTAINING  History  NAMes  FOR  THE  TIME  HISTORIES 
CONTROLS  DO  LOOP  FOR  EACH  TIME  INCREMENT 
OUTPUT  DUMP  CONTROLLER 

CONTROLS  DO  LOOP  FOR  EACH  SINUSOIDAL  PROCESS 

CONTROLS  DO  LOOP  FOR  EACH  NARROW-BAND  PROCESS 

LARGEST  TIME  VALUE  TO  BE  CONSIDERED  (LENGTH  OF  GENERATED 

TIME  HISTORY)  

MAXIMUM  TOTAL  NUMBER  OF  TIME  HISTORIES  ALLOWED 
MAXIMUM  NUMBER  OF  NARROW-BAND  RANDOM  HISTORIES  ALLOWED 
MAXIMUM  NUMBER  OF  SINUSOIDAL  HISTORIES  ALLOWED 
MAXIMUM  NUMBER  OF  TIME  INCREMENTS  ALLOWED 
MEAN  OF  NARROW-BAND  PROCESS  — EQUAL  TO  ZERO 
NUMBER  OF  POINTS  PER  CYCLE  OF  FREQUENCY  F 
NORMAL (0,1)  RANDOM  VARIATE 
NORMAL (0,1)  RANDOM  VARIATE 

1— D ARRAY  CONTAINING  VALUES  OF  Nc(i),  THE  MAGNITUDES  OF 
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NCIOLD ( ) 
NI() 
NRAND( ) 


NSI() 

NSIN 
NSIOLD( ) 
NTIM 
PHASE ( ) 

RAND 
RHO  ( ) 

SHIFT 

SI() 

SIGMA 

SIGMAC ( ) 

SIGMAN( ) 

TI() 

TWOPI 

UCI() 

USI() 

WC() 

WO() 

xc 

Zl() 

Z2() 


THE  COSINE  COMPONENTS  OF  THE  NARROW-BAND  PROCESSES 

1-D  ARRAY  CONTAINING  VALUES  OF  Nc(X-l) _____ 

1-D  ARRAY  CONTAINING  VALUES  OF  N(X)  , THE  NARROW-BAND  PROCESSES 
1-D  ARRAY  CONTAINING  THE  NUMBER  OF  NARROW-BAND  TIME  HISTORIES 
FOR  EACH  CORRELATION  GROUP  WITH  NRAND(O)  BEING  THE  TOTAL 
NUMBER  OF  NARROW-BAND  TIME  HISTORIES 
1-D  ARRAY  CONTAINING  VALUES  OF  NS(i) . THE  MAGNITUDES  OF 
THE  SINE  COMPONENTS  OF  THE  NARROW-BAND  PROCESSES 
NUMBER  OF  SINUSOIDAL  HISTORIES 
1-D  ARRAY  CONTAINING  VALUES  OF  Ns(l-l) 

NUMBER  OF  TIME  INCREMENTS 

1-D  ARRAY  CONTAINING  THE  RELATIVE  PHASE  ANGLE  SHIFTS  OF  THE 
SINUSOIDAL  PROCESSES  (RADIANS) 

RANDOM  NUMBER  SEED  

1-D  ARRAY  CONTAINING  VALUES  OF  THE  AUTOCORRELATION  COEFFICIENT 
FOR  EACH  NARROW-BAND  PROCESS 
AMOUNT  TO  SHIFT  ALL  SINE  PHASE  ANGLES  (DEGREES) 

1-D  ARRAY  CONTAINING  VALUES  OF  S(i) , THE  SINUSOIDAL 
PROCES SES 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION  — EQUAL  (CONSTRAINED) 
TO  ZERO 

1-D  ARRAY  CONTAINING  VALUES  OF  STANDARD  DEVIATION  OF  COSINE 
COMPONENTS 

1-D  ARRAY  CONTAINING  VALUES  OF  STANDARD  DEVIATION  OF 
NARROW-BAND  PROCESSES 
1-D  ARRAY  CONTAINING  TIME  VALUES,  Tx 
2 * PI 

1-D  ARRAY  CONTAINING  NORMAL ( 0, SIGMAC)  GENERATED  RANDOM  VARIATE 
FOR  COSINE  COMPONENTS 

1-D  ARRAY  CONTAINING  NORMAL (0, SIGMAS)  GENERATED  RANDOM  VARIATE 
FOR  SINE  COMPONENTS  — SIGMAS  = SIGMAC 
1-D  ARRAY  CONTAINING  ANGULAR  FREQUENCIES  OF  THE  SINUSOIDAL 
PROCESSES 

1-D  ARRAY  CONTAINING  ANGULAR  FREQUENCIES  OF  NARROW-BAND 
PROCESSES 

DAMPING  COEFFICIENT 

1-D  ARRAY  CONTAINING  NORMAL ( 0, 1)  RANDOM  VARIATES  FOR  THE  COSINE 
COMPONENT  OF  THE  NARROW-BAND  PROCESS 
1-D  ARRAY  CONTAINING  NORMAL (0,1)  RANDOM  VARIATES  FOR  THE  SINE 
COMPONENT  OF  THE  NARROW-BAND  PROCESS 


C **  READ  DATA  FROM  FILE  NBSIN 

OPEN  (1,  FILE  * 'NBSIN',  STATUS  - 'OLD') 

OPEN  (8,  FILE  * ' IOUTPR' , STATUS  = 'NEW') 

READ(1,*)  RAND,  IOUT,  F,  XC,  N,  LASTT,  CLIP,  SHIFT,  NRAND(l), 
& NRAND(2),  NRAND ( 3 ) , NRAND(4) , NSIN 

NRAND(O)  = NRAND(l)  + NRAND(2)  + NRAND(3)  + NRAND( 4) 

DO  10  K = 1,  NRAND(O) 

READ( 1, * ) HISNAM(K) , SIGMAN(K),  FO(K) 

10  CONTINUE 

DO  20  J * 1,  NSIN 

READ( 1, *)  HISNAM( J+NRAND( 0) ) , A( J) , FCrJ),  PHASE(J) 

PHASE ( J ) = (PHASE (J)  + SHIFT)  * TWOPI  / 360. DO 
WC(J)  = TWOPI  * FC( J) 

20  CONTINUE 

CLOSE  (1) 

C **  PERFORM  PRELIMINARY  CALCULATIONS 

DELTAT  = 1 .DO  / (F  * D FLOAT  (N) ) 

TI  < 0 ) = - DELTAT 
MU  m 0.D0 
SIGMA  « 1 .DO 


30  K = 1,  NRAND(O) 

= DEXP  (((  - TWOPI  * XC)  / DFLQAT(N) ) 
(K)  = SIGMAN(K)  * DSQRT  (1.D0  - RHO(K) 


* (FO(K)  / F)) 
**  2) 
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WO(K>  ■ TWOPI  * FO(K) 
30  CONTINUE 


C **  INITIALIZE  NARROW-BAND  PROCESSES 


31 


IF  (NRAND(l)  .NE.  0)  THEN 

CALL  NORMGN  (RAND,  MU,  SIGMA,  Nl,  N2) 
DO  31  K - 1,  NRAND(l) 

Zl(K)  « Nl 
Z2 (K)  « N2 
CONTINUE 
ENDIF 


32 


IF  (NRAND(2)  .NE.  0)  THEN 

CALL  NORMGN  (RAND,  MU,  SIGMA,  Nl,  N2) 

DO  32  K - ( 1+NRAND ( 1 ) ) , (NRAND( 1)+NRAND(2 ) ) 
Z1(K)  - Nl 
Z2(K)  « N2 
CONTINUE 
ENDIF 


33 


IF  (NRAND( 3)  .NE.  0)  THEN 

CALL  NORMGN  (RAND,  MU,  SIGMA.  Nl,  N2) 

DO  33  K = (1+NRAND(1)+NRAND(2)),  NRAND(O) 
Zl(K)  = Nl 
Z2(K)  - N2 
CONTINUE 
ENDIF 


34 


IF  ( NRAND ( 4 ) .NE.  01  THEN 

CALL  NORMGN  (RAND,  MU,  SIGMA.  Nl,  N2) 

DO  34  K « (1+NRAND(1)+NRAND(5)+NRAND(3) ) 
Z 1 (K)  = Nl 
Z2(K)  = N2 
CONTINUE 
ENDIF 


NRAND(O) 


DO  40  K = 1,  NRAND(O) 

NCIOLD(K)  = SIGMAN(K)  * Zl(K) 

NSIOLD(K)  = SIGMAN(K)  * Z2(K) 

40  CONTINUE 

IF  ( I OUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'TI  = ',  TI( 0) 

WRITE (8,*)  ' NRAND 0 = ',  NRAND(O) 

WRITE ( 8 , * ) ' NRAND 1 = ',  NRAND ( 1 ) , ' NRAND2  “ ',  NRAND(2) 
WRITE (8,*)  ' NRAND3  = ',  NRAND ( 3 ) , ' NRAND4  * ',  NRAND(4) 
DO  50  J = 1,  NS IN 

WRITE ( 8 , * ) ' FC  ■ ',  FC(J),  ' WC  *>  WC(J)  , ' PHASE  - ', 
& PHASE (J) 

50  CONTINUE 

DO  60  K - 1,  NRAND(O) 

WRITE 
WRITE 
WRITE 
60  CONTINUE 

ENDIF 


(8,*)  'RHO  = ',  RHO(K),  ' SIGMAC  = ',  SIGMAC(K) 

(8,*)  'FO  - ',  FO(K) , ' WO  * ',  WO(K) 

(8,*)  ' NCIOLD  = ',  NCIOLD(K),  ' NSIOLD  * NSIOLD(K) 


C **  OPEN  FILES  FOR  NARROW-BAND  RANDOM  HISTORY  STORAGE 
DO  70  K = 1,  NRAND(O) 

OPEN  (FILNUM(K),  FILE  =*  HISNAM(K) , STATUS  » 'NEW') 
70  CONTINUE 


C **  GENERATE  TIME  HISTORIES 
C **  FIRST  GENERATE  NARROW-BAND  PROCESSES 

DO  100  I = 1,  MAXTIM 

TI ( I ) * TI(I-l)  + DELTAT 
IF  (TI(I)  .GT.  LASTT)  GOTO  150 

IF  (NRAND ( 1)  .NE.  0)  THEN 

CALL  NORMGN  (RAND,  MU,  SIGMA,  Nl,  N2) 
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DO  101  K 
Z1(K) 
Z2  (K) 
CONTINUE 
ENDIF 


1.  NRAND(l) 

Nl 

N2 


IF  fNRAND<2)  .NE.  0)  THEN  ; 

CALL  NORMGN  (RAND,  MU,  SIGMA,  Nl,  N2) 

DO  102  K « ( 1+NRAND ( 1 ) ) , ( NRAND ( 1 ) +NRAND ( 2 ) ) 
Z 1 (K)  = Nl 


Z2(K[  = N2 
CONTINUE 
ENDIF 

IF  (NRAND(3)  .NE.  0)  THEN 
CALL  NORMGN  (RAND,  MU,  SIGMA,  Nl,  N2) 

DO  103  K = (1+NRAND(1)+NRAND(2)),  NRAND(O) 

Zl(K)  = Nl 
Z2(kI  - N2 
CONTINUE 
ENDIF 

IF  (NRAND(4)  .NE.  0)  THEN 

CALL  NORMGN  (RAND,  MU,  SIGMA,  Nl.  N2)  

DO  104  K * ( 1+NRAND ( 1 ) +NRAND ( 2 ) +NRAND ( 3 ) ) , NRAND(O) 
Zl(K)  » Nl 
Z2 (K)  = N2 
CONTINUE 


CONTI 

ENDIF 


DO  110  K ■ 1,  NRAND(O) 


UCI(K)  = SIGMAC(K)  * Z1(K) 
USI(K)  = SIGMAC(K)  * Z2(K) 


NCI (K)  = RHO(K 
NSI(K)  = RHO(K 


IS! : 


NCIOLD (K)  + UCI(K) 


NSIOLD ( 


+ USI  I 


NI(K)  - NCI (K)  * DCOS  (WO(K)  * TI(I)) 

+ NSI(K)  * DSIN  (WO(K)  * TI(I)) 


CONTINUE 
CLIP  PEAKS 

DO  125  K = 1,  NRAND(O) 

IF  (Nl (K)  .LT.  0.0)  THEN 
NI(K)  = MAX  (Nl (K) , - 


ELSE 

NI(K) 
ENDIF 
125  CONTINUE 

C **  WRITE  TO  FILES 


1,  NRAND(O) 

) .LT.  0.0)  THEN 
= MAX  (Nl (K) , - CLIP) 

= MIN  <NI(K),  CLIP) 


DO  130  K = 1,  NRAND(O) 

WRITE (FILNUM(K) ,*)  NI(K) 
CONTINUE 

IF  ( IOUT  .EQ.  10)  THEN 

WRITE ( 8 , * ) 'I  - ' , I.  ' TI 
DO  121  K = 1,  NRAND(O) 

UOTTF / R * \ s ' . K.  9 


',  TI(I) 


',  NI(K) 

' USI  = ',  USI(K) 
.iD(K)  , ' NSIOLD  = 


WRITE ( 8 , * ) 'K  = , K,  ' Nl  ■ ',  NI(K) 

WRITE ( 8 , * ) 'UCI  « ',  UCI(K),  ' USI  = ',  USI(K) 
WRITE ( 8 , * ) 'NCIOLD  “ ',  NCIOLD(K) , ' NSIOLD  « 
NSIOLD (K) 

WRITE (8,*)  'NCI  * NCI (K) , ' NSI  = ',  NSI(K) 

CONTINUE 
ENDIF 

UPDATE  RECURSIVE  PARAMETERS 

DO  140  K * 1,  NRAND(O) 

NCIOLD (K)  = NCI (K) 

NSIOLD (K)  = NSI (K) 
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140  CONTINUE 

100  CONTINUE 
150  CONTINUE 

IF  ( IOUT  .EQ.  10)  WRITE ( 8 , * ) 'TI  - ' , TI(I) 
NTIM  =1-1 


C **  CLOSE  FILES  FOR  NARROW-BAND  RANDOM  HISTORY  STORAGE 

DO  160  K = 1,  NRAND(O) 

CLOSE (FILNUM(K) ) 

160  CONTINUE 

C **  OPEN  FILES  FOR  SINUSOIDAL  HISTORY  STORAGE 


DO  170  J = 1,  NS IN 

OPEN  (FILNUM(J+NRAND(0) ) , FILE  = BISNAM ( J+NRAND ( 0 ) ) , 
& STATUS  - 'NEW') 

170  CONTINUE 

C **  NOW  GENERATE  SINUSOIDAL  PROCESSES 
DO  200  1=1,  NTIM 
DO  210  J = 1,  NSIN 

SI(J)  = A(J)  * DCOS  <WC(J)  * TI ( I ) + PHASE (J) ) 

210  CONTINUE 


C **  WRITE  TO  FILES 

DO  220  J = 1,  NSIN 

WRITE ( FILNUM ( J+NRAND ( 0 ) ) , * ) SI(J) 
220  CONTINUE 


IF  (IOUT  .EQ.  10)  THEN 
DO  230  J » 1,  NSIN 

WRITE(8, *)  'J  = ' , J,  ' SI 
230  CONTINUE 

ENDIF 


SI(J) 


200  CONTINUE 


STOP 

END 


C*** ********************************** *********************************** 


C* ************************************** **************** *************** 

C SUBROUTINE  NORMGN  GENERATES  A NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
C WITH  MEAN,  MU,  AND  STANDARD  DEVIATION,  SIGMA 
C PROGRAMMER:  L.  GRONDALSKI,  L.  NEWLIN 

C DATE:  14APR88 

C VERSION:  NBSIN  Vl,  Vl.l,  V2,  V3,  V4,  V5,  V5.1,  V5.3,  V5.4 

C 

C The  random  variates  are  generated  using  the  "Direct  Method" 
c Abramowitz,  M.,  and  Stegun,  I.  A.,  editors,  Handbook  of 

C Mathematical  Functions,  National  Bureau  of  Standards,  Applied 
c Mathematics  Series  55,  Issued  June  1964,  Ninth  Printing,  November 
C 1970  with  corrections,  pg.  953. 

c******* ****************************************************** ********* 
SUBROUTINE  NORMGN  (RAND,  MU,  SIGMA,  XI,  X2) 

C IMPLICIT  NONE 

COMMON  IOUT 

DOUBLE  PRECISION  RAND,  MU,  PI,  SIGMA,  XI,  X2,  Ul,  U2,  Zl,  Z2 
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REAL  FRAC 

PARAMETER  (PI  * 3.1415926536) 
INTEGER  I OUT 


C 

c 

C FRAC 
C I OUT 
C MU 
C RAND 
C SIGMA 
C XI 
C X2 
C Ul 
C U2 
C Zl 
C Z2 


LIST  OF  VARIABLES 

UNIFORM (0,1)  RANDOM  VARIATE 
OUTPUT  DUMP  CONTROLLER 
MEAN  OF  NORMAL  DISTRIBUTION 
RANDOM  NUMBER  SEED 

STANDARD  DEVIATION  OF  NORMAL  DISTRIBUTION 
NORMAL  RANDOM  VARIATE  NUMBER  ONE 
NORMAL  RANDOM  VARIATE  NUMBER  TWO 
UNIFORM  RANDOM  NUMBER  U(0, 1) 

UNIFORM  RANDOM  NUMBER  U(0, 1 ) 

NORMAL  RANDOM  NUMBER  ON  N(0, 1) 

NORMAL  RANDOM  NUMBER  ON  N(0,1) 


IF  ( (IOUT  .EQ.  10)  .OR. 
& WRITE (8,*)  ' RAND  = ' , 


(IOUT  .EQ.  15)) 

RAND,  ' MU  =' , MU,  ' SIGMA 


SIGMA 


CALL  RANDOM  (FRAC,  RAND) 
Ul  - DBLE  (FRAC) 


CALL  RANDOM  (FRAC,  RAND) 
U2  « DBLE  (FRAC) 

IF  ((IOUT  .EQ.  10)  .OR. 

& WRITE ( 8 , * ) 'Ul  , Ul 


(IOUT  .EQ.  15)) 
, ' U2  =' , U2 


Zl  = DSQRT  (-  2. DO  * DLOG(Ul)) 
Z2  * DSQRT  (-  2. DO  * DLOG(Ul)) 


* DCOS(2.DO  * PI  * U2) 

* DSIN(2 .DO  * PI  * U2) 


XI 

X2 

IF 

& 


- SIGMA  * Zl  + MU 

- SIGMA  * Z2  + MU 
((IOUT  .EQ.  10)  .OR 
write ( 8 , * ) 'zl  »' , 


zl 


(IOUT 
, ' Z2 


XI 


XI,  ' X2 


X2 


RETURN 

END 


*********************************************************** 


C* ************ ********* 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RANDOM  USES  AN  LCG  RANDOM  NUMBER  GENERATOR  TO  GENERATE 
UNIFORMLY  DISTRIBUTED  RANDOM  NUMBERS  — R.F.  MILES,  JPL 

Miles,  R.  F..  The  RANDOM  Computer  Program:  A Linear  Congruential 
Random  Number  Generator,  JPL  Publication  85-98,  JPL  Document 
5101-277,  Feb.  15,  1986. 


PROGRAMMER: 
DATE: 


C***  *********** 


L.  GRONDALSKI,  L.  NEWLIN 
1DEC87 


lUECO / 

***************************************************** 


SUBROUTINE  RANDOM (FRAC,  RAND) 

IMPLICIT  NONE 
COMMON  IOUT 
INTEGER  IOUT 
REAL  FRAC 

DOUBLE  PRECISION  RANA,  RANC,  RAND,  RAND IV,  RANH,  RANSUB, 
& RANT,  RANX 


C LIST  OF  VARIABLES 

C 

C FRAC  UNIFORM  (0,1)  RANDOM  VARIATE 
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C I OUT 
C RANA 
C RANC 
C RAND 
C RAND IV 
C RANM 
C RANDSUB 
C RANT 
C RANX 


OUTPUT  DUMP  CONTROLLER 
CONSTANT  FOR  LCG 
CONSTANT  FOR  LCG 
RANDOM  NUMBER  SEED 
INTERNAL  CALCULATION 
CONSTANT  FOR  LCG 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 
INTERNAL  CALCULATION 


C USING  LCG  RANDOM  # GENERATOR 

RANA  « 671093.0 
RANC  * 7090885.0 
RANM  = 33554432.0 

10  RANX  = RANA  * RAND  + RANC 
RANDIV  « RANX  / RANM 
RANT  = DINT (RANDIV) 

RANSUB  ■ RANT  * RANM 
RAND  = RANX  - RANSUB 
FRAC  = SNGL(RAND  / RANM) 


IF  ((FRAC  .EQ.  0.0)  .O 

IF  (IOUT  .EQ.  2}  WRITE 

& ' RANT  =',  RANT,  ' 

& ' FRAC  , FRAC 

RETURN 
END 

C NOTES:  IOUT“2  DUMPS  TO  SCREEN 


(FRAC 


(8,*) 'RANX 
RANSUB  =', 


EQ.  1.0)) 
RANX, 
RANSUB,  ' 


GOTO  10 

' RANDIV  RANDIV, 

RAND  ■*  , RAND, 
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